Event "nach Inventurübernahme"

Der Event wird während der Inventurübernahme je Inventureintrag aufgerufen, nachdem die Daten aus der Inventurdatei (DAB810) in die Bestandsdaten (DAB010, usw.) übernommen wurden und noch bevor der Inventursatz gelöscht und die Transaktion abgeschlossen wird.

Beispiel

CODE

| nEvtNo:P1,  oDab810:P2, oDab010:P3, oDab610:P4, oDab710:P5, oDab730:P6,
  oDab020:P7, dUebernDatum:P8 |

// Aufruf erfolgt nach der Übernahme eines Artikels mittels der Inventur.
// Event befindet sich innerhalb einer Transaktion!

// Inventurabwertung durchführen
// ======================================================================

StartSeq,
suspendex(oDab010, true),
oDab010.writeprotocol := true,
   if oDab010:durchschek <> oDab810:x_ekp then
      MyEdit(oDab010),
      oDab010:durchschek := oDab810:x_ekp,
      oDab010:ekp        := oDab810:x_ekp,
      MyPost(oDab010),
   endif,
OnError
   Meld(GetErrorText()),
stopseq,
oDab010.writeprotocol := false,
suspendex(oDab010, false),