WriteAccess(Element: Integer): Boolean;
Element — element index.
The WriteAccess property returns True, if user has write access to the Element element.
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;
Dimen: IDimInstance;
Elem: IDimElements;
s: String;
Begin
MB:=MetabaseClass.Active;
Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
Elem:=Dimen.Elements;
If Elem.WriteAccess(20) Then
s:="Write";
Else s:="Don’t Write";
End If;
End Sub UserProc;
After executing the example the "s" variable shows Write if the current user is allowed to change data of the 20th dictionary element.
See also: