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

Свойство: Значение

Тип параметра: Соответствует типу параметра в объектной модели.

Свойство содержит значение параметра фильтра.

Пример кода. См. код в свойствах данного класса.

Свойство: ОтрицаниеУсловия

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

Свойство задает отрицание заданного условия фильтра.

Пример кода.

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

Sub ПримерOLE_ФильтрСубъектовБезДиректора()
 
   et oleapp = CreateObject("Byteта приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
   нными ранее.
 
   'В Диспетчере задач появится Business Studio. В панели задач сервере, указанными ранее.
 
   ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   'В панели задачадач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
     'Создать фильтр, отбирающий толькоится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
   звание.Значение = "Директор"
 
        ФильтрНеДиректобота будет с Субъектами
 
   Set ВсеСубъекты = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.Субъекты")
 
 
 
   езультатФильтрНеДиректор.КоличествоЭлементов
�ий только должности
 
   Set ФильтрНеДиректор = ВсеСубъекты.Со

Свойство: ТипФильтрации

Результат: Int (целое число от 0 до 4) 

Свойство задает тип фильтрации. При задании условия по умолчанию устанавливается тип фильтрации "Значение".

Допустимые варианты:

0 - Значение,  

1 - Диапазон,

3 - Подфильтр,

4 - Нет.

Задание типа фильтрации отличного от умолчания (Значение) может осуществляться по номеру.

Пример кода.

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

Sub ПримерOLE_РаботаСФильтромДиапазон()
 
   
   Set oleapp = CreateObject("та приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
   _ole на сервере\\ U6S\SQLEXPRESS2005. В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("Имsiness Studio. В панели задач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   несМодель.ПоказателиBSC")
 
 
 
   'Соится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
   затели = ПоказателиОПУ.СоздатьФильтр
 
      'Задание усота будет с Показателями
 
   Set ПоказателиОПУ = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.ПоказателиBSC")
 
 
 
   елеваяДата.ВключатьМин = True
 
      ФильтрПоказатели.Условия.Параметры.ЦелеваяДата.Макс = CDat�й, к достижению которых стремимся в 2014 г.
 
   Set ФильтрПоказатели = ПоказателиОПУ.СоздатьФильтр
 
      зультат.Количеств�словий
 
      ФильтрПоказатели.Условия.Параметры.ЦелеваяДата.ТипФи

Свойство: ОператорСравнения

Результат: Int (целое число от 0 до 5)

Оператор сравнения для типа фильтрации "Значение" (см. Cвойство ТипФильтрации). По умолчанию "Равно".

Возможные варианты:

0 - Больше,

1 - БольшеИлиРавно,

2 - Меньше,

3 - МеньшеИлиРавно,

4 - Равно,

5 - Подобный (только для строковых параметров).

Задание оператора сравнения отличного от умолчания (Равно) может осуществляться по номеру.

Пример кода.

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

Sub ПримерOLE_СоздатьФильтрОператорСравнения()
 
   oleapp = CreateObject("ByteEntта приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
   ми ранее.
 
   'В Диспетчере задач появится Business Studio. В панели задач присервере, указанными ранее.
 
   уститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   'В панели задач поадач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   оздать фильтр, отбирающий только долится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
   "директор"
 
        Фильтр.Условия.Параметры.Названиебота будет с Субъектами
 
   SetВсеСубъекты = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.Субъекты")
 
 
 
   езультатФильтр = Фильтр.Выполнить
 
   КолвоДо�ий только должности
 
   SetФильтр = ВсеСубъекты.СоздатьФильтр
 
   
 
       ово 'директор' : " + CStr(КолвоДолжностей)
 
 
 
End Sub

Свойство: Мин

Свойство: Макс

Тип параметра: Соответствует типу параметра в объектной модели.

Минимальное и максимальное значения параметра фильтра для типа фильтрации "Диапазон" (см. Cвойство ТипФильтрации).

Пример кода. См. код в свойстве "ТипФильтрации" (Cвойство ТипФильтрации).

Свойство: ВключатьМин

Свойство: ВключатьМакс

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

Свойство логики, управляющей включением минимального и максимального значения в результат фильтрации при типе фильтрации "Диапазон" (см. Cвойство ТипФильтрации). Если логика включена, граничное значение войдет в результат фильтрации. По умолчанию логика включена.

Пример кода. См. код в свойстве "ТипФильтрации" (Cвойство ТипФильтрации).

Свойство: Подфильтр

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

Свойство задает вложенный фильтр для данного параметра фильтра. Используется с типом фильтрации "Подфильтр" (см. Cвойство ТипФильтрации). Только для объектных и списковых параметров. Подфильтр строится по тому классу, которому принадлежит параметр.

Пример кода.

Задача:

Sub ПримерOLE_СоздатьФильтрСПодфильтром()
 
    Set oleapp = CreateObject("Byта приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
   занными ранее.
 
   'В Диспетчере задач появится Business Studio. В панели задасервере, указанными ранее.
 
   p.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   'В панели зададач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   BSC")
 
 
 
   'Создаем фильтр по процится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
  
 
   Измерения.ТипФильтрации = 3 'Подфильтр
 
   
 
        'зота будет с Показателями
 
   SetПоказателиОПУ = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.ПоказателиBSC")
 
 
 
   Затрат")
 
   
 
           'попо процессам
 
   SetФильтрПоказатели = ПоказателиОПУ.СоздатьФильтр
 
         ФильтрПоказатели.Условия.Параметры.ЕдиницаИзмерения.ТипФильтрации = 3 Показатели.льтр
 
   
 
        я.Подфильтр = ФильтрЕдиницы
 
   
 
   
 
   'Выполняем фильтринице измерения показателя
 
        трПоказатели = ФильтрПоказатели.Выполни�иницам измерения
 
         Set ЕдиницыОПУ = _
 
         oleapp.ПолучитьКорневуюГруппуКласса(" + CStr(КолвоПоказателей)
 
 
 
End Sub