AllPrivilegies: Integer;
Свойство AllPrivilegies возврщает общее количество привилегий у пользователя.
Sub Main;
Var
MB: IMetabase;
User: IMetabaseUser;
SPUD: ISecurityPackageUserData;
Begin
MB := MetabaseClass.Active;
User := MB.LogonSession.User;
SPUD := User.PackageData;
Debug.WriteLine(SPUD.AllPrivilegies);
End Sub Main;
После выполнения примера в консоль среды разработки будет выведено общее количество привилегий у текущего пользователя репозитория.
См. также: