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
| 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,
Weitere Verknüpfungen