BDEMaNew() – Neuer Mitarbeiter
Die Funktion erstellt einen neuen Mitarbeiter im Personalstamm.
|
Parameter |
Beschreibung |
|---|---|
|
oDM_TMEdit:O |
Datamodul-Objekt (Klasse: "TDM_TMEdit") |
|
nPersNr:N |
Mitarbeiter-Nummer |
Rückgabewert
Keiner
Beispiel
| oDM, oDAB262 |
oDM := CreateObject('TDM_TMedit'),
oDAB262 := DBGetTable(oDM, waDAB262,),
startseq,
DBStartTrans(oDM.ADSConnection),
BDEMaNew(oDM, 5),
oDAB262:NAME := 'Josef Huber',
BDEMAPost(oDM),
DBCommit(oDM.ADSConnection),
onerror,
DBRollBack(oDM.ADSConnection),
WriteLn('Err:' + ClassName(GetErrorObj()) + ':' + GetErrorText()),
stopseq,
Weitere Verknüpfungen