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) ACHTUNG: die Einzelreservierung müssen danach manuell angepasst werden! |
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 |
lQuietMode:L | True - Alle Formulare und Meldungen die sich im Prozess befinden werden angezeigt (default = true) ACHTUNG: Wenn lQuietMode auf true gesetzt wird, muss eine Kommissionsarray mitgegeben werden! |
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,