Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

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
true- End-Fertigmeldung
false- Teil-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()
Array-Format:
{
{ <Kommission>, <Menge>,
[ ,<Platz> [ ,<Verfallsdatum> [ ,<BehälterNr> [ ,<EinwegBehälterTyp> ] ] ] ] },
{ . . . }
}
Wichtig: Für Erstellung neuer Einwegbehälter <BehälterNr> 0 übergeben

oCallbackInfo:O

Callbackobjekt für folgende Abfragen (MessageId):
1 Die fertiggemeldete Variante weicht vom Kunden-Auftrag ab !
Wollen Sie trotzdem die fertiggemeldete Variante für den Kunden-Auftrag X freigeben ?
(Default = mrYes)
2 Fertigmeldung ohne vollständige Verbrauchs-/Zeitbuchungen ? (nur bei Parameter lKeinCallbackID2 = False)
(Default = mrYes)
3 Kunden-Auftrag X (X) um X X erhöhen / reduzieren ?
(Default = mrYes)
4 Auftragskarten-Quittung-Belegscan durchführen?In der Callback-Prozedur kann der Beleg-Scan explizit zu- oder abgeschaltet werden.Eine zusätzliche Abfrage (wie bei ID 1-3) erfolgt defaultmäßig nicht.
5 Lagerschein drucken?Der Druck des Lagerscheins kann falls nötig verhindert werden.
(Default = mrYes)Eine zusätzliche Abfrage (wie bei ID 1-3) erfolgt defaultmäßig nicht.
6 Freigabe Kd.Rück. Fertigmeldung ?Die Zuteilung der Fertigungsmenge auf Kundenrückstände kann verhindert werden.
(Default = mrYes)Eine zusätzliche Abfrage (wie bei ID 1-3) erfolgt defaultmäßig nicht.
7 Freigabe-Dialog für Produktionsrückstände der fertig gemeldeten Menge anzeigen? Die Anzeige der Produktionsrückstände kann verhindert werden mit einem Result <> mrYes und Result <> mrOk (im Standard gibt es keine Abfrage der Dialog öffnet sich immer falls der lokale Parameter "M_ZUGPFREI" auf Ja gesetzt ist)
(Default = mrYes)

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


Weitere Verknüpfungen