ProdAufDelete()
ProdAufDelete() – Produktionsauftrag löschen
Die Funktion löscht einen Produktionsauftrag.
Parameter | Beschreibung |
|---|---|
oBeDBGet:O | Kontainer-Objekt (TBeDBGet-Objekt) |
nAufNr:N | Auftragsnummer; default = 0 |
nAufPos:N | Unter-Auftragsposition; default = 0 |
Rückgabewert
keiner
Beispiel
CODE
| 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,