IMetabaseSecurity.ActiveUsers

Синтаксис Fore

ActiveUsers: IMetabaseUsers;

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

ActiveUsers: Prognoz.Platform.Interop.Metabase.IMetabaseUsers;

Описание

Метод ActiveUsers возвращает коллекцию пользователей, созданных в текущем репозитории, с учетом пользователей с отложенной загрузкой описания.

Комментарии

При входе в репозиторий загружаются описания пользователей, которые созданы в менеджере безопасности. Их описания можно получить в свойстве Users. Метод ActiveUsers позволяет получить всех пользователей репозитория: пользователей, добавленных в менеджере безопасности, и пользователей, созданных в СУБД, добавленных в репозиторий и имеющих признак отложенной загрузки описания.

Примечание. Метод возвращает только тех пользователей с отложенной загрузки описания, которые также являются пользователями СУБД.

Пример Fore

Sub UserProc;
Var
    MB: IMetabase;
    Sec: IMetabaseSecurity;
    Users: IMetabaseUsers;
    User: IMetabaseUser;
Begin
    MB := MetabaseClass.Active;
    Sec := MB.Security;
    Users := Sec.ActiveUsers;
    For Each User In Users Do
        Debug.WriteLine(User.Name + ": " + User.IsDeferred.ToString);
    End For;
End Sub UserProc;

При выполнении примера в консоль среды разработки будет выведен список пользователей репозитория. В список входя все пользователи, доступные в менеджере безопасности, а также пользователи, которые созданы в СУБД, добавлены в репозиторий и для которых установлен признак отложенной загрузки описания.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Sec: IMetabaseSecurity;
    Users: IMetabaseUsers;
    User: IMetabaseUser;
Begin
    MB := Params.Metabase;
    Sec := MB.Security;
    Users := Sec.ActiveUsers();
    For Each User In Users Do
        System.Diagnostics.Debug.WriteLine(User.Name + ": " + User.IsDeferred.ToString());
    End For;
End Sub;

См. также:

IMetabaseSecurity