IMsDimIteratorAdvancedFilterCondition.ConditionJoin

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, CalcBlock: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    Block: ICalcBlock;
    AdvancedFilter: IMsDimIteratorAdvancedFilter;
    Condition: IMsDimIteratorAdvancedFilterCondition;
    MultiDimIter: IMsCalculationChainMultiDimIterator;
    Dims: IMsDimIteratorDimensions;
    Dim: IMsDimIteratorDimension;
    Filter: IMsDimIteratorFilter;
    CountDims: Integer;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Получим список объектов алгоритма расчёта
    List := CalcAlgo.Items;
    // Получим блок расчёта
    CalcBlock := List.Item(0);
    Block := CalcBlock As ICalcBlock;
    // Получим многомерный итератор блока расчёта
    MultiDimIter := Block.Iterator;
    // Получим коллекцию измерений приёмника данных
    Dims := MultiDimIter.Dimensions;
    // Получим первое измерение приёмника данных
    CountDims := Dims.Count;
    Dim := Dims.Item(CountDims - 1);
    // Настроим расширенный фильтр для полученного измерения
    Filter := Dim.Filter;
    AdvancedFilter := Filter.AdvancedFilter;
    // Получим второе условие фильтрации
    Condition := AdvancedFilter.Item(1);
    // Изменим логический оператор
    Condition.ConditionJoin := MsLogicalOperator.Or_;
    // Сохраним изменения в блоке расчёта
    Block.SaveObject;
End Sub UserProc;