Замечание к документу "notesSession.FreeTimeSearch"   >>>   
Тема: Точно; заработало! Что-то типа этого (+)

Создан:Vlad Sh 04/27/2007 02:47 PM
Папка:
06. Разработка Notes-приложений		Тип сообщения:
Спасибо !
Сообщение:
Function IsScheduleTimeFree(ND_Sched As NotesDocument) As Boolean
'ND_Sched - объект документа, в форме которого встроен Scheduler
Dim Scheduled As NotesDateRange

'В полях желателен Translation, убирающий секунды...
Set Scheduled = CreateDateRange(DTItemMerge("StartDate", "StartTime", ND_Sched), DTItemMerge("EndDate", "EndTime", ND_Sched))

'Вычисляем (не DefaultDuration) т.к. проверяем конкретный интервал, выбранный с помощью планировщика
Duration% = Scheduled.EndDateTime.TimeDifference(Scheduled.StartDateTime) / 60

'Параметр firstfit здесь не играет никакой рояли...
Free = NS.FreeTimeSearch(Scheduled, Duration%, ND_Sched.RequiredAttendees(0), False)

If Not Free(0) Is Nothing Then
'Простое сравнение Scheduled.Text = Free(0).Text не получается из-за того, что FreeTimeSearch округляет минуты до 5|10,
'оно будет работать, если в полях, обеспечивающих работу планировщика, в Translation поставить аналогичное округление
IsScheduleTimeFree = _
(Scheduled.StartDateTime.LocalTime >= Free(0).StartDateTime.LocalTime And Scheduled.EndDateTime.LocalTime <= Free(0).EndDateTime.LocalTime)
End If
End Function
Иерархия документов данной дискуссии:
Разбирал тут календарь... (Vlad Sh) (24.04.2007 18:31:29)
.... Маленькая поправка: orgconst.lss имеется в программном каталоге Notes вместе со всякими lsconst.lss и т.п.... (Vladimir A. Panov; InterTrust) (25.04.2007 16:14:25)
........ pdf'ник однозначно хорош! (Vlad Sh) (25.04.2007 19:53:57)
........ Наткнулся ещё на одну неприятную вещь (+) (Vlad Sh) (26.04.2007 12:26:35)
............ notesSession.FreeTimeSearch (Vladimir A. Panov; InterTrust) (26.04.2007 15:33:42)
................ Точно; заработало! Что-то типа этого (+) (Vlad Sh) (27.04.2007 14:47:23)
.... А если в одной базе создать несколько календарных профилей (для разных пользователей), будет для них резервироваться время по этой базе?... (Vladimir A. Panov; InterTrust) (25.04.2007 16:35:56)
........ А это идея! (Vlad Sh) (25.04.2007 19:41:40)
............ Все идеи Ваши, а у меня просто свой интерес, но пока чисто "теоретический", до экспериментов руки не доходят (Vladimir A. Panov; InterTrust) (25.04.2007 21:54:41)


Разработчикам и администраторам: курсы, книги, сертификация