IMetabaseUsersUpdate.AddGroupUsers

Синтаксис Fore

AddGroupUsers(Value: IMetabaseGroup; UpdateType: MetabaseSecuritySubjectUpdateType);

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

AddGroupUsers(Value: Prognoz.Platform.Interop.Metabase.IMetabaseGroup; UpdateType: Prognoz.Platform.Interop.Metabase.MetabaseSecuritySubjectUpdateType);

Параметры

Value. Группа пользователей;

UpdateType. Способ обновления.

Описание

Метод AddGroupUsers включает всех пользователей группы в список для обновления.

Пример Fore

Для выполнения примера подключите к модулю системную сборку Metabase. В «Форсайт. Аналитическая платформа» должна быть создана группа пользователей с наименованием «Тестовая группа».

Sub UserProc;
Var
    Sec: IMetabaseSecurity;
    UsUp: IMetabaseUsersUpdate;
    Gr: IMetabaseGroup;
Begin
    Sec := MetabaseClass.Active.Security;
    UsUp := Sec.CreateUsersUpdate;
    Gr := Sec.ResolveName("ТЕСТОВАЯ ГРУППА") As IMetabaseGroup;
    UsUp.AddGroupUsers(Gr, MetabaseSecuritySubjectUpdateType.DBGrant);
    // Обновляем
    Sec.UpdateUsers(UsUp);
End Sub UserProc;

После выполнения примера будут обновлены все пользователи группы.

Пример Fore.NET

В «Форсайт. Аналитическая платформа» должна быть создана группа пользователей с наименованием «Тестовая группа». Указанная процедура является точкой входа для .NET-сборки.

Public Shared Sub Main(Params: StartParams);
Var
    Sec: IMetabaseSecurity;
    UsUp: IMetabaseUsersUpdate;
    Gr: IMetabaseGroup;
Begin
    Sec := Params.Metabase.Security;
    UsUp := Sec.CreateUsersUpdate();
    Gr := Sec.ResolveName("ТЕСТОВАЯ ГРУППА") As IMetabaseGroup;
    UsUp.AddGroupUsers(Gr, MetabaseSecuritySubjectUpdateType.mesesuuptyDBGrant);
    // Обновляем
    Sec.UpdateUsers(UsUp);
End Sub;