Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: volti0815 am 07.10.03 - 10:52:50

Titel: Kalendereintrag mit Option "Vormerken"
Beitrag von: volti0815 am 07.10.03 - 10:52:50

Hallo,

in einer Urlaubs-DB kann der User über eine Schaltfläche den Urlaub in seinen Kalender einzutragen. Das Ganze läuft über unten aufgeführten Script.

Zusätzlich möchte ich jetzt eine Schaltfläche für Vorgesetzte hinzufügen. Hier darf allerdings im Kalender die Zeit nicht als belegt markiert werden. Was muss ich ändern, damit das Feld "Vormerken" aktiviert wird?

REM Kalenereintrag erzeugen
Sub Click(Source As Button)
   Dim session As New NotesSession   
   Dim db As New NotesDatabase ("","")
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument   
   Dim userName As New notesname(session.username)
   Dim dbfilename As String
   Dim dbserver As String
   Dim value As Integer
   Dim vondatum As String
   Dim bisdatum As String
   
   Call db.OpenMail   
   dbfilename=db.filepath   
   dbserver = db.server
   
   value = Messagebox ("Soll der Urlaub / die Abwesenheit " + Chr(10) + "in den Kalender eingetragen werden?", (4+32+0+0), "Abwesenheit in den eigenen Kalender eintragen")
   
   If (value = 6) Then
      
      Set uidoc = ws.CurrentDocument
      vondatum = uidoc.FieldGetText( "von" )
      bisdatum = uidoc.FieldGetText( "bis" )
      user = uidoc.FieldGetText("Kalendereintrag")
      Print vondatum, bisdatum   
      
      Set uidoc = ws.ComposeDocument (dbserver,dbfilename,"Appointment")
      Call uidoc.FieldSetText("Subject",user)
      Call uidoc.FieldSetText("StartDate",vondatum)      
      Call uidoc.FieldSetText("EndDate",bisdatum)
      Call uidoc.FieldSetText("AppointmentType","2")      
      Call uidoc.Save()
      Call uidoc.Close()
      
      Messagebox ("Abwesenheit wurde in den Kalender eingetragen")
   Else
      Messagebox ("Kalender wurde nicht verändert")
   End If
   
End Sub

Vielen Dank im Voraus!

Martin

Titel: Re:Kalendereintrag mit Option "Vormerken"
Beitrag von: sloe am 07.10.03 - 11:34:56

Hi,
...
Call uidoc.FieldSetText("AppointmentType","2")
Call uidoc.Refresh()
Call uidoc.FieldSetText("BookFreeTime","1")    
Call uidoc.Save()
Call uidoc.Close()
...
Anscheinend wird das Vormerken-Feld durch Validierung überschrieben, also zuerst ein Refresh.
Gruß
sloe

Titel: Re:Kalendereintrag mit Option "Vormerken"
Beitrag von: Driri am 07.10.03 - 11:35:19

Hi,

schau doch einfach mal in der Schablone für die Maildatenbank oder im Design deiner Maildb nach. In der Maske für die Kalendereinträge müßte das Feld ja drinstehen und da steht dann auch, welcher Wert gesetzt werden muß.

Titel: Re:Kalendereintrag mit Option "Vormerken"
Beitrag von: volti0815 am 07.10.03 - 12:07:56

Vielen Dank für die Hilfe!

Gruss

Martin