IMsBranchConditionInGroup.ElementGroup

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

Sub UserProc;
Var
    pMetaModel: IMsMetaModel;
    pBranch: IMsCalculationChainBranch;
    pBranchConditions: IMsBranchConditions;
    pCase: IMsBranchCase;
    pCaseList: IMsBranchCaseList;
    Chain, pDefaultContents:IMsCalculationChainEntries;
    pCondSelect: IMsBranchConditionInSelection;
    pCondGroup: IMsBranchConditionInGroup;
    pCondScalar: IMsBranchConditionScalar;
    Case_1, Case_2, Case_default:IMsModel;
    mb: IMetabase;
    pModelSpace: IMetabaseObjectDescriptor;
    param:IMsModelParam;
    pDimInstance: IDimInstance;
    pSelection: IDimSelection;
    params:IMsModelParams;
Begin
    mb := MetabaseClass.Active;
    pModelSpace := mb.ItemById("CONT_MODEL");
    pMetaModel := mb.ItemByIdNamespace("METAMODEL",pModelSpace.Key).Edit As IMsMetaModel;
    Chain := pMetaModel.CalculationChain;
    Chain.Clear;
    // Задаем параметр метамодели
    params:=pMetaModel.Params;
    params.Clear;
    param:=params.Add;
    param.DataType := DbDataType.Integer;
    param.DefaultValue :=1;
    param.Hidden := True;
    param.Id := "T_ID";
    param.Name := "ID";
    param.LinkedObject :=mb.ItemById("D_SOURCE");
    // Создаем вершину условия
    pBranch := Chain.AddBranch("Branch");
    pBranch.Parameter :=Param;
    pDefaultContents := pBranch.DefaultContents;
    Case_default := mb.ItemByIdNamespace("DEFAULT",pModelSpace.Key).Bind As IMsModel;
    pDefaultContents.AddModel(Case_default);
    // Создаем первую ветку условия
    pCaseList := pBranch.CaseList;
    pCase := pCaseList.Add;
    Case_1 := mb.ItemByIdNamespace("MODEL_1",pModelSpace.Key).Bind As IMsModel;
    pCase.Contents.AddModel(Case_1);
    pBranchConditions :=pCase.Conditions;
    pCondScalar := pBranchConditions.Add(MsBranchConditionType.Scalar) As IMsBranchConditionScalar;
    pCondScalar.ComparisonOperator:= MsBranchConditionComparisonOperator.Equal;
    pCondScalar.Value :=6;
    pCondGroup := pBranchConditions.Add(MsBranchConditionType.InGroup) As IMsBranchConditionInGroup;
    pDimInstance := mb.ItemById("D_SOURCE").Open(Null) As IDimInstance;
    pCondGroup.ElementGroup:= mb.ItemByIdNamespace("DICT_GROUP", pDimInstance.Key).Bind As IDimElementGroup;
    pCondGroup.Negation := False;
    pCondGroup.ConditionJoin:= OrmLogicalOperator.Or_;
    // Создаем вторую ветку условия
    pCase := pCaseList.Add;
    Case_2 := mb.ItemByIdNamespace("MODEL_2",pModelSpace.Key).Bind As IMsModel;
    pCase.Contents.AddModel(Case_2);
    pBranchConditions :=pCase.Conditions;
    pCondSelect := pBranchConditions.Add(MsBranchConditionType.InSelection) As IMsBranchConditionInSelection;
    pSelection := pDimInstance.CreateSelection;
    pSelection.DeselectAll;
    pSelection.SelectElement(2, False);
    pCondSelect.Negation:= False;
    pCondSelect.Selection:= pSelection;
    (pMetaModel As IMetabaseObject).Save;
End Sub UserProc;