Frage zu Mehrtägigem Kalendereintrag per LotusSkript -> CalendarDateTime

Muesly · 31. August 2006

Hallo zusammen,

ich verzweifel gerade am Kalendereintrag. Dank der Suchfunktion hab ich einiges dazu gefunden und es klappt auch schon alles bis auf das Feld CalendarDateTime

Also ich möchte automaitsch Urlaubseinträge im Kalender erstellen, die Teilfunktion dafür sieht bisher so aus (siehe unten)

Mein Problem ist das ich nur die Felder "Von" und "Bis" habe (z.B.
Von = "31.08.2006"
Bis = "10.09.2006"

und daraus ja das CalendarDateTime mit mehreren Werten füllen muss damit das Dokument in meinem Kallender auch richtig angezeigt wird.

Wie kann ich aus meinem Von Bis denn so ein Feld bekommen???

31.08.2006 04:00:00 CEDT
01.09.2006 04:00:00 CEDT
02.09.2006 04:00:00 CEDT
03.09.2006 04:00:00 CEDT
04.09.2006 04:00:00 CEDT
05.09.2006 04:00:00 CEDT
06.09.2006 04:00:00 CEDT
07.09.2006 04:00:00 CEDT
08.09.2006 04:00:00 CEDT
09.09.2006 04:00:00 CEDT
10.09.2006 04:00:00 CEDT

Code

Function CreateUrlaub(maildb As NotesDatabase, Von As String, Bis As String, Fullname As String)

Dim doc As New NotesDocument(maildb)
Dim item As NotesItem

doc.Form = "Appointment"


doc.Subject = "Urlaub"
doc.AppointmentType = "2"
Set ndtstart = New NotesDateTime(Von + " 08:00")
doc.StartDate  = ndtstart.LSLocalTime
doc.CalendarDateTime = ndtstart.LSLocalTime
doc.StartDateTime  = ndtstart.LSLocalTime
Set ndtend = New NotesDateTime(Bis + " 17:00")
doc.EndDate = ndtend.LSLocalTime
doc.EndDateTime = ndtend.LSLocalTime

Set item = doc.ReplaceItemValue("_ViewIcon",  9)
Set item = doc.ReplaceItemValue("SequenceNum",  1)

' CalendarDateTime


	
Call doc.ComputeWithForm(True, False)		
Call doc.Save( True, True )

End Function

Alles anzeigen

Danke!

Diali · 31. August 2006

schreib doch die Datumswerte in ein Array und das Array wird dann ins Feld geschrieben.

array(0) = ndt1.LSLocalTime
array(1) = ndt2.LSLocalTime
array(2) = ndt3.LSLocalTime
...
array(X) = ndtX.LSLocalTime
doc.CalendarDateTime = array

Gruß
Dirk

Muesly · 31. August 2006

danke jetzt weiß ich schonmal wie ich das ganze in das feld bekomme...

kann ich das array aber irgendwie gernerieren von beginn datum bis ende datum?

Dankeschön!

taurec · 31. August 2006

Mit einer Schleife drumherum.
Diese ändert dann per Adjust den Datetime und den schreibst du dann jeweils in die entsprechende Array Position

Muesly · 31. August 2006

Hm, ich versuche mal...

Code

' CalendarDateTime
	Dim ndttmp As NotesDateTime
	Dim i As Integer
	i = 0	
	Set ndttmp = New NotesDateTime(Von + " 08:00")
	Set temp(i) = ndttmp
	While(ndttmp.DateOnly = Bis)
		i = i + 1
		ndttmp.AdjustDay(1)
		Set temp(i) = ndttmp
	Wend

	doc.CalendarDateTime = temp

Alles anzeigen

taurec · 31. August 2006

Mit einem gleich kannst du DateTimes nicht vergleichen. Dafür brauchst du die Methode TimeDifference der NotesDateTime Klasse.

bofh · 31. August 2006

Und Du willst, wie bereits mehrfach in anderen Threads erwähnt, das IBM Lotus Notes Calendaring & Scheduling Schema lesen.

Muesly · 31. August 2006

erstmal n grosses danke an alle!

Zitat

Mit einem gleich kannst du DateTimes nicht vergleichen. Dafür brauchst du die Methode TimeDifference der NotesDateTime Klasse.

Bis ist ein String
Und NotesDateTime.DateOnly liefert doch auch einen String zurück.

Zitat

Und Du willst, wie bereits mehrfach in anderen Threads erwähnt, das IBM Lotus Notes Calendaring & Scheduling Schema lesen.

Das hab ich gedruckt neben mir. Habs in nem älteren post von dir gefunden, danke ;o)
Aber zu dem Thema werd ich darin auch nicht schlauer ;o(

Mein Skript geht dennoch nicht er bringt
"Variant does not contains an object" in der Zeile
Temp(i) = Set temp(i) = ndttmp.LSLocalTime

Code

' CalendarDateTime
	Dim ndttmp As NotesDateTime
	Dim i As Integer
	i = 0	
	Set ndttmp = New NotesDateTime(Von + " 08:00")
	Set temp(i) = ndttmp.LSLocalTime
	While(ndttmp.DateOnly = Bis)
		i = i + 1
		ndttmp.AdjustDay(1)
		Set temp(i) = ndttmp.LSLocalTime
	Wend

Alles anzeigen

taurec · 31. August 2006

Hast du denn Temp irgendwo als Array deklariert und auch initialisiert ?

Wenn du uns nur Bruchstücke deines Codes lieferst ist es ziemlich schwer einen fehler herauszufinden

Muesly · 31. August 2006

Tja jetzt leuchtet wieder mein "LotusSkript Noob" Tatoo auf der Stirn: Wie deklariere ich ein Array? Nicht als Variant?

Code

Function CreateUrlaub(maildb As NotesDatabase, Von As String, Bis As String, Fullname As String)

	Dim doc As New NotesDocument(maildb)
	Dim item As NotesItem
	Dim temp As Variant


	doc.Form = "Appointment"

	doc.Subject = "Urlaub"
	doc.AppointmentType = "2"
	Set ndtstart = New NotesDateTime(Von + " 08:00")
	doc.StartDate  = ndtstart.LSLocalTime
	doc.CalendarDateTime = ndtstart.LSLocalTime
	doc.StartDateTime  = ndtstart.LSLocalTime
	Set ndtend = New NotesDateTime(Bis + " 17:00")
	doc.EndDate = ndtend.LSLocalTime
	doc.EndDateTime = ndtend.LSLocalTime

	' weitere Felder damit da was geht ;)

	Set item = doc.ReplaceItemValue("$BusyName",  Fullname)
	Set item = doc.ReplaceItemValue("$BusyPriority",  "1")
	Set item = doc.ReplaceItemValue("$AltPrincipal",  Fullname)
	Set item = doc.ReplaceItemValue("$LangChair",  "")

	Set item = doc.ReplaceItemValue("_ViewIcon",  9)
	Set item = doc.ReplaceItemValue("SequenceNum",  1)

	' CalendarDateTime
	Dim ndttmp As NotesDateTime
	Dim i As Integer
	i = 0	
	Set ndttmp = New NotesDateTime(Von + " 08:00")
	Set temp(i) = ndttmp.LSLocalTime
	While(ndttmp.DateOnly = Bis)
		i = i + 1
		ndttmp.AdjustDay(1)
		Set temp(i) = ndttmp.LSLocalTime
	Wend

	doc.CalendarDateTime = temp	

	Call doc.ComputeWithForm(True, False)		
	Call doc.Save( True, True )

End Function

Alles anzeigen

dnotes · 31. August 2006

Das Array temp ist falsch definiert. entweder ein Variant...dann kannst Du ihm ein Array uebergeben...oder es ist ein Array, dann aber nicht als Variant definieren.

taurec · 31. August 2006

Doch kannst du machen aber dann brauchst du ein Redim mit dem du die Anzahl der Elemente in dem Array festlegst.

Wenn du dir mal die Designerhilfe unter Arrays anschaust, dann findest du da alle Infos dazu.
Auch wie Arrays deklariert und initialisiert werden

dnotes · 31. August 2006

Ich wuerde mir ja in dem Dokument ein verstecktes, berechnetes Feld erstellen, dass mit @explode mir die einzelnen Tage von der Zeitspanne hinterlegen. Dann musst Du da nicht mit Script Verrenkungen anstellen.

Muesly · 31. August 2006

Code

...
' CalendarDateTime
	Dim temp() As NotesDateTime
	Dim ndttmp As NotesDateTime
	Dim i As Integer
	Dim j As Integer
	i = 0	
	Set ndttmp = New NotesDateTime(Von + " 08:00")	
	' Anzahl feststellen
	While(ndttmp.DateOnly <> Bis)
		i = i + 1
		ndttmp.AdjustDay(1)
	Wend

	Redim Preserve temp(i) 
	j = 0
	Set ndttmp = New NotesDateTime(Von + " 08:00")	
	Set temp(j) = ndttmp

	For j = 1 To i Step 1
		ndttmp.AdjustDay(1)	
		Set temp(j) = ndttmp
	Next

	doc.CalendarDateTime = temp	
...

Alles anzeigen

Jetzt steht in dem Arrry in jedem feld immer der höchste wert.
hm... probiers mal mit immer einem new notesdatetime...

Muesly · 31. August 2006

Es geht!

Vielen vielen Dank an euch alle!!!

Code

Function CreateUrlaub(maildb As NotesDatabase, Von As String, Bis As String, Fullname As String)

	Dim doc As New NotesDocument(maildb)
	Dim item As NotesItem

	doc.Form = "Appointment"

	doc.Subject = "Urlaub"
	doc.AppointmentType = "2"
	Set ndtstart = New NotesDateTime(Von + " 08:00")
	doc.StartDate  = ndtstart.LSLocalTime
	doc.CalendarDateTime = ndtstart.LSLocalTime
	doc.StartDateTime  = ndtstart.LSLocalTime
	Set ndtend = New NotesDateTime(Bis + " 17:00")
	doc.EndDate = ndtend.LSLocalTime
	doc.EndDateTime = ndtend.LSLocalTime

	' weitere Felder damit da was geht ;)

	Set item = doc.ReplaceItemValue("$BusyName",  Fullname)
	Set item = doc.ReplaceItemValue("$BusyPriority",  "1")
	Set item = doc.ReplaceItemValue("$AltPrincipal",  Fullname)
	Set item = doc.ReplaceItemValue("$LangChair",  "")

	Set item = doc.ReplaceItemValue("_ViewIcon",  9)
	Set item = doc.ReplaceItemValue("SequenceNum",  1)

	' CalendarDateTime
	Dim temp() As NotesDateTime
	Dim ndttmp As NotesDateTime
	Dim i As Integer
	Dim j As Integer
	i = 0	
	Set ndttmp = New NotesDateTime(Von + " 08:00")	
	' Anzahl feststellen
	While(ndttmp.DateOnly <> Bis)
		i = i + 1
		ndttmp.AdjustDay(1)
	Wend
	i = i - 1
	Redim Preserve temp(i) 
	j = 0
	Set ndttmp = New NotesDateTime(Von + " 08:00")	
	Set temp(j) = New NotesDateTime(ndttmp.DateOnly + " 08:00")

	For j = 1 To i Step 1
		ndttmp.AdjustDay(1)	
		Set temp(j) = New NotesDateTime(ndttmp.DateOnly + " 08:00")
	Next

	doc.CalendarDateTime = temp	

	Call doc.ComputeWithForm(True, False)		
	Call doc.Save( True, True )

End Function

Alles anzeigen

Diali · 31. August 2006

du schreibst ja auch nur ein Verweis auf das Objekt rein.

Code

dim temp() as Variant


dim ndtstart as New NotesDatetime (cstr(doc.start(0)))
dim ndtende as New NotesDatetime (cstr(doc.ende(0)))


anzahl = ndtende.TimeDifference( ndtstart)


redim temp(anzahl)


for i = 0 to anzahl
   Call ndtstart.AdjustDay(1)
   temp(i) = ndtstart.LSLocalTime
next
doc.CalendarDateTime = temp
doc.Save true, true, true

Alles anzeigen

Gruß
Dirk

jklein · 21. Mai 2009

coole sache, was passiert denn bei euch, wenn ihr einen termin der serie anfasst und im kalender auf einen anderen tag verschiebt. bei mir wird leider aus allen einträgen (z.b. 10) nur noch einer. Genau der, auf den ich den Termin verschoben habe, dabei will ich doch nur einen Termin innerhalb der Serie verschieben.

Teilen