Адрес этой странички : http://doc-prg.narod.ru/art_00016/art_00016.htm 
Дата обновления : 19.04.2008
 

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

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

1Cv8 + Delphi-5.
OLE (COM).
Считывание информации.
Справочники.
Список групп и элементов.
Использование ЗАПРОСОВ. 
 

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

Ранее был затронут вопрос считывания информации из справочников с использованием методов объекта "Справочники" системы 1Cv8.  Эту же задачу можно решить, используя объект "ЗАПРОС" системы 1Cv8.

Откроем Конфигуратор 1С:Предприятие и доработаем нашу конфигурацию homelib_08.zip , добавив в общий модуль  (spLib_OLE) конфигурации следующую функцию :

Ниже представлен соответствующий исходный текст в синтаксисе Pascal  :

//19.04.2008 //Пример работы с 1С версии 8 //Получить список элементов справочника, используя объект "Запрос" //(c) Sergey Popov, Usinsk, Komi, 2008 Var s1C8_ole : variant; //ссылка на 1С, как OLE Automatin server InitLine : string; //Строка инициализации 1Cv8 Sx, sQueryText : string; //Текст запроса ResQ_ole : variant; //Результат выборки элементов справочника ListRes : TStrings; //Список, где перечислены результаты выборки элементов справочника BEGIN s1C8_ole:=UnAssigned; ResQ_ole:=UnAssigned; //Строка инициализации 1Cv8 InitLine:='File=F:\1C\1Cv8\1cv8.db\HomeLib\; Usr="Admin"; pwd="0"'; //Соединение с 1С, как OLE Automation сервер s1C8_ole := ConnectTo_1Cv8('',InitLine,true); try if YesLinkToOLE(s1C8_ole) then begin //Проверка, что ссылка на 1C не пуста ListRes := TStringList.Create; TRY //-------------------------------------------- //Формируем текст запроса sQueryText:=''; sQueryText:=sQueryText+'ВЫБРАТЬ '; sQueryText:=sQueryText+' Код, '; sQueryText:=sQueryText+' Наименование, '; sQueryText:=sQueryText+' ЭтоГруппа '; sQueryText:=sQueryText+'ИЗ '; sQueryText:=sQueryText+' Справочник.КнигиВидеоАудио '; sQueryText:=sQueryText+'ГДЕ '; //sQueryText:=sQueryText+' ЭтоГруппа '; sQueryText:=sQueryText+' НЕ ЭтоГруппа '; //sQueryText:=sQueryText+' Код=24 '; sQueryText:=sQueryText+'УПОРЯДОЧИТЬ '; sQueryText:=sQueryText+' ПО '; sQueryText:=sQueryText+' Наименование '; //-------------------------------------------- //Открываем выборку элементов справочника, //используя функцию из общего модуля 1Cv8 (spLib_OLE) ResQ_ole:=s1C8_ole.Запрос_Создать_OLE(sQueryText,1); //------------------------------------------ //Сканируем выборку while ResQ_ole.Следующий do begin Sx:=Trim(s1C8_ole.EvalExprStr_OLE(ResQ_ole.ЭтоГруппа)); ListRes.Add('Код='+Trim(ResQ_ole.Код)+' Наименование='+Trim(ResQ_ole.Наименование)+' ЭтоГруппа='+Sx{Trim(ResQ_ole.ЭтоГруппа)}); end; //------------------------------------------ ResQ_ole:=UnAssigned; List_View('Результат выборки',ListRes); FINALLY List_Clear(ListRes); END; end; finally DisconnectFrom_1Cv8(s1C8_ole); end; END.

Здесь следует отметить, что с целью оперативности этот пример реализован не в среде Delphi, а в среде программируемого калькулятора spCalc.exe (http://spcalc.narod.ru).  

Результат выборки представлен на рисунке :

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

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