IMsDimIteratorAdvancedFilter.Groups

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, CalcBlock: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    Block: ICalcBlock;
    AdvancedFilter: IMsDimIteratorAdvancedFilter;
    Condition: IMsDimIteratorAdvancedFilterCondition;
    Group: IMsDimIteratorAdvancedFilterConditionGroup;
    MultiDimIter: IMsCalculationChainMultiDimIterator;
    Dims: IMsDimIteratorDimensions;
    Dim: IMsDimIteratorDimension;
    Filter: IMsDimIteratorFilter;
    Groups: IMsDimIteratorAdvancedFilterConditionGroups;
    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;
    // Получим коллекцию групп условий фильтрации
    Groups := AdvancedFilter.Groups;
    // Удалим существующие группы условий
    Groups.Clear;
    // Добавим новую группу условий
    Group := Groups.Add;
    // Добавим в группу условия фильтрации с индексом 2 и 3
    Condition := AdvancedFilter.Item(2);
    Group.AddCondition(Condition);
    Condition := AdvancedFilter.Item(3);
    Group.AddCondition(Condition);
    // Сохраним изменения в блоке расчёта
    Block.SaveObject;
End Sub UserProc;