Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.

[jkunze]

Hallo,

seit der Umstellung von R5.0.11 auf 6.5.5 kann ich in einen fremden Kalender nur noch Besprechungen eintragen.  Mit meinem Agent muß ich aber "Ganztägige Veranstaltungen" generieren. Das funktioniert nun leider nicht mehr (auch nicht mal  manuell). Kann ich das in den Vorgaben irgendwo erlauben oder einstellen?

Gruß Jochen

[klaussal]

Das funktioniert nun leider nicht mehr (auch nicht mal  manuell).

Gibt's da eine FM ?

Kann ich das in den Vorgaben irgendwo erlauben oder einstellen?

Wo hast Du denn schon mal nachgesehen ?

[jkunze]

Hi,
manuell kann man gar nichts anderes auswählen als die Besprechung und per Agent kommt eine Fehlermeldung "Document command is not available",
Gruß Jochen

[jkunze]

... damit ich es etwas einfacher habe, die ca. 80 Felder manuell zu erzeigen, :-((

Gruß Jochen

[koehlerbv]

Es sind bei weitem nicht soviele Felder zwingend erforderlich.

Bernhard

[Driri]

Ein nettes und kostenloses Tool ist das hier :

http://www.maysoft.com/web3.nsf/page/products-document_viewer-overview

Man kopiert ein Dokument in die Notes-Datenbank, öffnet es dann dort und erhält quasi eine Tabelle mit allen Items und den Werten.

[sloe]

Hallo Jochen,
habe genau dasselbe Thema auch noch an der Backe (unter R5 programmiert ohne Probleme, seit R6 funktioniert es nicht mehr).
Die relevanten Felder findest Du hier:
http://www-128.ibm.com/developerworks/lotus/library/ls-Integrating_C_and_S_into_a_group_application/

Insbesondere für die ganztägige Veranstaltung unter:
http://www-128.ibm.com/developerworks/lotus/library/ls-Integrating_C_and_S_into_a_group_application/side3.html

Muß mich jetzt leider vom Acker machen, schaue aber morgen noch mal vorbei...

[jkunze]

Danke für die Tips,

Gruß Jochen

[koehlerbv]

Hier mal ein Code-Snippet aus einer meiner Apps, die mit Appointments dealen. Hier geht es um mehrtägige ganztägige Veranstaltungen, und wichtig für Jochen sind nur die belegten Felder (wovon man da noch auf einige verzichten kann).

Diese Routine habe ich auch ändern müssen beim Fitmachen für R6, aber das betrifft nur das ComputeWithForm, was man aber getrost auch weglassen kann.

HTH,
Bernhard

Code

		docCalendarEntry.~_ViewIcon =  9
		docCalendarEntry.~$AltPrincipal = docRequest.Requester (0)
		docCalendarEntry.~$BusyName = docRequest.Requester (0)
		Set itemTemp = docCalendarEntry.GetFirstItem ("$BusyName")
		itemTemp.IsNames = True
		docCalendarEntry.~$BusyPriority = "1"
		docCalendarEntry.~$CSversion = "2"
		docCalendarEntry.~$NoPurge = docRequest.EndDate (0)
		docCalendarEntry.~$PublicAccess = "1"		
		docCalendarEntry.AltChair = docRequest.Requester (0)
		docCalendarEntry.BookFreeTime = ""
		docCalendarEntry.Chair = docRequest.Requester (0)
		docCalendarEntry.ExcludeFromView	= ArrayAdd ("D", "S")
		docCalendarEntry.Principal = docRequest.Requester (0)
		docCalendarEntry.tmpOwnerHW = "1"
		
		'Set date / time values:
		docCalendarEntry.StartDate = vStartDate
		docCalendarEntry.StartDateTime = vStartDate
		docCalendarEntry.StartTime = vStartDate
		
		docCalendarEntry.EndDate = vEndDate
		docCalendarEntry.EndDateTime = vEndDate
		docCalendarEntry.EndTime = vEndDate
		
		docCalendarEntry.CalendarDateTime = vDateRange
		
		'Compute any "forgotten" items in the calendar entry document:
		iCWFResult = docCalendarEntry.ComputeWithForm (False, False)

Remark: Dieser Code kann natürlich NICHT 1:1 übernommen werden - siehe oben.

[sloe]

So, ich habe jetzt mein Teil endlich in den Griff bekommen.
Ich habe mein
success = doc.ComputeWithForm( False, False )
endgültig über Bord geworfen (wirklich Grütze bei Appointments) und den Fehler beim CalendarDateTime gefunden. Eine mögliche Lösung:

Code

	tmpDate = strdateStartDay + " 04:00:00"
	Set ndt_datum_von = New NotesDateTime(tmpDate)
	Set ndt_datum_bis = New NotesDateTime(strdateEndDay + " 23:59:59")
	
	Dim ndt_CalendarDateTime As Variant
	Redim ndt_CalendarDateTime(0)
	
	ndt_CalendarDateTime(0) = ndt_datum_von.LSLocalTime
	Call ndt_datum_von.AdjustDay(1)
	
	i = 0
	While ndt_datum_bis.TimeDifference(ndt_datum_von) > 0
		Redim Preserve ndt_CalendarDateTime(Ubound(ndt_CalendarDateTime) + 1)
		ndt_CalendarDateTime(Ubound(ndt_CalendarDateTime)) = ndt_datum_von.LSLocalTime
		Call ndt_datum_von.AdjustDay(1)
	Wend
	
	doc.CalendarDateTime = ndt_CalendarDateTime

Hilfreich war dabei dieser Beitrag:
http://www.dominoforum.de/modules/newbb/viewtopic.php?topic_id=9970&forum=5&post_id=52850#forumpost52850

[jkunze]

Nochmals Danke für alle Tips, jetzt läufts wieder!

Gruß Jochen