Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: William Wallace am 28.12.05 - 13:09:15

Titel: Kalender: CurrentCalendarDateTime
Beitrag von: William Wallace am 28.12.05 - 13:09:15
Hallo,

noch eine Frage in diesem Jahr: Wie kriege ich das gewählte Kalenderdatum zurück, wenn ich in einer Kalender-View einen Doppelklick auf ein Datum mache. Hintergrund: Ich möchte - wie beim Mail-Kalender - dass das Feld 'Datum' mit dem Datum gefüllt wird, auf welches ich zuvor geklickt habe.

Gruß,
William
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: Driri am 28.12.05 - 14:12:51
Aus der Designer-Hilfe :

Zitat
Syntax
To get: dateV = notesUIView.CalendarDateTime
Usage
This is the target date-time when the user does a copy, paste, or drag and drop operation in a calendar view.
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: William Wallace am 29.12.05 - 09:13:57
Hallo,

das funktioniert bei mir leider nicht. Auch die Properties aus dem Workspace sind nicht gefüllt. Ich habe mir die Umsetzung im Mailfile angeschaut, dort wird aber auch nicht anders gearbeitet. Woran kann es noch liegen? Habe dein Script wie in der Hilfe angewendet - ohne Erfolg.

Gruß,
William
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: Tode am 29.12.05 - 10:14:51
was soll da nicht funktionieren ?
einfach im Regiondoubleclick der Ansicht folgendes einfügen:

dateV = source.CalendarDateTime

Gruß
Tode
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: William Wallace am 29.12.05 - 10:46:06
Hallo,

mein Fehler - funktioniert nun. Habe jetzt nur das Problem, wie ich den Wert von dateV in mein Feld bekomme. Bisherige Formel


Sub Regiondoubleclick(Source As Notesuiview)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   
   dateV = source.CalendarDateTime   
   Set doc = db.Createdocument
   doc.form = "MSlot"
   Call ws.editdocument(True, doc)
   Call doc.ReplaceItemValue("vonDatum" , dateV)  <---- geht nicht
End Sub


Gruß,
William
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: Driri am 29.12.05 - 10:56:05
Wo ist dateV denn deklariert ? Mit Option Declare hättest Du das sofort gemerkt.
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: William Wallace am 29.12.05 - 11:00:21
Option declare

und


Sub Regiondoubleclick(Source As Notesuiview)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim dateV
   Set db = session.CurrentDatabase
   
   dateV = source.CalendarDateTime   
   Set doc = db.Createdocument
   doc.form = "MSlot"
   Call ws.editdocument(True, doc)
               Call doc.ReplaceItemValue("vonDatum" , dateV)
End Sub
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: Driri am 29.12.05 - 11:14:42
Dim dateV As ??? Da fehlt was.

Und vertausch mal die letzten beiden Zeilen. Ansonsten wird das Dokument erst im Editmode geöffnet und dann wird im Background das Item gesetzt. Die Änderung bekommst Du im Frontend nicht angezeigt.
Titel: Re: Kalender: CurrentCalendarDateTime
Beitrag von: William Wallace am 29.12.05 - 11:19:16
Thanx !