IPivotFilterSources.Inverted

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

Sub UserProc;
Var
    Mb: IMetabase;
    MbObj: IMetabaseObject;
    ObjParams: IMetabaseObjectParamValues;
    ObjParamsEx: IMetabaseObjectParamValuesEx;
    Eax: IEaxAnalyzer;
    Pvt: IPivot;
    Filter: IPivotFilterSettings;
    FltrSources: IPivotFilterSources;
    FltrSource: IPivotFilterSource;
    CubeSelSet: IDimSelectionSet;
    Cube: ICubeInstance;
    Dest: ICubeInstanceDestination;
Begin
    // Получим репозиторий
    Mb := MetabaseClass.Active;
    // Получим куб, используемый в качестве фильтра
    MbObj := MB.ItemById("FILTER") As IMetabaseObject;
    ObjParams := MbObj.Params.CreateEmptyValues;
    ObjParamsEx := ObjParams As IMetabaseObjectParamValuesEx;
    ObjParamsEx.StateOptions := 2;
    Cube := MbObj.Open(ObjParams) As ICubeInstance;
    Dest := Cube.Destinations.Item(0);
    // Получим отметку куба
    CubeSelSet := Dest.CreateDimSelectionSet;
    // Получим экспресс-отчёт
    Eax := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим настройки отображения таблицы данных отчёта
    Pvt := Eax.Pivot;
    // Определим параметры фильтрации
    Filter := Pvt.Filter As IPivotFilterSettings;
    // Зададим использование внешнего фильтра
    FltrSources := Filter.FilterSources;
    CubeSelSet := Pvt.Selection;
    Pvt.BeginUpdate;
    FltrSources.Clear;
    // Включим использование фильтра в инвертированном режиме
    FltrSources.Enable := True;
    FltrSources.Inverted := True;
    // Добавим фильтр
    FltrSource := FltrSources.Add;
    // Добавим источник для фильтрации
    FltrSource.DataSource := Dest As IMatrixDataSource;
    // Получим отметку, по которой будет проходить фильтрация
    FltrSource.Selection := CubeSelSet;
    FltrSource.Enable := True;
    Pvt.EndUpdate;
    // Сохраним отчёт
    (Eax As IMetabaseObject).Save;
End Sub UserProc;