BDEMaDelete()
BDEMaDelete() – Mitarbeiter löschen
Die Funktion löscht einen Mitarbeiter aus dem Personalstamm.
Parameter | Beschreibung |
---|---|
oDM_TMEdit:O | Datamodul-Objekt (Klasse: "TDM_TMEdit") |
nPersNr:N | Mitarbeiter-Nummer |
Rückgabewert
Keiner
Beispiel
CODE
| oDM |
oDM := CreateObject('TDM_TMedit'),
startseq,
DBStartTrans(oDM.ADSConnection),
BDEMaDelete(oDM, 5),
DBCommit(oDM.ADSConnection),
onerror,
DBRollBack(oDM.ADSConnection),
WriteLn('Err:' + ClassName(GetErrorObj()) + ':' + GetErrorText()),
stopseq,