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,