IMsDimIteratorAdvancedFilter.TestInternal

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

Sub UserProc;
Var
    Mb: IMetabase;
    MsKey, i: Integer;
    MetaModel: IMsMetaModel;
    MParams: IMsModelParams;
    Chain: IMsCalculationChainEntries;
    Problem: IMsProblem;
    Iterator: IMsCalculationChainMultiDimIterator;
    IterDim: IMsDimIteratorDimension;
    AdvancedFilter: IMsDimIteratorAdvancedFilter;
    CalcSettings: IMsProblemCalculationSettings;
    ParamValues: IMsModelParamValues;
    Param: IMsModelParamValue;
    Dim: IDimInstance;
Begin
    // Получим текущий репозиторий
    Mb := MetabaseClass.Active;
    // Получим ключ контейнера моделирования
    MsKey := Mb.GetObjectKeyById("CONT_MODEL");
    // Получим задачу моделирования
    Problem := Mb.ItemByIdNamespace("PROBLEM", MsKey).Edit As IMsProblem;
    // Получим метамодель
    MetaModel := Problem.MetaModel;
    // Получим параметры метамодели
    MParams := MetaModel.Params;
    // Получим цепочку расчёта метамодели
    Chain := MetaModel.CalculationChain;
    // Получим многомерный цикл в цепочке расчёта
    Iterator := Chain.Item(0) As IMsCalculationChainMultiDimIterator;
    // Получим первое измерение
    IterDim := Iterator.Dimensions.Item(0);
    // Получим расширенный фильтр для измерения
    AdvancedFilter := IterDim.Filter.AdvancedFilter;
    // Получим параметры для расчёта задачи
    CalcSettings := Problem.CreateCalculationSettings;
    ParamValues := CalcSettings.ParamValues;
    // Получим данные справочника, используемого для определения значения первого параметра
    Param := ParamValues.Item(0);
    Dim := Param.LinkedObject.Open(Null) As IDimInstance;
    // Проверим, соответствуют ли элементы справочника условию расширенного фильтра 
    For i := 0 To Dim.Elements.Count - 1 Do
        If AdvancedFilter.TestInternal(i, ParamValues) Then
            Debug.WriteLine(String.Format(
                "Элемент с индексом {0} измерения '{1}' соответствует условию расширенного фильтра", i, Dim.Name));
        Else
            Debug.WriteLine(String.Format(
                "Элемент с индексом {0} измерения '{1}' не соответствует условию расширенного фильтра", i, Dim.Name));
        End If;
    End For;
End Sub UserProc;