ISharedParams.Resource

Копировать пример

Sub UserProc;
Var
    MB : IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    Des: IMetabaseObjectDescriptor;
    Obj: IMetabaseObject;
    Shp: ISharedParams;
    Params: IMetabaseObjectParams;
    Pa: IMetabaseObjectParam;
Begin
    MB := MetabaseClass.Active;
    Mb.SpecialObject(MetabaseSpecialObject.SharedParams) := Null;
    //создание области глобальных переменных
    CrInfo := Mb.CreateCreateInfo;
    CrInfo.Id := "MyParam";
    CrInfo.Name := "MyParam";
    CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_SHAREDPARAMS;
    CrInfo.Parent := MB.ItemById("OBJ19645");
    CrInfo.Permanent := False;
    Des := Mb.CreateObject(CrInfo);
    Obj := Des.Edit;
    Shp := Obj As ISharedParams;
    Shp.IsShared := True;
    Shp.Resource := MB.ItemById("Resource").Bind As IResourceObject;
    Shp.NameResource := "SHARA";
    Params := Shp.Params;
    //создание параметра
    Pa := Params.Add;
    Pa.Id := "GLOBAL_INT";
    Pa.DataType := DbDataType.Integer;
    Pa.DefaultValue := 15;
    Obj.Save;
End Sub UserProc;