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

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

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

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

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

В предыдущей статье были рассмотрены вопросы соединения с программой 1С:Предприятие 8 (1Cv8) из внешних приложений.
Но само по себе это не имеет никакого практического значения, если за этим не следует процесс обмена информацией между 1Cv8 и внешним приложением.

Рассмотрим этот вопрос на простом примере: считывание информации из справочников.

Чтобы максимально избавить примеры от лишних деталей - создадим новую информационную базу (в среде 1Cv8).
Затем, нужно запустить программу 1С:Предприятие (1Cv8)  и внести соответствующую информацию.

Здесь можно скачать готовую информационную базу ( 19 кб): homelib_01.zip

Исходные данные для наших тренировочных примеров следующие :
Имя каталога, где хранится информационная база данных: HomeLib.
Имя базы данных: Домашняя библиотека.
Идентификатор основного справочника : КнигиВидеоАудио
Список реквизитов справочника :



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

Атрибуты реквизитов :

Иерархия групп справочника :

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

Теперь можно приступить к программированию.

Создадим новый Delphi-проект (Load_from_SbCnt_OLE.dpr).
Ниже представлена форма проекта :

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

Вопросы соединения с 1Cv8 были рассмотрены ранее.
Поэтому сразу же перейдем к программированию процесса считывания информации из справочника КнигиВидеоАудио.

В данном случае будем ориентироваться на вариант : "OLE Automation Client/Server"

Создадим обработчик события : нажатие на кнопку "бегущие человечки".

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

Здесь все прозрачно (пояснения в тексте обработчика).

Теперь скомпилируем наш проект и запустим его на выполнение :

 Рис.4. Главное окно приложения Load_from_SbCnt_OLE.exe

Создадим соединения с 1Cv8 (кнопка "1С").

Рис. 5 Вызов программы 1Cv8, как сервера OLE Automation

Чтобы убрать окно программы 1C:Предприятие с экрана монитора - нужно снять отметку с флажка "Видимость" .

Чтобы визуализировать содержание справочника "КнигиВидеоАудио" - нужно на жать на кнопку "бегущие человечки".

Рис. 6  Содержание справочника "КнигиВидеоАудио" без учета иерархии.

Сравним результат считывания (с использованием механизма OLE Automation) информации с тем, что покажет программа 1С:Предприятие.
Для этого, визуализируем окно 1С:Предприятие (отметим флажок "Видимость").
Затем, выберем меню "Справочник .." (в линейке меню программы 1С:Предприятие).

Рис. 7  Меню "Справочник" программы 1Cv8

На экране появится диалоговое окно программы 1Cv8 (со списком справочников для выбора) :

Рис. 8  Диалоговое окно со списком справочников.

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

Программа 1Cv8 откроет окно визуализации справочника :

Рис. 9  Визуализация справочника 
"КнигиВидеоАудио"

Для сравнения обоих вариантов считывания (в контексте нашего Delphi-проекта и в контексте программы 1Cv8) - нужно выключить  режим иерархического просмотра (в программе 1Cv8), нажав на кнопку

Рис.10   Включение и выключение режима иерархического 
просмотра справочника.

Рис.11   Визуализация справочника "КнигиВидеоАудио"
с отключенным режимом иерархии.

Здесь пояснения излишни ...

Выбирая в нашем Delphi-проекте разные режимы считывания информации ("Элементы" или "Группы") - получим следующий результат.

Здесь также все понятно.

Исходные тексты этого проекта можно взять здесь (11 кб) :  load_from_sbcnt_ole_v01.zip
Здесь (load_from_sbcnt_com_v01.zip , 11 кб)  - аналогичный пример для варианта соединения : COM-соединение

Продолжение ...

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