IAccessControlList.Assign

Синтаксис Fore

Assign(Source: IAccessControlList);

Синтаксис Fore.NET

Assign(Source: Prognoz.Platform.Interop.Metabase.IAccessControlList)

Параметры

Source. Дополнительные параметры безопасности объекта-источника.

Описание

Метод Assign заменяет дополнительные параметры безопасности объекта.

Пример Fore

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «OBJ1» и «OBJ2».

Sub UserProc;
    Var
        MB: IMetabase;
        ObjDesc: IMetabaseObjectDescriptor;
        ObjDesc2: IMetabaseObjectDescriptor;
        SecDesc: ISecurityDescriptor;
        SecDesc2: ISecurityDescriptor;
        AcessCL: IAccessControlList;
        AcessCL2: IAccessControlList;
    Begin
        MB:=MetabaseClass.Active;
        ObjDesc:=MB.ItemById("OBJ1");
        SecDesc:=ObjDesc.SecurityDescriptor;
        SecDesc.Edit;
        AcessCL:=SecDesc.Acl;
        ObjDesc2:=MB.ItemById("NSI");
        SecDesc2:=ObjDesc2.SecurityDescriptor;
        AcessCL2:=SecDesc2.Acl;
        AcessCL.Assign(AcessCL2);
        SecDesc.Apply(True);
End Sub UserProc;

После выполнения примера дополнительные параметры безопасности объекта «OBJ1» заменятся дополнительными параметрами «OBJ2».

Пример Fore.NET

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «OBJ1» и «OBJ2».

Sub UserProc;
    Var
        MB: IMetabase;
        ObjDesc: IMetabaseObjectDescriptor;
        ObjDesc2: IMetabaseObjectDescriptor;
        SecDesc: ISecurityDescriptor;
        SecDesc2: ISecurityDescriptor;
        AcessCL: IAccessControlList;
        AcessCL2: IAccessControlList;
    Begin
        MB:=Params.Metabase;
        ObjDesc:=MB.ItemById["OBJ1"];
        SecDesc:=ObjDesc.SecurityDescriptor;
        SecDesc.Edit();
        AcessCL:=SecDesc.Acl;
        ObjDesc2:=MB.ItemById["NSI"];
        SecDesc2:=ObjDesc2.SecurityDescriptor;
        AcessCL2:=SecDesc2.Acl;
        AcessCL.Assign(AcessCL2);
        SecDesc.Apply(True);

End Sub;

См. также:

IAccessControlList