IRdsAttributes.ReadAccess

Синтаксис

ReadAccess: IRdsAttribute;

Описание

Свойство ReadAccess возвращает системный атрибут справочника, назначение которого - Право на просмотр.

Комментарии

Данный атрибут имеет строковый тип данных, не может содержать пустые и множественные значения. По умолчанию является скрытым. Идентификатор атрибута - "READACCESS". Данный атрибут доступен, если свойству Secured установлено значение True. Значением данного атрибута является метка безопасности, определяющая пользователей, для которых будет присутствовать право на просмотр значений элементов справочника.

Пример

Для выполнения примера предполагается наличие репозитория НСИ - "NSI_1", содержащего справочник НСИ с идентификатором "Dict_1". Для справочника включено управление правами доступа к элементам.

Sub Main;

Var

MB: IMetabase;

Dict: IRdsDictionary;

DictInst: IRdsDictionaryInstance;

Elements: IRdsDictionaryElements;

Attrs: IRdsAttributes;

i, j: Integer;

Begin

MB := MetabaseClass.Active;

Dict := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Bind As IRdsDictionary;

Attrs := Dict.Attributes;

j := Attrs.ReadAccess.Key; // ключ атрибута

DictInst := Dict.Open(Null);

Elements := DictInst.Elements;

For i := 1 To Elements.Count - 1 Do

Debug.WriteLine(Elements.Item(i).Attribute(j));

End For;

End Sub Main;

После выполнения примера для каждого элемента справочника будет выведено значение метка безопасности в десятичном виде, определяющей наличие прав на просмотр элементов.

См. также:

IRdsAttributes