IRdsAttributes.AccessAccess

Syntax

AccessAccess: IRdsAttribute;

Description

The AccessAccess property returns a system attribute of a dictionary that assignment is Permission to Change permissions.

Comments

This attribute has string data type, cannot contain empty and multiple values. It is hidden by default. The attribute identifier is ACCESSACCESS. This attribute is available, if the Secured property is set to True. Value of this attribute is a security label that determines users who have permission to change access permissions to dictionary elements.

Example

Executing the example requires the MDM repository NSI_1 that contains an MDM dictionary with the Dict_1 identifier. Control of access permissions is enabled for dictionary elements.

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.AccessAccess.Key; // attribute 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;

After executing the example a value of a security label, that determines permissions to change permissions for element, is displayed in a decimal mode for each element of a dictionary.

See also:

IRdsAttributes