ReadAccess: IStandardDimAttribute;
The ReadAccess property determines the table dictionary attribute, that limits read access to records.
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 table dictionary with the TAB_DIM identifier.
Add links to the Metabase and Dimensions system assemblies.
Sub UserProc;
Var
MB: IMetabase;
Dimens: IStandardDimension;
DimAtrrs: IStandardDimAttributes;
DimAtribut: IStandardDimAttribute;
i: Integer;
Begin
MB:=MetabaseClass.Active;
Dimens:=MB.ItemById("TAB_DIM").Bind As IStandardDimension;
DimAtrrs:=Dimens.Attributes;
DimAtribut:=DimAtrrs.ReadAccess;
If DimAtribut<>Null Then
i:=DimAtribut.Key;
Debug.WriteLine(i);
End If;
End Sub UserProc;
After executing the example the console window displays the attribute key that limits read access for table dictionary entries, if this attribute is selected.
See also: