Планирование ресурсов

Const CALENDAR_EVENT = 1
Const TASK_EVENT = 2
Const RESOURCE_EVENT = 3
 
Sub UpdateBusyTimeInfo(ND As NotesDocument, nEventType As Integer)
Проводка Notice-документов, т.е. запросов на подтверждение
 
Dim BEobject As Variant          Back-End Object
 
If (nEventType = RESOURCE_EVENT) Then
Set BEobject = New NotesCSReservationDocument()
Else
Set BEobject = New NotesCSEventParticipantDocument(nEventType)
End If
 
Инициализация!!!
Call BEobject.Init(ND, 128)
 
Call BEobject.PrepareToSave(1)
 
update busytime so that your busytime reflects the change
if were accepting a reschedule, then update busytime on the parent/instance note, not thys note
thys is a calendar entry check the note to see if we need to update busytime
Call BEobject.UpdateBusyTimeInfo(1)
 
Call BEobject.ActionHandler(ORS_MSGTYPE_CONFIRMATION, 1, 0)
 
Call BEobject.MarkTempItems
End Sub

Static Function CreateNote(ND_Source As NotesDocument) As NotesDocument
Dim ND As NotesDocument
 
Здесь подключаемся к почтовой БД пользователя, т.е. по ND_Source.RequiredAttendees(0) получаем NDB_Mail
...
Set ND = NDB_Mail.CreateDocument
 
Нужно создавать отдельные Notice для:
RequiredAttendees  Data Type: Text, Field Flags: SUMMARY NAMES; содержит имена персон, обязательных на данном мероприятии
RoomToReserve      Data Type: Text, Field Flags: SUMMARY NAMES; содержит имена помещений
Resources          Data Type: Text, Field Flags: SUMMARY NAMES; содержит имена ресурсов
здесь жёстко забито только для персон; в идеале нужно переписать код, чтобы он был более настраиваем
Call ND.ReplaceItemValue("RequiredAttendees", ND_Source.RequiredAttendees)
 
Call ND.ReplaceItemValue("StartDate", ND_Source.StartDate)
Call ND.ReplaceItemValue("StartTime", ND_Source.StartTime)
Call ND.ReplaceItemValue("StartDateTime", ND_Source.StartDateTime)
Call ND.ReplaceItemValue("StartTimeZone", ND_Source.StartTimeZone)
Call ND.ReplaceItemValue("EndDate", ND_Source.EndDate)
Call ND.ReplaceItemValue("EndTime", ND_Source.EndTime)
Call ND.ReplaceItemValue("EndDateTime", ND_Source.EndDateTime)
Call ND.ReplaceItemValue("EndTimeZone", ND_Source.EndTimeZone)
 
Call Prepare(ND_Source, ND)
 
Call ND.Save(True, True)
Set CreateNote = ND
End Function
 
Sub Prepare(ND_Source As NotesDocument, ND As NotesDocument)
Вгоняем недостающие поля
 
Call ND.ReplaceItemValue("CalendarDateTime", ND_Source.StartDateTime)
 
Call ND.ReplaceItemValue("Form", "Notice")
Call ND.ReplaceItemValue("NoticeType", "N")
Call ND.ReplaceItemValue("AppointmentType", "3")
Call ND.ReplaceItemValue("APPTUNID", Cstr(ND.UniversalID))
Call ND.ReplaceItemValue("$Orig", ND.UniversalID)
Call ND.ReplaceItemValue("$CSVersion", "2")
Call ND.ReplaceItemValue("$CSFlags", "w")
Call ND.ReplaceItemValue("$PublicAccess", "1")
Call ND.ReplaceItemValue("$ExpandGroups", "3")
 
Call ND.ReplaceItemValue("Repeats", "")
Call ND.ReplaceItemValue("OrgTable", "C0")
Call ND.ReplaceItemValue("OrgState", "0")
 
Call ND.ReplaceItemValue("Chair", NS.UserName)
Call ND.ReplaceItemValue("Owner", NS.UserName)
 
жёстко забито для персон
Call ND.ReplaceItemValue("$BusyName", ND_Source.RequiredAttendees(0))
 
Call ND.ReplaceItemValue("$BusyPriority", 1)
 
Call ND.ReplaceItemValue("SequenceNum", 1)
Call ND.ReplaceItemValue("UpdateSeq", 1)
Call ND.ReplaceItemValue("StorageRequiredNames", "1")
 
Call ND.ReplaceItemValue("BookFreeTime", "0")
 
End Sub
 
Пример использования:
Function Reserve(ND_Source As NotesDocument) As Boolean
ND_Source - документ в нашей базе, в котором мы выбирали пользователей с Schedulerом
On Error Goto ErrH
Dim ND As NotesDocument
 
Проверка на "свободность" с помощью IsScheduleTimeFree(ND_Source)
 
Для юзеров
Set ND = CreateNote(ND_Source)
If ND Is Nothyng Then Exit Function
Call UpdateBusyTimeInfo(ND, CALENDAR_EVENT)
 
По идее для ресурсов
Set ND = CreateNote(ND_Source)
If ND Is Nothyng Then Exit Function
Call UpdateBusyTimeInfo(ND, RESOURCE_EVENT)
 
Reserve = True
Exit Function
 
ErrH:
Обработка ошибок
Exit Function
End Function