Event "bei Rundung Vorschlagsmenge (EK/Prod)"
Der Event wird bei der Rundung einer Bestellvorschlagsmenge auf ganze Bestelleinheiten des Artikels aufgerufen. Als numerische Rückgabe wird eine neue Bestellvorschlagsmenge erwartet.
Mit Hilfe dieses Events kann eine eigene Rundungslogik für Artikel-Bestelleinheiten implementiert werden (z.B. eine Mindest-Bestelleinheit, siehe Beispiel).
Liefert der Event nichts zurück, wird die Original-Vorschlagsmenge verwendet.
Beispiel
| nEvtNo:P1, oDab010:P2, nBedarf:P3, nVorschlag:P4, nMulti |
// nBedarf : Aktuelle Bedarfsmenge (nicht gerundet)
// nVorschlag : Aktueller Bestellvorschlag (aufgerundet auf Bestelleinheit)
// Rückgabe : leer = nVorschlag verwenden, sonst eigene Vorschlagsmenge
// Beispiel: Mindestbestellmenge und Bestelleinheit
// Es soll immer mindestens einmal die Bestelleinheit (DAB010:BESTELLEH)
// des Artikel vorgeschlagen werden, die darüber hinaus gehende Menge
// soll auf einen bestimmten Multiplikator aus dem Artikelstamm aufgerundet
// werden (DAB010:NONSTD_001)
// Formel: Vorschlag = 1 x Best.EH + n x Multiplikator
if (oDab010:NONSTD_001 <= 1) then
// Kein Multi, also Vorschlag bei behalten
else
if (nBedarf > oDab010:BESTELLEH) then
nMulti := oDab010:NONSTD_001,
nVorschlag := oDab010:BESTELLEH
+ UpRound( (nBedarf - oDab010:BESTELLEH) / nMulti, 0 )
* oDab010:NONSTD_001,
else
nVorschlag := oDab010:BESTELLEH,
endif,
endif,
nVorschlag