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

CODE

| 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,