Event "vor Eintrag Beleghistorie"

Der Event wird aufgerufen, direkt bevor in die Historie eines Beleges im Belegarchiv ein Eintrag gemacht wird.
Hinweis: Der Event kann dazu verwendet werden, die Löschung von Belegen zu verhindern (siehe Beispiel).

Beispiel

| nEvtNo:P1, nHistTyp:P2, dDatum:P3, nUser:P4, cInfo:P5,
  oDab700:P6, aRes |

// Rückgabe im Falle von nHistTyp = 3 (Beleg-Löschung!):
//   leer, TRUE = Löschung erlaubt
//   FALSE      = Löschung nicht erlaubt

aRes := True,
if nHistTyp = 3 then
   aRes := JN( 'Beleg-Löschung erlauben ?' + crlf +
               '(' + Str(nHistTyp,3) + ', ' + DToC(dDatum) +
               ', ' + Str(nUser,3) + ', ' + cInfo + ')' )
endif,
aRes