BDEMaNew()
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
CODE
| 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,