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 ?

[umi]

Hallo
Hier http://www-10.lotus.com/ldd/ddwiki.nsf/dx/cs_schema_toc findest Du alles zu C&S von Notes.