Skip to main content
Skip table of contents

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.

ParameterBeschreibung

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


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.