ITableFilter.Features

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

Sub UserProc;
Var
    mb: IMetabase;
    mObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Sheet: IPrxTable;
    TRange: ITabRange;
    AutoFilter: ITabAutoFilter;
    View: ITabView;
Begin
    // Получим репозиторий
    mb := MetabaseClass.Active;
    // Получим отчёт
    mObj := mb.ItemById("REPORT").Edit;
    Rep := MObj As IPrxReport;
    // Получим таблицу
    Sheet := Rep.Sheets.Item(0) As IPrxTable;
    Tab := Sheet.TabSheet;
    View := Tab.View;
    // Установим автофильтр
    TRange := View.Selection.Range;
    AutoFilter := Tab.View.AutoFilter;
    // Включим автофильтра
    AutoFilter.Range := TRange;
    AutoFilter.Enabled := True;
    // Скроем настройки фильтрации из меню
    AutoFilter.Features := TableFilterFeatures.HideSettings;
    // Сохраним отчёт
    mObj.Save;
End Sub UserProc;