Domino 9 und frühere Versionen > ND8: Entwicklung
Kalender: "Element des Dokuments nicht gefunden"
Hedwig14:
Hallo,
ich habe per LS einen Kalendereintrag beim User erstellt. Der Termin wird auch im Kalender angezeigt. Bei manuellen Änderungen an dem Termin erhält der User beim Speichern folgenden Hinweis:
"Beim Speichern ist ein Fehler aufgetreten. Element des Dokuments nich gefunden"
Hat jemand eine Idee welche Element feht ? Hier der Auszug aus dem Code:
'Felder für den Termin setzen
Set kalender_doc = New NotesDocument(userdb)
Dim body As New NotesRichTextItem(kalender_doc, "Body")
kalender_doc.Form = "Appointment"
kalender_doc.AppointmentType = "2"
kalender_doc.Categories = "Urlaub"
kalender_doc.Subject = vwz
kalender_doc.~_ViewIcon = 9
kalender_doc.~$AltPrincipal = person.Canonical kalender_doc.~$BusyName = person.Common
Set itemTemp = kalender_doc.GetFirstItem ("$BusyName")
itemTemp.IsNames = True
kalender_doc.~$BusyPriority = "1"
kalender_doc.~$CSversion = "2"
kalender_doc.~$PublicAccess = "1"
kalender_doc.~$FromPreferredLanguage = "de"
kalender_doc.~$TableSwitcher = "Description"
kalender_doc.~$PublicAccess = 1
kalender_doc.~IconSwitcher = "AllDayEvent"
kalender_doc.OrgState = "x"
kalender_doc.AltChair =person.Canonical
kalender_doc.BookFreeTime = ""
kalender_doc.Chair = person.Canonical
kalender_doc.ExcludeFromView = "D"
kalender_doc.ExcludeFromView = Arrayappend( kalender_d.ExcludeFromView, "S" )
kalender_doc.Principal = person.Canonical
kalender_doc.tmpOwnerHW = "1"
kalender_doc.Logo = "StdNotesLtr14"
kalender_doc.dispduration_1 =" 1 Stunde"
'Termine Beginn
kalender_doc.StartDate = startDateTime.LocalTime
kalender_doc.StartDateTime = startDateTime.LocalTime
kalender_doc.StartTime = startDateTime.LocalTime
kalender_doc.tmpStartDate1 = startDateTime.LocalTime
kalender_doc.tmpStartTime_Local = startDateTime.LocalTime
kalender_doc.tmpStartTimeTZText = startDateTime.LocalTime
kalender_doc.tmpStartDateTZText = startDateTime.LocalTime
'Termine Ende
kalender_doc.EndDate = endeDateTime.LocalTime
kalender_doc.EndDateTime = endeDateTime.LocalTime
kalender_doc.EndTime = endeDateTime.LocalTime
kalender_doc.~$NoPurge = endeDateTime.LocalTime
kalender_doc.tmpEndTime_Local = endeDateTime.LocalTime
kalender_doc.tmpEndTimeTZText = endeDateTime.LocalTime
kalender_doc.tmpEndDateTZText = endeDateTime.LocalTime
'wiederkehrende Termine
Dim ndt_CalendarDateTime As Variant
Redim ndt_CalendarDateTime(0)
ndt_CalendarDateTime(0) = startDateTime.LSLocalTime
Call startDateTime.AdjustDay(1)
i = 0
While endeDateTime.TimeDifference(startDateTime) > 0
Redim Preserve ndt_CalendarDateTime(Ubound(ndt_CalendarDateTime) + 1)
ndt_CalendarDateTime(Ubound(ndt_CalendarDateTime)) = startDateTime.LSLocalTime
call startDateTime.AdjustDay(1)
Wend
kalender_doc.CalendarDateTime = ndt_CalendarDateTime
'Termin speichern
Call kalender_doc.save(True, True)
'Call MailVersenden(person.Canonical, "Mail_OSP_ZW_genehmigt")
ascabg:
Hallo,
Ich bin nun nicht der Kalenderexperte, aber ist es nicht so, dass bei allen Dokumenten
die etwas mit dem Kalender zu tun haben, es ein Feld "ApptUNID" gibt.
In Deinem Auszug aus dem Code kann ich dieses nicht finden.
Andreas
Hedwig14:
ab das Feld müßte doch automatisch belegt werden, oder ? Sieht m.E. so aus.... ?
ascabg:
Es werden aber bei Deinem Erstellen des Kalenderdokumentes nicht die Standard-Routinen
durchlaufen.
(QueryRecalc, QuerySave, ...)
Wann also sollte denn dann da Feld automatisch geschrieben werden?
Und hast Du ein solches Dokument einmal geoeffnet und den Debugger aktiv gehabt, um zu
sehen, an welcher Stelle es zu einem Fehler kommt?
Andreas
Hedwig14:
ja, den Debugger hatte ich aktiv. Da konnte ich aber nichts erkennen...
Stimmt, QueryRecalc und QuerySave laufen nicht an.
Kann man denn gar keine Termine per LS anlegen ?
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln