Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: jkunze am 30.05.06 - 15:24:34

Titel: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: jkunze am 30.05.06 - 15:24:34

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

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: klaussal am 30.05.06 - 15:31:27

Zitat

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

Gibt's da eine FM ?

Zitat

Kann ich das in den Vorgaben irgendwo erlauben oder einstellen?

Wo hast Du denn schon mal nachgesehen ?

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: jkunze am 30.05.06 - 15:36:01

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

Titel: Gibt es ein Tool zum Feldname und Feldwert auslesen eines Dokuments?
Beitrag von: jkunze am 30.05.06 - 16:31:41

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

Gruß Jochen

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: koehlerbv am 30.05.06 - 16:34:32

Es sind bei weitem nicht soviele Felder zwingend erforderlich.

Bernhard

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: Driri am 30.05.06 - 16:45:15

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.

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: sloe am 30.05.06 - 16:57:22

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...

Titel: Prima, damit krieg ichs hin!
Beitrag von: jkunze am 30.05.06 - 17:07:52

Danke für die Tips,

Gruß Jochen

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: koehlerbv am 30.05.06 - 18:05:41

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.

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: sloe am 31.05.06 - 17:06:38

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

Titel: Re: Ganztägige Veranstaltung per Agent in fremden Kalender eintragen.
Beitrag von: jkunze am 01.06.06 - 09:47:58

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

Gruß Jochen