IMetabaseObjectDescriptor.GetSecurity

Синтаксис

GetSecurity: IAccessObjectSecurity;

GetSecurity: Prognoz.Platform.Interop.Metabase.IAccessObjectSecurity;

Описание

Метод GetSecurity получает политику доступа объекта. Имеется в виду получение пользователей/групп, элементов доступа и прав по элементам.

Пример

Для выполнения примера необходимо наличие в репозитории справочника НСИ - «ObjTest». Для пользователя, выполняющего пример, должна быть выдана привилегия «Изменение метки безопасности и списка контроля доступа любого объекта».

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

Sub UserProc;
Var
    MB: IMetabase;
    Object: IMetabaseObjectDescriptor;
    SD: ISecurityDescriptor;
    AOS: IAccessObjectSecurity;
Begin
    MB := MetabaseClass.Active;
    Object := MB.ItemById("ObjTest");
    SD := Object.SecurityDescriptor;
    If SD.AccessSecured Then
        AOS := Object.GetSecurity;
        AOS.RevokeAccessSecured;
    End If;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Object: IMetabaseObjectDescriptor;
    SD: ISecurityDescriptor;
    AOS: IAccessObjectSecurity;
Begin
    MB := Params.Metabase;
    Object := MB.ItemById["ObjTest"];
    SD := Object.SecurityDescriptor;
    If SD.AccessSecured Then
        AOS := Object.GetSecurity();
        AOS.RevokeAccessSecured();
    End If;
End Sub;

После выполнения примера для справочника НСИ будет отключено использование прав доступа для элементов, если ранее оно было включено.

См. также:

IMetabaseObjectDescriptor