Добрый день !
Прошу помочь в вопросе отображения в календарном представлении повторений задачи.
Попробовал создавать по аналогии с календарем но не получается, массив дат не срабатывает, если его указывать первой колонке представления
представляю выдержку из кода (создание самой задачи) , специально создавал все значимые поля по аналогии с календарным событием, но для вьюхи главными являются первые два столбца (дата и продолжительность).
Дату беру из CalendarDateTime продолжительность 0
Если создавать отдельные копии события в разных датах (док на дату 1 дак на дату 2 и т.д.), да они появляются, но почему-то неотображается последняя во вью
Прошу помощи ...
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"Часть кода"</div></div><div class="sp-body"><div class="sp-content">
Прошу помочь в вопросе отображения в календарном представлении повторений задачи.
Попробовал создавать по аналогии с календарем но не получается, массив дат не срабатывает, если его указывать первой колонке представления

представляю выдержку из кода (создание самой задачи) , специально создавал все значимые поля по аналогии с календарным событием, но для вьюхи главными являются первые два столбца (дата и продолжительность).
Дату беру из CalendarDateTime продолжительность 0
Если создавать отдельные копии события в разных датах (док на дату 1 дак на дату 2 и т.д.), да они появляются, но почему-то неотображается последняя во вью

Прошу помощи ...
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"Часть кода"</div></div><div class="sp-body"><div class="sp-content">
Код:
resp.form="Appointment"
Call resp.replaceItemValue("AppointmentType", "2")
Call resp.replaceItemValue("$AlarmDisabled", "1")
Call resp.replaceItemValue("$AlarmOffset", "-1440")
Call resp.replaceItemValue("$AlarmUnit", "D")
Call resp.replaceItemValue("$AltPrincipal", s.userName)
Call resp.replaceItemValue("$BorderColor","7F96A3")
Call resp.replaceItemValue("$BusyName", s.userName)
Call resp.replaceItemValue("$BusyPriority", "2")
Call resp.ReplaceItemValue("$ExpandGroups", "3")
Call resp.ReplaceItemValue("$FromPreferredLanguage","ru")
Call resp.ReplaceItemValue("$HFFlags", "1")
Call resp.ReplaceItemValue("$IconSwitcher", "AllDayEvent")
Call resp.ReplaceItemValue("$LangChair", "en")
Call resp.ReplaceItemValue("$LangPrincipal", "en")
Call resp.ReplaceItemValue("$NoPurge", rtend)
Call resp.ReplaceItemValue("$PublicAccess", "1")
Call resp.ReplaceItemValue("$REF",doc.universalID)
Call resp.ReplaceItemValue("$RefOptions", "1")
Call resp.ReplaceItemValue("$Revisions", rtstart)
Call resp.ReplaceItemValue("$SMTPKeepNotesItems", "1")
Call resp.ReplaceItemValue("$TableSwitcher","Description")
Call resp.ReplaceItemValue("Alarms", "0")
Call resp.replaceItemValue("AltChair", s.userName)
Call resp.replaceItemValue("AppendEndTime",rtend)
Call resp.replaceItemValue("AppendStartTime", rtstart)
Call resp.replaceItemValue("ApptUNID", doc.universalID)
Call resp.replaceItemValue("BookFreeTime", "1")
Dim tmp As New NotesDateTime(rtstart.Dateonly+" 00:00:00")
Dim etmp As New NotesDateTime(rtend.Dateonly+" 23:59:59")
ReDim varCDT(0) As NotesDateTime
Set varCDT(0)=New NotesDateTime(tmp.Dateonly)'.zonetime)
Dim strCDT As String
Call etmp.adjustday(-1)
count=1
Dim rtmp As New NotesDateTime("Now")
Do Until tmp.timedifferencedouble(etmp)>0
ReDim Preserve varCDT(count)
Set rtmp = New NotesDateTime(tmp.Dateonly)
Set varcdt(count)=New NotesDateTime(tmp.Dateonly)'.zonetime)
strCDT=strCDT+";"+CStr(rtmp.Dateonly)
Call tmp.adjustday(1)
count=count+1
Loop
strCDT=Mid(strCDT,2)
Call resp.ReplaceItemValue("CalendarDateTime",varcdt)
Call resp.replaceItemValue("Chair", s.userName)
Call resp.ReplaceItemValue("dspNum", CStr(count+1))
Call resp.ReplaceItemValue("EndDate",etmp)
Call resp.ReplaceItemValue("EndDateTime",etmp)
Call resp.ReplaceItemValue("EndTime",etmp)
Set item = resp.replaceItemValue("From", s.userName)
item.isAuthors = True
Call resp.replaceItemValue("IsBroadcast","0")
Call resp.ReplaceItemValue("OrgRepeat", "1")
Call resp.ReplaceItemValue("ORGTABLE","P0")
Call resp.replaceItemValue("Principal", s.userName)
Call resp.ReplaceItemValue("Repeats", "1")
Call resp.ReplaceItemValue("SaveOptions","")
Call resp.ReplaceItemValue("SchedulerSwitcher", "1")
Call resp.ReplaceItemValue("SEQUENCENUM",1)
Call resp.ReplaceItemValue("StartDate",tmp)
Call resp.ReplaceItemValue("StartDateTime",mp)
Call resp.ReplaceItemValue("StartTime",tmp)
Call resp.ReplaceItemValue("txtNum", CStr(count+1))
Call resp.ReplaceItemValue("UPDATESEQ",1)
Call resp.ReplaceItemValue("WebDateTimeInit", "1")
Call resp.ReplaceItemValue("xMtg", "это собрание")
Call resp.ReplaceItemValue("xToDo", "эта задача")
'----------------------------------------------------------------------