ProdOrdFinish()
ProdOrdFinish() – Produktionsauftrag Fertigmeldung
Die Funktion dient zur Teil-/Fertigmeldung von Produktionsaufträgen.
Parameter | Beschreibung |
|---|---|
oBeDBGet:O | Kontainer-Objekt (TBeDBGet-Objekt) |
nAufNr:N | Auftragsnummer |
nAufPos:N | Unter-Auftragsposition |
lKomplett:L | Art der Fertigmeldung |
nMenge:N | Fertigzumeldende Menge |
nLager:N | Ziel-Lager des Fertigproduktes |
nAusMenge:N | Ausschuss-Menge; default = 0 |
dDatum:D | Fertigmelde-Datum; default = mBDatum |
caFertigSerNr:U | Seriennummer/Charge des Fertigteils oder Array mit Seriennummer/Charge, Menge, Platz; default = Null() |
caAusSerNr:U | Seriennummer/Charge des Ausschussteils oder Array mit Seriennummer/Charge, Menge; default = Null() |
oCallbackInfo:O | Callbackobjekt für folgende Abfragen (MessageId): |
lKeinCallbackID2:L | Callback-Event mit MessageId 2 nicht ausführen; default = True |
lAllowEmptyPlaces:L | Buchung auf einen leeren Lagerplatz erlaubt; nur relevant wenn nLager ein Lagerplatzverwaltetes Lager ist;(Default = false) |
Rückgabewert
keiner
Beispiel
| oBeDbGet, oDab240, oCallback |
//************************************************************************************
// Callback-Funktion, der Rückgabewert wird autom. in oCallbackFunc.Result gespeichert
//************************************************************************************
function CallbackFunc(oCallback:O)
Result:= EmptyValue(), // als Standard die be-Defaultwerte übernehmen
Case oCallback.MessageID
of 3:: Meld('Text: ' + // Frage : Kunden-Auftrag an Menge anpassen ?
oCallback.MsgText + Chr(13) +
'Vorgabe für ID ' + Str(oCallback.MessageID) + ': ' +
IIf(oCallback.Result = mrNo, 'Nein', 'Ja')),
Result:= mrNo, // Antwort: Nein
of 4:: Result:= mrNone, // Frage : Weiter mit Beleg-Scan??
// Antwort: Bestätigung per Dialog anfordern
of 5:: Result:= mrNo, // Frage : Lagerschein drucken ?
// Antwort: Nein
of 6:: Result:= mrNone, // Frage : Zuteilung Menge auf Kundenrückstände ?
// Antwort: Bestätigung per Dialog anfordern
EndCase,
End,
//************************************************************************************
oBeDBGet:= CreateObject("TBeDBGet"),
oDab240 := DBGetTable(oBeDBget, waDAB240),
DBStartTrans(oBeDBGet.AdsConnection),
StartSeq
oCallback:= CallbackInfo('CallbackFunc'), // Erzeugen des Callback-Objekts
ProdOrdFinish( oBeDBget, 405627, 0, true,
3, 00, 0, 0,
<code>"123456", 3, "TOLVE"</code>,,
oCallback), // optionaler Parameter für die Behandlung von "Rückfragen"
DBCommit(oBeDBGet.AdsConnection),
OnError
DBRollBack(oBeDBGet.AdsConnection),
WriteLn("ERROR:" + GetErrorText()),
StopSeq