Domino 9 und frühere Versionen > ND9: Entwicklung

Traveler zeigt auf iPhone letzten Urlaubstag nicht an.

(1/1)

schroederk:
Hallo,

ich erstelle über einen Agenten (deshalb in der Rubrik Entwicklung) automatisiert Abwesenheiten (i.d.R Urlaub) im Kalender des Antragstellers und auch beim Genehmiger.
Im Notes werden die wiederholdenden Termine korrekt angezeigt, aber auf dem iPhone/iPad fehlt der letzte Tag.

Im Beispiel fehlt also auf dem iPhone der 17.07.2015 als vorhandener Urlaubstag.

Jetzt die Frage:
Liegt das eventuell daran, dass ich keine Uhrzeit angebe und IOS den 17.07.2015 00:00 Uhr als 00:00 Uhr in der Früh ansieht und daher den Tag nicht anzeigt?
Wie sollte ich die Einträge korrekt setzen, damit auch auf den mobilen Geräten die Einträge korrekt angezeigt werden?

Hier der entsprechende Code:


--- Code: --- Dim startDate As Variant
Dim endDate As Variant
Dim aExcludeView(1) As String
Dim cprofile As NotesDocument
Dim mailowner As String
Dim vDates As Variant
Dim iLoop As Integer

Dim atCSWISL (0 To 4) As String
atCSWISL(0)="$S:1"
atCSWISL(1)="$L:1"
atCSWISL(2)="$B:1"
atCSWISL(3)="$R:1"
atCSWISL(4)="$E:1"

Dim atWatched (0 To 4) As String
atWatched(0)="$S"
atWatched(1)="$L"
atWatched(2)="$B"
atWatched(3)="$R"
atWatched(4)="$E"

aExcludeView(0) = "D"
aExcludeView(1) = "S"

Set db = s.GetDatabase(argserver, argdb, False)

If Not db.IsOpen Then Call db.Open("", "")

Set cprofile = db.GetProfileDocument("CalendarProfile")
mailowner = cprofile.GetItemValue("Owner")(0)

Set view = db.GetView("Calendar")

startdate = CDat(argvdat)
enddate = CDat(argbdat)

Set doc = db.Createdocument()
docid = doc.UniversalID
doc.form = "Appointment"
doc.Subject = argtext
doc.Location = " "
doc.SequenceNum = "1"

doc.StartDate = startdate
doc.StartTime = startdate
doc.StartDateTime = startdate
doc.EndDate = enddate
doc.EndTime = enddate
doc.EndDateTime = enddate

iLoop = enddate - startdate
ReDim vDates (0 To iLoop)

vDates (0) = startdate
For iLoop = 1 To UBound (vDates)
vDates (iLoop) = startdate + iLoop
Next

doc.CalendarDateTime = vDates

doc.Repeats = "1"
doc.RepeatFor = iLoop
doc.RepeatHow = "F"
doc.RepeatForUnit = "D"
doc.RepeatWeekends = "D"
doc.RepeatUnit = "D"
doc.RepeatInterval = "1"
doc.RepeatAdjust = "1"
doc.RepeatStartDate = startdate
doc.RepeatDates = vDates

doc.ExcludeFromView = aExcludeView

doc.MeetingType = "1"

doc.AppointmentType = argtype
doc.MessageType = "Not a draft"
doc.Logo = "StdNotesLtr3"
doc.OrgTable = "P0"
doc.SchedulerSwitcher = "1"
doc.Notes = ""
doc.Body = "Automatisch erzeugt durch den Agenten. **ID=" & arguid & "**"
doc.~_ViewIcon = "9"
doc.EndTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
doc.StartTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
doc.UpdateSeq = 1
doc.WebDateTimeInit = 1
doc.~$AlarmDisaOObled = "1"
doc.~$PublicAccess = "1"

doc.~$CSWISL = atCSWISL
doc.~$WatchedItems = atWatched
doc.~$CSFlags = "m"
doc.OrgRepeat = "1"
doc.~$CSVersion = "2"

doc.Chair = mailowner
doc.AltChair = mailowner
doc.From = mailowner
doc.Principal = mailowner

If argtype = "2" Then
doc.BookFreeTime = "0"
doc.~$BusyName = mailowner
doc.~$BusyPriority = "1"
End If
doc.ApptUNID = docid

Call doc.Save( True, True )
Print "Eintrag wurde erstellt"

--- Ende Code ---

Navigation

[0] Themen-Index