BestPosEdit()

BestPosEdit() – Bestellrückstand editieren

Die Funktion versetzt einen Bestellrückstand in den Änderungsmodus.

Parameter	Beschreibung
oDM:O	Datenmodul
nRecID	ID des DAB035 Satzes

Rückgabewert

Keiner

Beispiel

CODE

| oDM, oDAB035, oDAB010, nID |

oDM      := CreateObject('TBeDBget'),
oDAB035  := DBGetTable(oDM, waDAB035,),
nID      := 528806,

startseq,
   DBStartTrans(oDM.ADSConnection),
   oDAB010 := DBGetTable(oDM, waDAB010,),
   DBSeek(lookup(waDAB035, 'DAB03D', <code>nID</code>, "ARTNR"), oDAB010),
   BestPosEdit(oDM, nID),
   oDAB035:MENGE := 5,
   BestPosPost(oDM, nID),
   DBCommit(oDM.ADSConnection),
onerror,
   DBRollBack(oDM.ADSConnection),
   Meld(GetErrorText()),
stopseq,