ProdPosBuch()
ProdPosBuch() – Produktionsauftragsposition buchen
Die Funktion dient zum manuellen Buchen von Material auf eine Produktionsauftrags-Position.
Parameter | Beschreibung |
|---|---|
oBeDBGet:O | Kontainer-Objekt (TBeDBGet-Objekt) |
nAufNr:N | Auftragsnummer |
nAufPos:N | Unter-Auftragsposition |
nPosNr:N | Positions-Nr. |
nMenge:N | Zu buchende Menge (Positiv oder Negativ) |
nLager:N | Material kommt von Lager |
cHauptSerNr:C | Seriennummer des Fertigteils (nur bei Vorabvergabe von Fertigteil-Seriennummer); default = Leerstring |
caTeileSerNr:U | Seriennummer/Charge des Materials oder Array mit Seriennummer/Charge, Menge, Platz; |
lKeinLS:L | kein Lagerschein drucken; default = false |
lReserv:L | Menge wieder reservieren (nur bei Rückbuchung von Material); default = true |
cProgID:C | individuelle Prog.ID; default = 'ProdPosBuch' |
Rückgabewert
keiner
Beispiel
| m_oDM |
m_oDM := CreateObject("TBeDBGet"),
startseq
DBStartTrans(m_oDM.ADSConnection),
startseq
ProdPosBuch(m_oDM, 405595, 0, 2, 2, 4, "",
{{"213170", 1, "PLATZ1"}, {"100003", 1, "PLATZ2"}},
False, True, 'XXX'),
ProdPosBuch(m_oDM, 405627, 0, 5, -5, 4, "",
{{"04052284003", -5, "TOLVE"}},
False, True, 'XXX'),
ProdPosBuch(m_oDM, 600631, 0, 1, 1, 0),
DBCommit(m_oDM.ADSConnection),
always
if DBInTrans(m_oDM.ADSConnection) then
DBRollBack(m_oDM.ADSConnection),
endif,
stopseq,
always
DestroyObject(m_oDM),
stopseq,