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 |
nResID:N | ID des Datensatzes der Tabelle mit der WorkArea = nResWA |
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
CODE
|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),