ProdAufDelete()

| oDM, nProdAufNo |

oDM        := CreateObject('TBeDBGet', 'PROD_AUF_DELETE'),
nProdAufNo := 367653, // Nummer des Produktionsauftrags
startseq,
   startseq,
      DBStartTrans(oDM.AdsConnection),
      ProdAufDelete(oDM, nProdAufNo),
      DBCommit(oDM.AdsConnection),
      MessageDlg('Produktions-Auftrag [' + Str(nProdAufNo) + '] wurde erfolgreich
                 gelöscht.', mtInformation),
   onerror,
      if DBInTrans(oDM.AdsConnection) then
         DBRollBack(oDM.AdsConnection),
         DBCancelAll(oDM),
      endif,
      MessageDlg('Fehler beim Löschen des Produktions-Auftrags [' + Str(nProdAufNo) +
                 ']:' + crlf + crlf + GetErrorText(), mtError),
   stopseq,
always,
   DestroyObject(oDM),
stopseq,