Выполнение параметризированных SQL запросов по OLE из 1С 8.x в 1С 7.7

08.10.10

Разработка - Запросы

Выполнение параметризованных SQL запросов по OLE из 1С 8.x в 1С 7.7
Показан алгоритм как можно выполнить данный вид запросов

Всем привет.

Стояла задача получить подходящий номер ГТД и страну из базы ТиС 7.7 по коду товара в Бухгалтерии 8.1.

Для этого был написан SQL запрос для выполнения внутри базы 7.7.

После чего встала проблема как его выполнить на стороне 7.7 и вернуть в 8.1. Можно было переписать запрос на стандартный запрос 7.7 и выполнить его по OLE но в плане производительности такое решение наверное худшее из существующих. Ко всему прочему нужно было получать нужные параметры по нескольким товарам.

Для решения данной задаче я попытался сделать аналог параметризованного запроса 7.7, но с выполнением из 8.1 по OLE.

Суть параметризированных запросов в том, что компиляция происходит один раз, и далее в цикле меняются нужные параметры (переменные) запроса, за счет чего достигается выигрыш в скорости.

Т.е. запрос состоит из двух шагов.

  • Инициализация запроса т.е. его подготовка;
  • Подстановка параметров и выполнение.

В моем случае параметром будет код товара из 8.1.

Для того чтобы иметь возможность выполнять прямой запрос в базе 7.7 должна быть загружена компонента 1cpp.dll. Соответственно в 7.7 в глобальном модуле должна присутствовать строка к примеру такого вида:

ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "1cpp.dll")

Перейдем к написанию модуля в 8.1.

1.      При открытии обработки инициализируем запрос.

Процедура ПриОткрытии()
    Инициализация_Получить_ТабРез_Из_77();
КонецПроцедуры

