ILogonHoursPolicy.WeekDayHours

Синтаксис

WeekDayHours(Index: CalendarDayOfWeek): ILogonHours;

Параметры

Index - день недели, для которого необходимо определить параметры доступа пользователя в платформу.

Описание

Свойство WeekDayHours определяет параметры доступа пользователя по дням недели.

Пример

Для выполнения примера предполагается наличие зарегистрированного в платформе пользователя с идентификатором "User_1".

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

MP: IMetabasePolicy;

User: ISecuritySubject;

LogonHP: ILogonHoursPolicy;

LH: ILogonHours;

d1, d2, d3, d4: DateTime;

i: Integer;

Begin

MB := MetabaseClass.Active;

MS := MB.Security;

MP := MS.Policy;

User := MS.ResolveName("User_1");

LogonHP := MP.LogonHoursPolicy(User);

d1 := DateTime.ComposeTimeOfDay(0, 0, 0, 0);

d2 := DateTime.ComposeTimeOfDay(9, 0, 0, 0);

d3 := DateTime.ComposeTimeOfDay(18, 0, 0, 0);

d4 := DateTime.ComposeTimeOfDay(23, 59, 0, 0);

For i := 1 To 5 Do

LH := LogonHP.WeekDayHours(i As CalendarDayOfWeek);

LH.SetPeriodAccess(d1, d2, False);

LH.SetPeriodAccess(d2, d3, True);

LH.SetPeriodAccess(d3, d4, False);

LogonHP.WeekDayHours(i As CalendarDayOfWeek) := LH;

End For;

//Суббота

LH := LogonHP.WeekDayHours(CalendarDayOfWeek.Saturday);

LH.SetPeriodAccess(d1, d4, False);

LogonHP.WeekDayHours(CalendarDayOfWeek.Saturday) := LH;

//Воскресенье

LH := LogonHP.WeekDayHours(CalendarDayOfWeek.Saturday);

LH.SetPeriodAccess(d1, d4, False);

LogonHP.WeekDayHours(CalendarDayOfWeek.Sunday) := LH;

MS.Apply;

End Sub Main;

После выполнения примера будут изменены параметры доступа по дням недели для пользователя "User_1". Доступ под этим пользователем будет возможен с понедельника по пятницу, с 9 часов утра до 18 часов вечера.

См. также:

ILogonHoursPolicy