WriteAccess: IRdsAttribute;
The WriteAccess property returns a system attribute of a dictionary, which assignment is Permission to Change.
This attribute has string data type, cannot contain empty and multiple values. It is hidden by default. The attribute identifier is WRITEACCESS. 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 permissions to delete dictionary elements.
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.WriteAccess.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 element attribute values, is displayed in a decimal mode for each dictionary element.
See also: