Hallo, bräuchte mal eure Hilfe. Habe einen Fehler im Script. Leider finde ich diesen nicht. Vielleicht habt Ihr eine Idee. Da wo der Fehler meiner Meinung steckt habe ich dokumentiert
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
REM ----- Dies ist der Anfang
Server = ""
Filename = "Tsicht.nsf"
'Variablen auslesen
a1=source.fieldgettext("TStatus")
a2=source.fieldgettext("KalenderVon")
a3=source.fieldgettext("TerminVonManuel")
a4=source.fieldgettext("DokId")
b1=source.fieldgettext("Subject")
b2=source.fieldgettext("StartDate")
b3=source.fieldgettext("TimeRange")
b4=source.fieldgettext("Body")
'Ist Terminart ungleich Privat ausgewählt
If a1 <>"Privat" Then
'Ist es ein neues Dokument
If (NewDocument) Then
Dim Datenbank1 As NotesDatabase
Dim DokBegleit1 As NotesDocument
Set Datenbank1 = New NotesDatabase(Server,Filename)
'Kann die Datenbank geöffnet werden
If Not Datenbank1.IsOpen Then
Messagebox "Datenbank steht nicht zur Verfügung!"
Goto Enden
Else
'Neues Dokument erstellen
Set DokBegleit1 = Datenbank1.CreateDocument
DokBegleit1.Form = "Termin"
DokBegleit1.Status = a1
DokBegleit1.Berater = a2
DokBegleit1.VonManuel = a3
DokBegleit1.Thema = b1
DokBegleit1.StartDate = b2
DokBegleit1.StartTime = b3
DokBegleit1.Beschreibung = b4
c1=DokBegleit1.UniversalID
Call DokBegleit1.Save(True,True)
Call source.fieldsettext("DokId",c1)
Call source.Save
End If
Else
'Es ist kein neues Dokument
Dim Datenbank2 As NotesDatabase
Dim DokBegleit2 As NotesDocument
Dim item1 As NotesItem
Set Datenbank2 = New NotesDatabase("",Filename)
If Not Datenbank2.IsOpen Then
Messagebox "Datenbank steht nicht zur Verfügung!"
Exit Sub
Else
Set dokbegleit2= datenbank2.getDocumentByUnId(a4)
REM *****Hier muss der Fehler stecken er legt das Dokument REM *****nicht an bzw. aktualisiert es nicht wenn er es findet.
If (dokbegleit2 Is Nothing) Then
Set DokBegleit2 = Datenbank2.CreateDocument
DokBegleit2.Form = "Termin"
DokBegleit2.Status = a1
DokBegleit2.Berater = a2
DokBegleit2.VonManuel = a3
DokBegleit2.Thema = b1
DokBegleit2.StartDate = b2
DokBegleit2.StartTime = b3
DokBegleit2.Beschreibung = b4
c1=DokBegleit2.UniversalID
Call DokBegleit2.Save(True,True)
Call source.fieldsettext("DokId",c1)
Call source.Save
Else
Set dokbegleit2= datenbank2.getDocumentByUnId(a4)
Set item1 = dokbegleit2.ReplaceItemValue( "Form","Termin" )
Set item1 = dokbegleit2.ReplaceItemValue( "Status",a1 )
Set item1 = dokbegleit2.ReplaceItemValue( "Berater",a2 )
Set item1 = dokbegleit2.ReplaceItemValue( "VonManuel",a3 )
Set item1 = dokbegleit2.ReplaceItemValue( "Thema",b1 )
Set item1 = dokbegleit2.ReplaceItemValue( "StartDate",b2 )
Set item1 = dokbegleit2.ReplaceItemValue( "StartTime",b3 )
Set item1 = dokbegleit2.ReplaceItemValue( "Beschreibung",b4 )
Call dokbegleit2.Save( True, True )
End If
End If
End If
Else
'Kalendereintrag ist kein Termin oder ein Termin mit Option Privat
Messagebox "Kein Übertragungstermin ausgewählt"
Goto Enden
End If
Enden:
REM ---- Ende des eigenen Scriptes
geht noch weiter aber das ist ok
