BestPosDelete()

BestPosDelete() – Bestellrückstand löschen

Die Funktion löscht einen Bestellrückstand.

Parameter	Beschreibung
oDM:O	Datamodul
nRedID	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, 2,),
   DBSeek(lookup(13, 'DAB03D', <code>nID</code>, "ARTNR"), oDAB010),
   BestPosDelete(oDM, nID),
   DBCommit(oDM.ADSConnection),
onerror,
   DBRollBack(oDM.ADSConnection),
   Meld(GetErrorText()),
stopseq,