ProdPosNew()
ProdPosNew() – Neue Produktionsauftragsposition
Die Funktion erstellt eine neue Position für einen Produktionsauftrag.
Parameter | Beschreibung |
|---|---|
oBeDBGet:O | Kontainer-Objekt (TBeDBGet-Objekt) |
nAufNr:N | Auftragsnummer; default = 0 |
nAufPos:N | Unter-Auftragsposition; default |
Rückgabewert
Array - Format:
{ Produktionsauftragsnummer, Unterauftragsnummer, Positionsnummer }
Beispiel
CODE
| oBeDbGet, oDab240 |
oBeDbGet := CreateObject("TBeDBGet"),
oDab240 := DBGetTable(oBeDBget, waDAB240),
startseq,
DBStartTrans(oBeDbGet.AdsConnection),
ProdPosNew(oBeDBget, 405627, 0),
oDab240:ARTNR_E := 'BTK-005',
oDab240:SOLL := 2,
oDab240:R_S := '',
ProdPosPost(oBeDBget),
ProdPosEdit(oBeDBget, 405627, 0, 4),
oDab240:PROD_ABT := "LN2",
ProdPosPost(oBeDBget),
DBCommit( oBeDbGet.AdsConnection),
onerror,
DBRollback( oBeDbGet.AdsConnection),
WriteLn("ERROR:" + GetErrorText()),
stopseq,