AufPosDelete2()
AufPosDelete2() – Auftragsposition löschen
AufPosDelete2() löscht eine existierende Auftragsposition. Wenn für Angebote die Organisation in Zehnerschritten aktiv ist, wird die komplette Auftragspositionsgruppe gelöscht.
Parameter | Beschreibung |
---|---|
oDM:O | Datenmodul |
nOrderNo:N | Auftragsnummer |
nOrderPositionNo:N | Positionsnummer |
lProductionOrderSyncronisation:L | Produktionsauftragssynchronisation aktiviert; default = True |
lResetTableStates:L | Verwendete Tabellen nach dem Aufruf der Funktion auf ursprünglichen Stand zurück setzen; default = false |
Rückgabewert
Keiner - Wenn die Position nicht gelöscht werden kann, wird eine Exception ausgelöst.
Beispiel
| oDataModule, nOrderNumber, nOrderPositionNumber, bProductionOrderSyncronisation |
nOrderNumber := 100197,
nOrderPositionNumber := 1,
bProductionOrderSyncronisation := True,
oDataModule := CreateObject('TBeDbGet', 'DEL_POS_DM'),
startseq
oDataModule.CbTransaction_Begin(),
startseq
startseq
// Auftragsposition löschen
AufPosDelete2(oDataModule, nOrderNumber, nOrderPositionNumber,
bProductionOrderSyncronisation),
onerror
MessageDlg('Fehler beim Löschen der Auftragsposition <' + Str(nOrderNumber) +
' ' + Str(nOrderPositionNumber) + '>' + CrLf + CrLf +
GetErrorText()),
stopseq,
oDataModule.CbTransaction_Commit(),
always
oDataModule.CbTransaction_TryRollback(),
stopseq,
always
DestroyObject(oDataModule),
stopseq,