AufPosFrei2()
AufPosFrei2() – Versand-Freigabe für eine Auftragsposition
Die Funktion übernimmt die gleiche Aufgabe wie AufPosFrei(). Übergeben wird im Gegensatz zu AufPosFrei() ein Datenmodul.
Hinweis
Die Funktion AufPosFrei2() führt keine Validierung aus, ob die übergebene Menge (nMenge) auf Lager verfügbar ist und bucht diese immer in den Auftrag. Soll eine Validierung stattfinden, müssen die Funktionen AufPosEdit2() und AufPosPost2() verwendet werden.
Parameter | Beschreibung |
---|---|
oDM:O | Objekt der Klasse TBeDbGet (Datenmodul) |
nAufNummer:N | Auftragsnummer |
nAufPosNr:N | Nummer der Auftragsposition |
nMenge:N | Freigabemenge |
aCommiss:A | Array Kommissionsnr.; default = null(); |
cProgID:C | Zur Verarbeitung von BE-Events; default = Leerstring |
nEntnSchNr:N | Entnahmescheinnummer - automatische der Chargen / Plätze auf dem übergebenen Entnahmeschein. Der Bezug macht nur bei Nutzung der Einzelreservierungen (Dab260) Sinn. |
lIgnoreReservation:L | Einzelreservierungen ignorieren (default = false) |
lResetTableStates:L | Verwendete Tabellen nach dem Aufruf der Funktion auf ursprünglichen Stand zurück setzen; default = false |
lRaiseError:L | True - Bei Fehlern wird eine Exception erzeugt False - Bei Fehlern wird eine Meldung angezeigt (default = False) ACHTUNG: Wenn lQuietMode auf true gesetzt wird, muss lRaiseError auch auf true gesetzt werden |
lQuietMode:L | True - Alle Formulare und Meldungen die sich im Prozess befinden werden angezeigt (default = true) |
Rückgabewert
Keiner
Beispiel
| oDM, aKommiss, nAuftrag, nPosNr, nMenge |
aKommiss := { {"CHARGE_1", 5, "PLATZ_A"},
{"CHARGE_2", 5, "PLATZ_B"} },
nAuftrag := 816077,
nPosNr := 10,
nMenge := 10,
oDM := CreateObject('TBeDBGet'),
startseq,
startseq,
DBStartTrans(oDM.ADSConnection),
AufPosFrei2(oDM, nAuftrag, nPosNr, nMenge, aKommiss),
DBCommit(oDM.ADSConnection),
onerror,
DBCancelAll(oDM),
DBRollBack(oDM.ADSConnection),
MessageDlg(GetErrorText()),
stopseq,
always,
DestroyObject(oDM),
stopseq,