IMetabaseObjectSecurity.GetAccessSecurity

Синтаксис

GetAccessSecurity(Options: Integer): IAccessObjectSecurity;

Параметры

Options. Параметр не используется, зарезервирован на будущее. Для работы метода задайте любое значение.

Описание

Метод GetAccessSecurity получает политику доступа к объекту.

Пример

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

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    MS: IMetabaseObjectSecurity;
    AOS: IAccessObjectSecurity;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("RDS_DICT");
    MS := MObj As IMetabaseObjectSecurity;
    Debug.WriteLine(MS.AccessSecured.ToString);
    If MS.AccessSecured Then
        AOS := MS.GetAccessSecurity(1);
        AOS.RevokeAccessSecured;
    End If;
End Sub UserProc;

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

См. также:

IMetabaseObjectSecurity