Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

TerminNew()

TerminNew() – Termin Neuanlage


Neuen Termin anlegen und im Bearbeitungs-Modus lassen.

Parameter

Beschreibung

oBeDBGet:O

Datenmodul

nResWA:N

WorkArea für welche der Termin angelegt werden soll
40 - BDE Personen/Mitarbeiter
54 - Ressourcenstamm

nResID:N

ID des Datensatzes der Tabelle mit der WorkArea = nResWA
für WorkArea = 40 das Feld PERSNR
für WorkArea = 54 das Feld ID

oMemTRM:O

optional - Tabelle aus welcher bei der Neuanlage (vor Auswertung der Feld-Rechte) der Inhalt in den neuen Termin übernommen wird


Rückgabewert


Numerisch - ID des neuen Termins (-1 falls Neuanlage fehlgeschlagen ist)

Beispiel 

|oDBGet, oDabTRM, nEventID, nResID|

oDBGet := CreateObject('TBeDBGet'),
startseq
   oDabTRM := DbGetTable(oDBGet, waDABTRM),
   DbStartTrans(oDBGet.AdsConnection),
   // Termin anlegen und speichern
   nEventID := TerminNew(oDBGet, waDAB262, 2),
   if nEventID > -1 then
      oDabTRM:START   := Now(),
      oDabTRM:ENDE    := oDabTRM:START + 1/24, // 1 Stunde
      oDabTRM:BETREFF := 'neuer Termin',
      TerminPost(oDBGet, nEventID),

      // und jetzt noch einen Teilnehmer hinzufügen
      // hier kann gleich die nEventID als Besprechungs-ID verwendet werden
      // da ein Termin bei Neuanlage immer als Besprechungs-ID die Termin-ID hat
      nResID := TerminTeilnehmerNew(oDBGet, nEventID, waDAB262, 8),
      if nResID > -1 then
         TerminTeilnehmerPost(oDBGet, nEventID, waDAB262, 8),
      endif,
      nResID := TerminTeilnehmerNew(oDBGet, nEventID, waDAB262, 6),
      if nResID > -1 then
         oDabTRM:ANWESHEIT := 'E', // Anwesenheit erforderlich
         TerminTeilnehmerPost(oDBGet, nEventID, waDAB262, 6),
      endif,
   endif,
                              writeln(nEventID),
   DbCommit(oDBGet.AdsConnection),
onerror
   DbRollBack(oDBGet.AdsConnection),
   meld(GetErrorText()),
stopseq,
DestroyObject(oDBGet),


Weitere Verknüpfungen