LUmlag()

LUmlag() – Lagerumbuchung

Die Funktion dient dem manuellen Umlagern von Waren.
Wie bei allen BE-Lagerbuchungsfunktionen muss sichergestellt sein, dass bei Übergabe einer Platz-Nr. im Kommiss.Array, diese für die Lager-Nr. gültig und verfügbar ist!
Wird eine Größenklasse angegeben, muss diese mit der Lagerort-Größenklasse übereinstimmen.
Wird eine Reservierungs-ID angegeben, muss ein entsprechend reservierter Lagerort existieren.
Ist ein Lagerort bereits für eine abweichende ID reserviert, wird eine Exception ausgelöst.

Parameter	Beschreibung
oDM:O	Datenmodul (TBeDBGet)
cArtnr:C	Artikelnummer
cLagerVon:C	Quell-Lagernr.
aKommissArrVon:A	Quell-Komiss./Platz-Array. Format: {{<Kommission:C>, <Menge:N> ,<Platz:C> ,<Verfallsdatum:D>,<BehälterNr:N>,<EinwegBehälterTyp:N>,<Zugangsdatum:D>},..} Bemerkung: Verfallsdatum und Zugangsdatum werden nur von Parameter aKomissArrAn verwendet, nur für Zugang. Das Datum muss jeweils als Typ Datum übergeben werden, z.B. `Now(), Now() - 2, CToD('28.02.2022'), SToD('20220228')`
nMengeVon:N	Abgangsmenge
cLagerAn:C	Ziel-Lager-Nr.
aKommissArrAn:A	Ziel-Komiss./Platz-Array. Format: {{<Kommission:C>, <Menge:N> ,<Platz:C> ,<Verfallsdatum:D>,<BehälterNr:N>,<EinwegBehälterTyp:N>,<Zugangsdatum:D>},..}
nMengeAn:N	Zugangsmenge
cBuart:C	Buchungsart; default = 'U'
cBelegnr:C	Belegnummer; default = Leerstring
cText:C	Buchungstext; default = Leerstring
lNoCardPrint:L	Keine Lagerkarte drucken; default = false
lQuietMode:L	Kein Buchungsdialog; default = qmQuiet
lShowDlgOnErr:L	Fehler im Dialog zeigen; default = false
cProgID:C	Indiv.Progamm-ID; default = 'Codeblock RestoreAccounting'
nGroeKlasse:N	Geforderte Größenkklasse (0 = Gr.Klasse ignorieren); default = 0
nReservID:N	Lagerort-Reservierungs-ID (hat Priorität vor <Platz>-Angabe in aKommissArrAn !!); default = 0
nEntnSchNr:N	Entn.Schein-Nr.; default = 0
lIgnAuftrRes:L	Auftragsreservierungen vollständig ignorieren (entspricht manueller Inventur-Korrektur); default = false
cKommissVon:C	Abgangs-Kommission zum Eintrag in die Lagerkartei; default = Leerstring
cKommissAn:C	Zugangs-Kommission zum Eintrag in die Lagerkartei; default = Leerstring; Wichtig: Für Erstellung neuer Einwegbehälter <BehälterNr> 0 übergeben

Rückgabewert

Keiner

Beispiel

CODE

| oDM, aCommissVon, aCommissAn |

oDM := CreateObject('TBeDBGet'),

// Auslagern Charge R15 von Platz 001C04D3, Behälter 500001
aCommissVon := {{'R15', 20, '001C04D3', , 500001}},

// Einlagern Charge R15 auf Platz 001C04D4, neuer EinwegBehälter Typ 30
aCommissAn  := {{'R15', 20, '001C04D4', , 0, 30}},

LUmlag(oDM, 'GRKL1',
       '04', aCommissVon, 20,
       '03', aCommissAn,  20,
       'U',  'TEST', 'Test-Text',
       true, true, false, 'UML_TEST',
       0, 0)

Verknüpfungen

LUmlag2()