Event "vor Lagerbuchung"

Dieser Event wird direkt vor einer Lagerbuchung aufgerufen, also z.B. bei einer Inventurbuchung oder beim Setzen einer Versand-Menge (und Speichern der Position) in der Auftragsbearbeitung.

Beispiel

| nEvtNo:P1,     oDab010:P2,    oDab020:P3,  oDab100:P4,  oDab000:P5,
  oMemPlaces:P6, cBuart:P7,     cBelegNr:P8, dDatum:P9,   nPersNr:P10,
  cArtNr:P11,    nMenge:P12,    cText:P13,   nKostSt:P14, cMemo:P15,
  cLager:P16,    nMengeAlt:P17, cProgID:P18 |

// Verfügbare Felder in Tabelle oMemPlaces:
//   StoreQuantity   -> Menge auf Lager/Platz/Kommission
//   AccQuantity     -> Buchungsmenge für Lager/Platz/Kommission
//   PlaceNo         -> Lager-Platz
//   CommissNo       <span style="text-decoration: line-through;">> Chargen</span>/Ser#
//   Date            -> Buchungsdatum
//   OldAccQuantity  -> Menge vor der Buchung
//   OldPlaceNo      -> Platz vor der Buchung
//   OldCommissNo    -> Kommission vor der Buchung
// Rückgabe = leer oder 0 -> fortfahren
// Rückgabe = 1           -> ohne Buchungsfenster fortfahren
// Rückgabe = 2           -> Buchung sofort, komplett abbrechen

if cBuart = 'E' and nPersNr <> 0 and nMenge > 0 then
   MyEdit(oMemPlaces),
   oMemPlaces:CommissNo := cBelegNr,
   MyPost(oMemPlaces),
endif,