AufRepErsPosNeu()
AufRepErsPosNeu() – Neue Ersatzbauteil-Auftragsposition für Reparatur-Auftragsposition
Die Funktion legt für eine Reparatur-Auftragsposition eine Ersatzbauteil-Position an.
Der neue Dab055-Datensatz befindet sich anschließend per Default nicht im Einfügemodus und kann erst mit AufPosEdit() weiter bearbeitet werden.
Wird der Parameter lKeepInsertMode = True übergeben dann befindet sich der Datensatz anschließend im Einfügemodus und kann weiter bearbeitet werden. Ein weiteres AufPosEdit() ist dann nicht zulässig.
Parameter | Beschreibung |
---|---|
oDM:O | Kontainer/Datenmodul-Objekt |
nAufNummer:N | Auftragsnummer |
nQuellAufPosNr:N | Auftragspositionsnummer für welche eine Ersatzbauteil-Position erzeugt werden soll |
cArtNr:C | Artikelnummer |
lKeepInsertMode:L | Datensatz nach Neuanlage im Insert-Modus lassen; default = False |
lQuiet:L | Funktionseigene Exceptionmeldungen unterdrücken; default = True |
nAufPosNr:N | zu vergebene Auftragspositions-Nummer; default = -1 |
Rückgabewert
Numerisch - Neue Positions Nr.
Beispiel
// Auftrag muss ein Reparatur-Auftrag sein
// und Artikel ein Serien-Artikel
|oDM, nPos, oDab055|
oDM := CreateObject('TBeDBGet'),
startseq
// normale Position erzeugen
oDab055 := DbGetTable(oDM, waDAB055),
DbStartTrans(oDM.AdsConnection),
nPos := AufPosNeu2(oDM, 533, 'PC_CPU', True),
oDab055:BMENGE := -1,
oDab055:VMENGE := -1,
AufPosPost2(oDM, 533, nPos, True),
nPos := AufRepErsPosNeu(oDM, 533, nPos),
writeln('neue Ersatzbauteil-Positions-Nr.:' + Str(nPos)),
DBCommit(oDM.AdsConnection),
always
if DbInTrans(oDM.AdsConnection) then
DbRollback(oDM.AdsConnection),
endif,
Destroyobject(oDM),
stopseq,