LUmlag2()
LUmlag2() – Lagerumbuchung ohne Oberfläche
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. |
nMengeVon:N | Abgangsmenge |
cLagerAn:C | Ziel-Lager-Nr. |
aKommissArrAn:A | Ziel-Komiss./Platz-Array. |
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
| 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}},
LUmlag2(oDM, 'GRKL1',
'04', aCommissVon, 20,
'03', aCommissAn, 20,
'U', 'TEST', 'Test-Text',
true, true, false, 'UML_TEST',
0, 0)