Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Hedwig14 am 18.11.13 - 13:03:56
-
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")
-
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
-
ab das Feld müßte doch automatisch belegt werden, oder ? Sieht m.E. so aus.... ?
-
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
-
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 ?
-
Hallo
Hier http://www-10.lotus.com/ldd/ddwiki.nsf/dx/cs_schema_toc (http://www-10.lotus.com/ldd/ddwiki.nsf/dx/cs_schema_toc) findest Du alles zu C&S von Notes.