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(); Format: { { <Kommission>, <Menge>, [,<Platz> [,<Verfallsdatum> [,<BehälterNr> [,<EinwegBehälterTyp> ] ] ] ] }, { . . . } }
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) True - Es werden immer die Angaben aus aCommiss verwendet. 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 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) False - Alle Formulare und Meldungen die sich im Prozess befinden werden unterdrückt. ACHTUNG: Wenn lQuietMode auf true gesetzt wird, muss eine Kommissionsarray mitgegeben werden!

Rückgabewert

Keiner

Beispiel

CODE

| 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,