Event "nach Lagerbuchung"

Das Event berücksichtigt die selben Rückgaben wie der Event "vor Lagerbuchung", d.h. es ist möglich "2" zurückzugeben, um eine Buchung nachträglich abzubrechen.
Hinweis: Das Event wurde früher vor jedem Druck eines Lagerscheins aufgerufen, dies geschieht jetzt nicht mehr! Es wird auch nur für lagerwirksame Artikel aktiv. Ebenso ist zu beachten, dass es bei einer manuellen Lagerbuchung (Inventurkorrektur/Produktionsverbrauch) über den Artikelstamm keine Unterscheidung der Buchungsart (cBuart:P7) erfolgt. Die Buchungsart (cBuart:P7) ist in den Fällen immer = "E".

Beispiel

CODE

| 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, nGroeKlasse:P19, nReservID:P20,
  nContType:P21, cKommiss |

// Verfügbare Felder in Tabelle oMemPlaces:
//   StoreQuantity   -> Menge auf Lager/Platz/Kommission
//   AccQuantity     -> Buchungsmenge für Lager/Platz/Kommission
//   PlaceNo         -> Lager-Platz
//   Container       -> Behälter-Nr
//   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
//   OldContainer    -> Behälter-Nr 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 nMenge > 0 then
   if JN('Etiketten drucken?') then
      DBGoTop(oMemPlaces),
      Browse(,oMemPlaces),
      while !EoF(oMemPlaces) do
         cKommiss := AllTrim(oMemPlaces:COMMISSNO),
         Meld(oMemPlaces:Commissno),
         Call('Lager\EtiCharge', cKommiss),
         DBSkip(1, oMemplaces),
      end,
   endif,
endif,