RevokeAccessSecured;
The RevokeAccessSecured method disables use of access permissions for elements of the MDM dictionary.
The method sets ISecurityDescriptor.AccessSecured to False, then it applies the rights (ISecurityDescriptor.Apply).
Executing the example requires that the scheme contains an MDM repository with the MDMBASE identifier and an MDM dictionary with the Dict_1 identifier. The "Change of the security label and of the access control list of any object" privilege should be given to the user who executes the example.
Sub UserProc;
Var
MB : IMetabase;
Object : IMetabaseObjectDescriptor;
SD : ISecurityDescriptor;
AOS : IAccessObjectSecurity;
Begin
MB := MetabaseClass.Active;
Object := MB.ItemByIdNamespace("Dict_1", MB.ItemById("RDSBASE").Key);
SD := Object.SecurityDescriptor;
If SD.AccessSecured Then
AOS := Object.GetSecurity;
AOS.RevokeAccessSecured;
End If;
End Sub UserProc;
After executing the example the use of the access permissions is disabled for the MDM dictionary, if it was enabled before.
See also: