RestrictGroupDeletion: Boolean;
RestrictGroupDeletion: System.Boolean;
Свойство RestrictGroupDeletion определяет разрешено ли удаление групп, если у группы есть эффективные права на объекты репозитория.
По умолчанию свойство имеет значение False и удаление групп разрешено.
Для сохранения нового значения необходимо применить политику безопасности. Для этого используйте свойство IMetabaseSecurity.Apply.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Police: IMetabasePolicy;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
Police := MS.Policy;
Police.RestrictGroupDeletion := True;
MS.Apply;
End Sub Main;
После выполнения примера будет невозможно удалить группу, если у группы есть права на объекты репозитория.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Imports Prognoz.Platform.Interop.Laner;
...
Sub Main(Params: StartParams);
Var
MB: IMetabase;
MS: IMetabaseSecurity;
SecSub: ISecuritySubject;
Begin
MB := Params.Metabase;
MS := MB.Security;
Police := MS.Policy;
Police.RestrictGroupDeletion := True;
MS.Apply();
End Sub;
После выполнения примера будет невозможно удалить группу, если у группы есть права на объекты репозитория.
См. также: