IMetabaseUsersUpdate.ItemSetup

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Sec: IMetabaseSecurity;
    Users: IMetabaseUsers;
    User: IMetabaseUser;
    i: Integer;
    UsUpdate: IMetabaseUsersUpdate;
    Subj: ISecuritySubject;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    Sec := MB.Security;
    Users := Sec.Users;
    // Создадим обновление
    UsUpdate := Sec.CreateUsersUpdate;
    For i := 0 To Users.Count - 1 Do
        User := Users.Item(i);
        UsUpdate.Add(User);
        If User.Name = "NewUser" Then
            UsUpdate.ItemSetup(i).UpdateType := MetabaseSecuritySubjectUpdateType.DBGrant;
        End If;
    End For;
    For i := 0 To UsUpdate.Count - 1 Do
        Subj := UsUpdate.ItemSetup(i).Subject;
        Debug.Writeline(i.ToString + ". Name: " + Subj.Name);
    End For;
    Sec.UpdateUsers(UsUpdate);
    // Сохраним изменения
    Sec.Apply;
    // Освободим лицензию
    Lic := Null;
End Sub UserProc;