Skip to main content
Skip table of contents

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

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

Verknüpfungen

JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.