Адрес этой странички : http://doc-prg.narod.ru/art_00007/art_00007.htm 

© 13.08.2007 Сергей Попов

Здесь следует отметить, что приведенная ниже статья носит чисто иллюстративный характер и не претендует на бОльшее.
Для серьезной и углубленной проработки специальных вопросов информационного обмена крайне рекомендуется использовать фирменное техническое описание системы 1Cv8.

1Cv8 + Delphi-5.
OLE (COM).
Считывание информации.
Справочники.
Фильтрация по реквизиту.

Статью в виде файла (287 кб) можно скачать здесь: art_00007.zip

Часто бывает необходимо произвести выборку элементов справочника, отфильтровав их с учетом значения какого-либо реквизита.
Рассмотрим этот вопрос на примере справочника "КнигиВидеоАудио" созданной ранее конфигурации.

В контексте справочника есть реквизит типа "Перечисление" вида "ТипНосителя" :

Рис.1. Структура справочника "КнигиВидеоАудио"

Ниже представлено содержание этого справочника (только элементы справочника без учета иерархии).

Рис.2. Содержание справочника "КнигиВидеоАудио" без учета иерархии (только элементы справочника).

Попробуем организовать фильтрацию справочника по реквизиту "ТипНосителя".

Создадим новый Delphi-проект. За основу возьмем проект из предыдущей статьи.
 

На рис.3 представлена форма нового проекта.

Рис.3. Форма проекта Load_from_SbCnt_OLE.dpr

Здесь добавлена кнопка SpeedButton3 (вопросительный знак) и элемент управления TEdit: Edit_EnumVal.
По кнопке SpeedButton3 предоставим Пользователю возможность выбора какого-либо значения из перечисления вида "ТипНосителя".
Название выбранного значения перечисления будем отображать в Edit_EnumVal.
Выборку элементов справочника будем производить в зависимости от состояния CheckBox "Отбор по реквизиту".
Если этот элемент управления отключен - выборка производится так же, как и в контексте предыдущей статьи.
В противном случае - дополнительно отфильтруем выборку по значению выбранного реквизита.

Внесем в раздел объявления формы новое свойство (fEnumVal_ole).

type
 TForm1 = class(TForm)
  ...
  ...
  ...
 public
   { Public declarations }
   //ссылка на выбранное для фильтрации значение реквизита
   fEnumVal_ole : Variant;
 end;
 

Организуем процесс выборки значения перечисления (для фильтрации) так, как это мы делали  в контексте статьи :

1Cv8 + Delphi-5. OLE (COM). Считывание информации. Перечисления. Список значений перечисления.

Ниже представлен текст обработчика события : нажатие на кнопку SpeedButton3.

procedure TForm1.SpeedButton3Click(Sender: TObject); //Открыть модально форму для выбора значения перечисления Var TN_meta_ole : variant; //cсылка на перечисление ТипНосителя, как объект метаданных TN_ole : variant; //cсылка на объект : Перечисления.ТипНосителя TN_form_ole : variant; //cсылка на форму списка значений объекта : Перечисления.ТипНосителя TN_val_ole : variant; //выбранное значение перечисления TN_num : integer; //индекс (номер) значения перечисления TN_name : string; //имя значения перечисления begin fEnumVal_ole:=UnAssigned; Edit_EnumVal.Text:=''; TN_val_ole := UnAssigned; //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin //Получаем ссылку на объект : Перечисления.ТипНосителя TN_ole := s1C8_ole.Перечисления.ТипНосителя; //Получаем ссылку на соответствующую форму TN_form_ole := TN_ole.ПолучитьФормуВыбора(); if YesLinkToVariant(TN_form_ole) then begin //Проверяем состояние формы. //В данном случае это избыточный код, поскольку при открытии формы //модально - управление вызывающему приложению не возвращается, //пока форма не будет закрыта if TN_form_ole.Открыта() then begin ShowMessage('Форма уже открыта !'); end else begin //Открываем форму модально. //Метод возвращает выбранное значение TN_val_ole := TN_form_ole.ОткрытьМодально(); if YesLinkToVariant(TN_val_ole) then begin //---------------------------- //Вычисление имени выбранного значения перечисления //Индекс (номер) выбранного значения перечисления TN_num := TN_ole.Индекс(TN_val_ole)*1; //cсылка на перечисление ТипНосителя, как объект метаданных TN_meta_ole := s1C8_ole.Метаданные.Перечисления.ТипНосителя; //Имя значения перечисления (как объекта метаданных) TN_name:=Trim(TN_meta_ole.ЗначенияПеречисления.Получить(TN_num).Имя); //---------------------------- fEnumVal_ole:=TN_val_ole; Edit_EnumVal.Text:=TN_Name; //ShowMessage('Выбрано значение: '+TN_name); end else begin ShowMessage('Значение не выбрано !'); end; end; end else begin ShowMessage('Ссылка на форму не корректна !'); end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

