Kalender: CurrentCalendarDateTime

[William Wallace]

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

[Driri]

Aus der Designer-Hilfe :

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.

[William Wallace]

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

[Tode]

was soll da nicht funktionieren ?
einfach im Regiondoubleclick der Ansicht folgendes einfügen:

dateV = source.CalendarDateTime

Gruß
Tode

[William Wallace]

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

[Driri]

Wo ist dateV denn deklariert ? Mit Option Declare hättest Du das sofort gemerkt.

[William Wallace]

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}

[Driri]

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.

[William Wallace]

Thanx !