//**************************************************************************
Функция Инициализация_Получить_ТабРез_Из_77()
    БазаИсточникOLE = Новый COMОбъект("V77.Application");
    Если не БазаИсточникOLE.Initialize(БазаИсточникOLE.RMTrade, "/D""" +  """ /N" +  " /P"  , "No_Splash_Show") Тогда
        Предупреждение("База не открыта. Ошибка подключения!");
        Возврат 0;
    КонецЕсли;
    ТекстЗапроса = "
    |Set NOCOUNT ON
    |Declare @Номенклатура VarChar(9)
    |Declare @КодНоменклатуры VarChar(10)
    |
    |Set @КодНоменклатуры = ?
    |Set @Номенклатура = (Select СпрНом.ID From $Справочник.Номенклатура as СпрНом (NOLOCK) 
    |Where СпрНом.Code = @КодНоменклатуры)
    |
    |SELECT TOP 1
    |  ГТД1.DESCR as Наименование
    |,$ГТД1.СтранаПроисхождения as СтранаПроисхождения
    |FROM $Справочник.ГТД1 AS ГТД1 (NOLOCK)
    |INNER JOIN $Справочник.Номенклатура AS Номенклатура ON ГТД1.PARENTEXT = Номенклатура.ID
    |WHERE (Номенклатура.ID = @Номенклатура) AND (ГТД1.DESCR <> '')
    |";
    Запрос77=БазаИсточникOLE.CreateObject("ODBCRecordset");
    Запрос77.Подготовить(ТекстЗапроса);
    Запрос77.ДобПараметр(1,14,10,0);
    Запрос77.ДобПараметр(1,14,9,0);
КонецФункции

2.      Напишем функцию подстановки параметра и выполнения запроса, с возвратом результата.

Функция Получить_ТабРез_Из_77(КодТовара)
    Запрос77.УстПараметр(1,КодТовара);
    Рез = Запрос77.ВыполнитьСкалярный();
    Возврат Рез;
КонецФункции 

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

3.      Сформируем пробный массив данных с кодами товаров, и получим требуемые данные для наших кодов. (понятно что это может быть перебор любой коллекции значений)

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Массив = Новый Массив;
    Массив.Вставить(0,"77426");
    Массив.Вставить(1,"81124");
    Для каждого стрМассив Из Массив Цикл
        а = Получить_ТабРез_Из_77(стрМассив);
        Сообщить(а.Наименование + " " + а.СтранаПроисхождения);
    КонецЦикла;
КонецПроцедуры

Компонента 1сpp.dll доступна для скачивания тут http://1cpp.ru/index.php/Download

FAQ по прямым запросам тут http://www.1cpp.ru/forum/YaBB.pl?num=1148038411

 

Традиционное сильно не пинайте Cool

См. также

SALE! 20%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 8000 руб.

02.09.2020    122421    673    389    

716

Для чего используют конструкцию запроса "ГДЕ ЛОЖЬ" в СКД на примере конфигурации 1С:ERP

Запросы СКД Платформа 1С v8.3 Запросы Система компоновки данных 1С:ERP Управление предприятием 2 Бесплатно (free)

В типовых конфигурациях разработчики компании 1С иногда используют в отчетах, построенных на СКД, такую конструкцию, как "ГДЕ ЛОЖЬ". Такая конструкция говорит о том, что данные в запросе не будут получены совсем. Для чего же нужен тогда запрос?

13.02.2024    5757    KawaNoNeko    23    

23

Набор-объект для СКД по тексту или запросу

Запросы СКД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    2007    2    Yashazz    0    

29

Запрос 1С copilot

Инструментарий разработчика Запросы Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Пишем на человеческом языке, что нам надо, и получаем текст запроса на языке 1С. Используются большие языковые модели (LLM GPT) от OpenAI или Яндекс на выбор.

5 стартмани

15.01.2024    6301    31    mkalimulin    25    

50

PrintWizard: поддержка представлений ЗУП в конструкторе

Инструментарий разработчика Запросы Платформа 1С v8.3 Бесплатно (free)

Одной из интересных задач, стоящих в процессе разработки, была поддержка механизма представлений в ЗУП. Но не просто возможность исполнения запросов с ними. Основная проблема была в том, чтобы с ними было удобно работать, а именно: создавать, модифицировать и отлаживать. Кратко о том, что в итоге получилось...

14.12.2023    1750    vandalsvq    7    

29

Объектная модель запроса "Схема запроса" 2

Запросы Платформа 1С v8.3 Запросы Конфигурации 1cv8 Бесплатно (free)

Далеко уже не новый тип данных "Схема запроса". Статья о том, как использовать его "попроще". Примеры создания текста запроса с нуля и изменение имеющегося запроса.

06.12.2023    5399    user1923546    26    

43

Начните уже использовать хранилище запросов

HighLoad оптимизация Запросы

Очень немногие из тех, кто занимается поддержкой MS SQL, работают с хранилищем запросов. А ведь хранилище запросов – это очень удобный, мощный и, главное, бесплатный инструмент, позволяющий быстро найти и локализовать проблему производительности и потребления ресурсов запросами. В статье расскажем о том, как использовать хранилище запросов в MS SQL и какие плюсы и минусы у него есть.

11.10.2023    16203    skovpin_sa    14    

98
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. anton.fly7 173 08.10.10 10:04 Сейчас в теме
круть!
а с DBF подобное прокатит?
получать можно только строковые данные? получить карточку например номенклатуры или документ из 77 в 8 не получится?
2. Попытка1С 13 08.10.10 10:19 Сейчас в теме
(1) Мне думается что таким способом можно использовать класс ПрямойЗапрос, и 1sqlite.dll. Запрос будет работать и в dbf версии. Постараюсь в ближайшее время проверить.

3. anton.fly7 173 08.10.10 10:22 Сейчас в теме
(2) я имею ввиду что все значения на выходе из 1с77 надо приводить к строке или числу или дате, остальные данные типа элемента справочника не получить?
4. Попытка1С 13 08.10.10 10:30 Сейчас в теме
(3) Возможно можно будет получить OLE объект если всю процедуру выполнить через evalexpr(). Нужно проверять.
5. Арчибальд 2706 08.10.10 11:02 Сейчас в теме
(4) Проверяй! Но плюс от меня уже есть.
6. Попытка1С 13 08.10.10 11:21 Сейчас в теме
Оставьте свое сообщение