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

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

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

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

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

Метод НайтиПоРеквизиту объекта типа "СправочникМенеджер" позволяет найти первый элемент справочника, который содержит заданное значение заданного реквизита.

Синтаксис метода :

НайтиПоРеквизиту(<Имя реквизита>, <Значение реквизита>, <Родитель>, <Владелец>)

Обязательными параметрами являются только <Имя реквизита> и <Значение реквизита>.

Посмотрим на практике, как можно вызывать этот метод, используя механизм OLE Automation.

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

Рис.1. Список значений перечисления "ТипНосителя"

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

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

Готовую конфигурацию можно скачать здесь (30 кб).

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

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

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

Здесь все то же самое (практически), что и в предыдущем примере.
 

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

procedure TForm1.SpeedButton2Click(Sender: TObject); //Прочитать информацию из справочника КнигиВидеоАудио Var Sel_ole, //результат выборки из справочника SbCnt_ole : Variant; //ссылка на объект "Справочники.КнигиВидеоАудио" NrMode : integer; //режим выборки Yes : byte; begin SbCnt_ole:=UnAssigned; Sel_ole:=UnAssigned; ListBox1.Items.Clear; NrMode:=0; //Проверяем, существует ли соединение с 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 //Проверяем ссылку на корректность ... if not fEnumVal_ole.Пустая() then begin //Обращаемся к методу справочника : НайтиПоРеквизиту Sel_ole := SbCnt_ole.НайтиПоРеквизиту('ТипНосителя',fEnumVal_ole); NrMode:=1; end else begin //Значение перечисления ТипНосителя (для фильтрации) не указано //Выбираем без учета реквизита : ТипНосителя Sel_ole := SbCnt_ole.Выбрать(); end; end else begin //Значение перечисления ТипНосителя (для фильтрации) не указано //Выбираем без учета реквизита : ТипНосителя Sel_ole := SbCnt_ole.Выбрать(); end; end; if NrMode >0 then begin //Был вызван метод НайтиПоРеквизиту //Проверяем ссылку на корректность ... if not Sel_ole.Пустая() then begin //проверяем, что это не группа справочника if not Sel_ole.ЭтоГруппа then begin //это не группа - визуализируем ListBox1.Items.Add(' '+Trim(Sel_ole.Код)+'='+Trim(Sel_ole.Наименование)); end else begin ShowMessage('Найдена только группа с таким значением реквизита : <'+Edit_EnumVal.Text+'> !'); end; end else begin ShowMessage('Элементов с таким значением реквизита : <'+Edit_EnumVal.Text+'> не найдено !'); end; end else begin //Был выбран метод - Выбрать //Перебор элементов выборки 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; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

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

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

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

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

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

Теперь, вызовем метод НайтиПоРеквизиту справочника (по нажатию на кнопку "бегущие человечки").

На рис.5 представлен результат наших действий.

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

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

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

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

И по значению "Прочие" перечисления "ТипНосителя".

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

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

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

В случае отказа от выбора значения перечисления - следует соотв. сообщение :

Рис.8. Сообщение об отказе от выбора значения перечисления.
 

Это сработала наша проверка :

 TN_val_ole :=  TN_form_ole.ОткрытьМодально();
 if YesLinkToVariant(TN_val_ole) then begin
  ...
  ...
 end
 else begin
  ListBox1.Items.Clear;
  ShowMessage('Значение не выбрано !');
 end;
 

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

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

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