BestPosNew()

BestPosNew() – Neuer Bestellrückstand

Die Funktion erzeugt einen neuen Bestellrückstand.

Parameter	Beschreibung
oDM:O	Datenmodul
nLiefNr:N	Lieferantennummer
nBestNr:N	Bestellnummer
cArtNr:C	Artikelnummer
lKeepInsert:L	Nach dem Erstellen im Bearbeitungsmodus bleiben; default = false
lQuiet:L	keine Meldungen anzeigen; default = false

Rückgabewert

Numerisch - RecID des erstellten Bestellrückstands

Beispiel

CODE

| oDM, aKommiss, oDAB035, nID |

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

startseq,
   DBStartTrans(oDM.ADSConnection),
   nID := BestPosNew(oDM, 1, 10010, 'TESTARTIKEL1', true),
   oDAB035:MENGE := 10,
   BestPosPost(oDM, nID),
   DBCommit(oDM.ADSConnection),
onerror,
   DBRollBack(oDM.ADSConnection),
   Meld(GetErrorText()),
stopseq,