IMetabaseuser.IsTemporary

Синтаксис Fore

IsTemporary : Boolean;

Синтаксис Fore.NET

IsTemporary : boolean;

Описание

Свойство IsTemporary возвращает признак соответствия пользователя временной учетной записи.

Пример Fore

Для выполнения примера предполагается наличие на форме компонента Button с идентификатором Button1.

Добавьте ссылки на системную сборку Metabase.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    User: IMetabaseUser;
    Users: IMetabaseUsers;
Begin
    MB := MetabaseClass.Active;
    Users := MB.Security.Users;
    User := Users.Item(0);
    If User.IsTemporary = True Then
    User.TemporaryAge := 10;
    Else
        Debug.Write("Пользователь не является временным");
    End If;
End Sub Button1OnClick;

В результате выполнения примера после нажатия кнопки будет проведена проверка является ли пользователь с идентификатором 0 временным. Если пользователь является временным, то ему будет установлен временный период в 10 дней при помощи свойства IMetabaseUser.Temporary. Если пользователь не является временным, то в консоли будет выведено сообщение "Пользователь не является временным".

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Metabase;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    User: IMetabaseUser;
    Users: IMetabaseUsers;
Begin
    MB := Self.Metabase;
    Users := MB.Security.Users;
    User := Users.Item[0];
    If User.IsTemporary = True Then
    User.TemporaryAge := 10;
    Else
        System.Diagnostics.Debug.Write("Пользователь не является временным");
    End If;
End Sub;

См. также:

IMetabaseUser