BDEEdit()
BDEEdit() – Ändern von Betriebsdaten-Buchungen
Hinweis
Diese Codeblockfunktion ist in Verbindung mit Fertigungsaufträgen ab Version 6.5.65 nicht mehr einsetzbar und gibt eine entsprechende Fehlermeldung aus. Für die Funktion stehen im Codeblock entsprechend leistungsfähigere Funktionen / Klassen zur Verfügung, mit denen die unter Version 6.5 neu eingeführten Funktionalitäten im Bereich der BDE / MDE genutzt werden können.
Funktion zum Editieren von BDE-Zeiten. Das Datenmodul muss von der Klasse "TDM_TMEdit" sein. Die Funktion muss in einer Transaktion ausgeführt werden.
Parameter | Beschreibung |
---|---|
oDM_TMEdit:O | Datamodul-Objekt (Klasse: "TDM_TMEdit") |
nPersNr:N | Mitarbeiter-Nummer |
dStartDatum:D | Start-Datum |
cStartZeit:C | Start-Zeit |
cAPosNummer:C | Kundenauftragsnr. (DAB050:ANUMMER) oder Prod.Auftr.Pos.Nr. (DAB240:B_POS_LFD); default = leer |
Rückgabewert
Keiner - falls eine Buchung nicht durchgeführt werden kann, wird eine Exception ausgelöst.
Beispiel
| oDM, oDab340 |
oDM := CreateObject("TDM_TMEdit"),
oDab340 := DBGetTable(oDM, waDAB340),
DBStartTrans(oDM.AdsConnection),
startseq,
// Anwesenheitsbuchung ändern
BDEEdit(oDM, 37, SToD("20060505"), "02:45"),
oDab340:S_ZEIT := "02:45",
oDab340:E_ZEIT := "03:25",
BDEPost( oDM ),
// Auftragsbuchung ändern
BDEEdit(oDM, 37, SToD("20060505"), "02:45", "102622 001"),
oDab340:S_ZEIT := "02:40",
oDab340:E_ZEIT := "03:25",
BDEPost(oDM),
DBCommit(oDM.AdsConnection),
onerror,
DBRollBack(oDM.AdsConnection),
WriteLn('Err:' + ClassName(GetErrorObj()) + ':' + GetErrorText()),
stopseq,