The Flags property determines whether the access permissions are inherited from the parent object.
To execute the example, make sure that the repository contains an object with the Obj_1 identifier.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
SDesc: ISecurityDescriptor;
Begin
MB := MetabaseClass.Active;
SDesc := MB.ItemById("Obj_1").SecurityDescriptor;
SDesc.Edit;
SDesc.Flags := SecurityDescriptorFlags.Locked;
SDesc.Apply(False);
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
SDesc: ISecurityDescriptor;
Begin
MB := Params.Metabase;
SDesc := MB.ItemById["Obj_1"].SecurityDescriptor;
SDesc.Edit();
SDesc.Flags := SecurityDescriptorFlags.sdfLocked;
SDesc.Apply(False);
End Sub;
After executing this example the inheritance of the access permissions from the parent object is canceled for the specified object.
See also: