ReadAccess: IDimAttribute;
The ReadAccess property returns an object containing dictionary attribute that restricts read access to entries.
If read access is not restricted, this property returns Null. When read access is limited, only the records with attribute value corresponding to 32-bit security mask can be read.
Executing the example requires a repository object with the D_TO identifier.
Add links to the Metabase and Dimensions system assemblies.
Sub UserProc;
Var
MB: IMetabase;
DimModel: IDimensionModel;
DimAttrs: IDimAttributes;
DimAttr: IDimAttribute;
i: Integer;
Begin
MB:=MetabaseClass.Active;
DimModel:=MB.ItemById("D_TO").Bind As IDimensionModel;
DimAttrs:=DimModel.Attributes;
DimAttr:=DimAttrs.ReadAccess;
If DimAttr<>Null Then
i:=DimAttr.Key;
Debug.WriteLine(i);
End If;
End Sub UserProc;
After executing the example the key of the attribute that limits read access for dictionary entries, if this attribute is selected, is output to the console window.
See also: