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 (default = Artikel der Position für welche die Ersatzbauteil-Position erzeugt werden soll
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 -1 : automatische Berechnung der nächsten Positions-Nummer

Rückgabewert

Numerisch - Neue Positions Nr.

Beispiel

CODE

// 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,

Weitere Verknüpfungen

AufPosNeu()