Теперь модифицируем обработчик события : нажатие на кнопку SpeedButton2 (бегущие человечки) :

procedure TForm1.SpeedButton2Click(Sender: TObject); //Прочитать информацию из справочника КнигиВидеоАудио Var Sel_ole, //результат выборки из справочника SbCnt_ole : Variant; //ссылка на объект "Справочники.КнигиВидеоАудио" NewStr_Otbor : variant; //Ссылка на структуру (для реализации фильтрации по реквизиту) Yes : byte; begin SbCnt_ole:=UnAssigned; Sel_ole:=UnAssigned; ListBox1.Items.Clear; //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin //Получаем ссылку на объект типа Справочник - "КнигиВидеоАудио" SbCnt_ole:=s1C8_ole.Справочники.КнигиВидеоАудио; //Производим выборку из справочника КнигиВидеоАудио if not CB_FilterEnum.Checked then begin //Выбираем без учета реквизита : ТипНосителя Sel_ole := SbCnt_ole.Выбрать(); end else begin //Отбор по реквизиту : ТипНосителя if YesLinkToVariant(fEnumVal_ole) then begin //Создаем объект типа СТРУКТУРА NewStr_Otbor := s1C8_ole.NewObject('Структура'); //Добавляем соответствующий (нужный нам для фильтрации) элемент структуры NewStr_Otbor.Вставить('ТипНосителя',fEnumVal_ole); //Создаем выборку элементов справочника, установив фильтрацию по выбранному значению реквизита ТипНосителя Sel_ole := SbCnt_ole.Выбрать(,,NewStr_Otbor); end else begin //Значение перечисления ТипНосителя (для фильтрации) не указано //Выбираем без учета реквизита : ТипНосителя Sel_ole := SbCnt_ole.Выбрать(); end; end; //Перебор элементов выборки while Sel_ole.Следующий() do begin Yes:=1; if Sel_ole.ЭтоГруппа then begin //это группа - пропускаем //Нужно в том случае, ежели мы отбираем без учета реквизита Yes:=0; end; if Yes>0 then begin //Это нужный элемент справочника ListBox1.Items.Add(' '+Trim(Sel_ole.Код)+'='+Trim(Sel_ole.Наименование)); end; end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

Здесь следует отметить, что в данном случае для организации процесса фильтрации элементов справочника мы использовали объект типа "Структура"  системы 1Cv8 .

Синтаксис метода "Выбрать" объекта типа "СправочникМенеджер" (см.техническое описание системы 1Cv8) :

Проверим, как все это работает.

Скомпилируем наш проект и запустим его на выполнение.

Создадим соединение с 1Cv8.
Нажмем на кнопку "?" и выберем значение перечисления : "Файл".
 

Рис.4. Выбор значения перечисления "ТипНосителя".

Произведем выборку элементов справочника (с фильтрацией по реквизиту "ТипНосителя") с учетом заданного значения перечисления вида "ТипНосителя".

На рис.5 представлен результат выборки.

Рис.5. Результат выборки элементов справочника (с фильтрацией по реквизиту "ТипЗначения")
с учетом заданного значения перечисления вида "ТипНосителя".

Теперь попробуем отобрать элементы справочника по значению "Бумага" реквизита "ТипНосителя".

На рис.6 представлен результат выборки.

Рис.6. Результат выборки элементов справочника (с фильтрацией по реквизиту "ТипЗначения")
с учетом заданного значения перечисления вида "ТипНосителя".

Результаты выборки (в обоих вариантах) можно соотнести с содержанием справочника (рис. 2).

Исходные тексты этого проекта можно взять здесь (13 кб) :  load_from_sbcnt_ole_v05.zip

Здесь можно скачать базу данных HomeLib (29 кб) : homelib_02.zip

© 13.08.2007 Сергей Попов