IMsFindFormulaInfo.UseParamDims

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

Sub UserProc;
Var
    Mb: IMetabase;
    Alg: ICalcAlgorithm;
    FindInfo: IMsFindFormulaInfo;
    Factory: IDimSelectionSetFactory;
    DimSS: IDimSelectionSet;
Begin
    Mb := MetabaseClass.Active;
    Alg := CalcObjectFactory.CreateCalcObject(Mb.ItemById("ALGO"), True) As ICalcAlgorithm;
    Factory := New DimSelectionSetFactory.Create;
    DimSS := Factory.CreateDimSelectionSet;
    DimSS.Add(Mb.ItemById("CITY").Open(Null) As IDimInstance).SelectElement(0, False);
    // Условия поиска
    FindInfo := Alg.CreateFormulaFindInfo;
    FindInfo.Stub := Alg.Stubs.FindByKey(Mb.GetObjectKeyById("STD_CUBE"));
    FindInfo.Selection := DimSS;
    FindInfo.UseParamDims := True;
    FindInfo.ParametrizedDims.FindById("INDICATOR").ParamAttributes.Parameter := Alg.Params.Item(0);
    // Поиск и просмотр результатов
    ShowAlgFindResults(Alg.FindFormulas(FindInfo));
End Sub UserProc;
Sub ShowAlgFindResults(Results: IAlgoFindFormulaResults);
Var
    Result: IAlgoFindFormulaResult;
    Block: IAlgoCalcBlockFindFormulaResult;
    Branch: IAlgoBranchCondFindFormulaResult;
    Expr: IMsBranchConditionExpression;
    i, c: Integer;
Begin
    c := Results.Count;
    Debug.WriteLine("Найдено формул: " + c.ToString);
    For i := 0 To c - 1 Do
        Result := Results.Item(i);
        If Result Is IAlgoCalcBlockFindFormulaResult Then
            Block := Result As IAlgoCalcBlockFindFormulaResult;
            Debug.WriteLine("Block name: " + Block.CalcObject.Name);
            Debug.WriteLine("Formula key: " + Block.FormulaKey.ToString + " " + Block.ChainModel.Name);
        Elseif Result Is IAlgoBranchCondFindFormulaResult Then
            Branch := Result As IAlgoBranchCondFindFormulaResult;
            Debug.WriteLine("Branch: " + Branch.Branch.Name);
            Debug.WriteLine("Case: " + Branch.BranchCase.Name);
            If Branch.BranchCondition Is IMsBranchConditionExpression Then
                Expr := Branch.BranchCondition As IMsBranchConditionExpression;
                Debug.WriteLine("Condition: " + Branch.BranchCondition.Key.ToString + " " + Expr.Expression.AsString);
            End If;
        End If;
        Debug.WriteLine("-------");
    End For;
End Sub ShowAlgFindResults;