Класс "Система.Фильтр"

Синтаксис: Выполнить()

Возвращаемый результат: Система.Список (см. Класс "Система.Список")

Метод запускает фильтр на выполнение, в результате возвращает список элементов класса.

Пример кода. См. код в методе "СоздатьФильтр" (Mетод СоздатьФильтр).

Свойство: Условия.Параметры.<ИмяПараметра>

Тип параметра: Система.ПараметрФильтра (см. Класс "Система.ПараметрФильтра")

Обращение к параметру фильтра осуществляется по имени параметра из Объектной модели Business Studio.

Рекомендуется задавать условия только по хранимым параметрам класса. Возможность построения фильтра по нехранимым параметрам можно проверить, открыв окно фильтра по соответствующему классу в Business Studio.

Пример кода. См. код в методе "СоздатьФильтр" (Mетод СоздатьФильтр).

Свойство: Условия.Параметры.Параметры.ПолучитьЭлемент(string "<ИмяПараметра>")

Возвращаемый результат: Система.ПараметрФильтра (см. Класс "Система.ПараметрФильтра").

Метод для получения пользовательского параметра фильтра.

Обращение к параметру фильтра осуществляется по имени параметра из Объектной модели Business Studio.

Свойство: ВключатьПодгруппы

Тип параметра: Bool (True, False).

Свойство указывает, будут ли в результат выполнения фильтра включены подгруппы класса, по которому выполняется фильтр. Соответствует выбору кнопки "Смотреть в подгруппах" на панели инструментов фильтра.

Значение по умолчанию True.

Пример кода. См. код в свойстве "РезультатВключает" (Cвойство РезультатВключает).

Свойство: ВключатьГруппуФильтра

Тип параметра: Bool (True, False).

Свойство указывает, будет ли в результат выполнения фильтра включена группа, по которой выполняется фильтр. Соответствует выбору кнопки "Включать группу фильтра" на панели инструментов окна фильтра.

Значение по умолчанию False.

Пример кода. См. код в свойстве "РезультатВключает" (Cвойство РезультатВключает).

Свойство: РезультатВключает

Тип параметра: Int (целое число)

Свойство задает условия вхождения полученных данных в результат выполнения фильтра. Соответствует выбору кнопок панели инструментов окна фильтра: "Включать подгруппы", "Включать конечные объекты", "Показать удаленные", "Показать неудаленные".

Свойство может принимать следующие значения:

1 - Группы,

2 - Конечные объекты,

4 - Удаленные,

8 - НеУдаленные.

Для выбора нескольких значений необходимо брать их сумму. Например, 11 - это 1 + 2 + 8, т.е. выбрать все неудаленные, 7 - это 1 + 2 + 4, т.е. включаем удаленные группы и конечные объекты.

Значение по умолчанию - 11.

Пример кода.

Задача: определить, есть ли удаленные объекты в базе.

Sub ПримерOLE_НаличиеУдаленныхОбъектов()

'=============================================================

' Задание необходимых параметров перед запуском

    'БД и редакция Business Studio, с которыми будем работать

    СерверБД = "ИмяСервера"

    База = "ИмяБазы"

    РедакцияBS = "Enterprise"

'===============================================================

   'Запуск Business Studio

   'Получение объекта приложения

   Set oleapp = CreateObject("ByteEnterprise.OleApplication")

 

   'Запустить Business Studio в редакции и базой на сервере, указанными ранее.

   'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.

   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(СерверБД, База, РедакцияBS)

   'В панели задач появится приложение

   oleapp.ПоказатьКлиентскоеПриложение

 

   'Создаем фильтр по всем Справочникам

   SetВсеСправочники = oleapp.ПолучитьКорневуюГруппуКласса("База.Справочники")

 

      'Определяем количество удаленных объектов

   Set ФильтрУдаленных = ВсеСправочники.СоздатьФильтр

        ФильтрУдаленных.ВключатьПодгруппы = True

        ФильтрУдаленных.ВключатьГруппуФильтра = True

        ФильтрУдаленных.РезультатВключает = 7 'Включаем удаленные группы и конечные объекты

   SetСписокУдаленных = ФильтрУдаленных.Выполнить

   КолвоУдаленных = СписокУдаленных.КоличествоЭлементов

 

   'Готовимся к выводу результатов

   If КолвоУдаленных = 0 Then

         РезультатУдаленных = "В базе нет удаленных объектов."

      Else

         РезультатУдаленных = "В базе есть удаленные объекты."

   End If

 

    'Вывод сообщения о результатах

    MsgBox"Проверка удаленных: " + РезультатУдаленных

 

End Sub