IPivotFilterSource.Enable

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

Sub UserProc;
Var
    Mb: IMetabase;
    Eax: IEaxAnalyzer;
    Pvt: IPivot;
    Filter: IPivotFilterSettings;
    FltrSources: IPivotFilterSources;
    FltrSource: IPivotFilterSource;
Begin
    // Получим репозиторий
    Mb := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Eax := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим настройки отображения таблицы данных отчёта
    Pvt := Eax.Pivot;
    // Определим параметры фильтрации
    Filter := Pvt.Filter As IPivotFilterSettings;
    // Зададим использование внешнего фильтра
    FltrSources := Filter.FilterSources;
    // Получим подключенный фильтр
    FltrSource := FltrSources.Item(0);
    // Отключим использование фильтра
    FltrSource.Enable := False;
    // Сохраним отчёт
    (Eax As IMetabaseObject).Save;
End Sub UserProc;