Event "nach Rechnungs-Löschung"

Dieser Event wird nach dem erfolgreichen Löschen einer Rechnung über die Menüfunktion "Rechnung löschen" ausgeführt.

Beispiel

CODE

| nEvtNo:P1, nReNummer:P2, dReDatum:P3, nKdNr:P4, oKDN710, nRecNo, oDM, oDab055 |

// Stückzahlen zurücksetzen

startseq,
   oDM     := CreateObject("TBeDBGet"),
   oDab055 := DBGetTable(oDM,waDAB055,),
   oKDN710 := DBGetTable(oDM,waKDN710,),
   oDab055.indexname := "DAB056",
   oKDN710.indexname := "RE_NUMMER",
   DBScope({nRENummer,nKDNR}, {nRENummer,nKDNR}, oKDN710),
   DBGoTop(oKdn710),
   DBStartTrans(oDM.ADSConnection),
   while !EoF(oKdn710) do
      nRecNo := DBRecNo(oKDN710),
      if Empty(oKDN710:LF_NUMMER) then
      DBDelete(oKDN710),
   else,
      MyEdit(oKDN710),
      oKDN710:re_nummer := 0,
      MyPost(oKDN710),
   endif,
      if nRecNo = DBRecNo(oKDN710) then
      DBSkip(1,oKDN710),
      endif,
   end,
   DBCommit(oDM.ADsConnection),
onerror,
   Meld("Fehler im Event 'nach Rechnung löschen ' " + GetErrorText()),
   DBRollBack(oDM.ADSConnection),
stopseq,