В практике интеграции систем на платформе 1С предприятие нередко возникает необходимость связать программные решения разных поколений. Одним из наиболее классических и в то же время сложных «извращений» (как называют его сами разработчики) является задача подключиться из устаревшей версии 1С 7.7 к современной базе 1С 8.3 через COM-соединение, выполнить там запрос и корректно обработать его результаты на стороне «семерки».
При реализации этого механизма разработчики регулярно сталкиваются с неочевидными техническими препятствиями. Платформа 1С 7.7 не умеет напрямую работать со многими типами данных и синтаксическими конструкциями 1С 8.3. В этой статье мы подробно разберем, почему возникают ошибки при попытке обработать результаты запроса, и рассмотрим проверенные практические решения этой задачи.
Давайте проанализируем типичный сценарий. Мы успешно инициализировали COM-соединение, создали объект запроса, передали параметры и выполнили его в контексте 1С 8.3. Но при попытке обработать возвращенный результат в 1С 7.7 программа выдает ошибки:
Запр[0] приводит к синтаксической ошибке.Следующий() выдает ошибку агрегатного типа или вызывает бесконечный цикл.Получить(0) для обращения к строке таблицы значений через COM вызывает ошибку несоответствия параметров.Разберем природу этих проблем подробнее. Платформа 1С 7.7 общается с внешними объектами по протоколу OLE/COM. Она не поддерживает синтаксис квадратных скобок для обращения к коллекциям по индексу. Кроме того, существует серьезная проблема трансляции типов данных (маршалинга) между 32-битным окружением 1С 7.7 и COM-сервером 1С 8.3.
В частности, логический тип Булево (Истина/Ложь), возвращаемый методами 1С 8.3, при передаче в 1С 7.7 превращается в системное числовое значение OLE: Истина становится равной -1, а Ложь превращается в 0. Именно поэтому стандартные конструкции обхода выборки ведут себя непредсказуемо.
---
Если мы не выгружаем результат запроса в таблицу значений, а хотим обойти его последовательно с помощью выборки, нам необходимо учесть особенности преобразования логического типа Булево.
Рассмотрим, как правильно написать цикл обхода на стороне 1С 7.7. Вместо стандартного для «восьмерки» условия Пока Выборка.Следующий() Цикл, мы должны явно сравнивать возвращаемое значение с числом -1 (которое эквивалентно значению Истина):
// Создаем объект запроса в базе 1С 8.3 через установленное COM-соединение (v8)
ТекЗапрос = v8.NewObject("Запрос");
ТекЗапрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Код КАК Код,
| Номенклатура.Наименование КАК Наименование
|ИЗ
| Справочник.Номенклатура КАК Номенклатура";
// Получаем выборку из результата запроса
Выборка = ТекЗапрос.Выполнить().Выбрать();
// Обходим выборку с явным приведением OLE-типа Boolean к числу
Пока Выборка.Следующий() = -1 Цикл
// Обрабатываем полученные данные
КодНоменклатуры = Выборка.Код;
ИмяНоменклатуры = Выборка.Наименование;
Сообщить("Найден товар: " + КодНоменклатуры + " - " + ИмяНоменклатуры);
КонецЦикла;
Использование конструкции Выборка.Следующий() = -1 гарантирует стабильную работу цикла без зависаний и падений по ошибке типов.
---
Если вам необходимо выгрузить результат запроса в Таблицу Значений 1С 8.3 и обработать её в 1С 7.7, использование индексатора [] недопустимо. Вместо этого мы должны использовать метод Получить() (или его англоязычный аналог Get()).
Однако здесь кроется еще одна ловушка. Попытка передать числовой литерал напрямую в метод, например, Запр.Получить(0), часто вызывает ошибку «Несоответствие параметров», так как 1С 7.7 не может корректно передать тип константы через COM-границу. Чтобы обойти это ограничение, индекс строки обязательно нужно предварительно поместить в отдельную числовую переменную.
Разберем по шагам рабочий алгоритм обхода таблицы значений:
// Выполняем запрос и выгружаем результат в Таблицу Значений базы 1С 8.3
ТабЗнач8 = ТекЗапрос.Выполнить().Выгрузить();
КоличествоСтрок = ТабЗнач8.Количество();
Для Сч = 0 По КоличествоСтрок - 1 Цикл
// КРИТИЧЕСКИ ВАЖНО: Переносим индекс в промежуточную переменную
ТекИндекс = Сч;
// Получаем строку таблицы значений 1С 8.3
СтрокаТЗ = ТабЗнач8.Получить(ТекИндекс);
// Получаем значения колонок
ТоварСсылка = СтрокаТЗ.Ссылка;
// Обращаемся к свойствам ссылки напрямую через COM-соединение
Сообщить("Успешно обработана строка: " + ТоварСсылка.Наименование);
КонецЦикла;
---
Обратите внимание на следующий важный момент: получение ссылки Ссылка КАК Ссылка в запросе и последующее обращение к её свойствам (например, СтрокаТЗ.Ссылка.Наименование) внутри цикла в 1С 7.7 работает крайне медленно. Каждое такое обращение через точку — это отдельный ресурсоемкий COM-вызов к базе 1С 8.3, который инициализирует сетевой запрос, считывает данные из СУБД и передает их обратно.
Правило хорошего тона при COM-интеграции: извлекайте все необходимые свойства объектов (коды, наименования, реквизиты, числовые значения) непосредственно в самом тексте запроса в базе 1С 8.3. Передавайте в 1С 7.7 только простые типы данных (строки, числа, даты). Это ускорит работу обработки в десятки раз.
Сравните неоптимальный и оптимальный варианты:
Неоптимальный вариант (медленно):
// В запросе выбираем ссылку
ТекЗапрос.Текст = "ВЫБРАТЬ Ссылка ИЗ Справочник.Номенклатура";
// ... в цикле на стороне 7.7 дергаем реквизиты:
ТекНаименование = СтрокаТЗ.Ссылка.Наименование; // Каждый раз идет запрос к базе 8.3!
Оптимальный вариант (быстро):
// В запросе сразу достаем простые типы данных
ТекЗапрос.Текст = "ВЫБРАТЬ Код КАК Код, Наименование КАК Наименование ИЗ Справочник.Номенклатура";
// ... в цикле на стороне 7.7 читаем уже готовые значения строк из памяти:
ТекНаименование = СтрокаТЗ.Наименование; // Чтение происходит мгновенно
---
Несмотря на то, что мы разобрали рабочие способы взаимодействия через COM-соединение, на практике этот метод имеет серьезные недостатки: утечки оперативной памяти, зависание процессов 1cv8.exe на сервере и проблемы совместимости при переходе на 64-битные операционные системы. Если объемы передаваемых данных велики, рассмотрите альтернативные и более стабильные варианты интеграции.
1. Сериализация в XML или JSON
Вместо передачи живых COM-объектов таблиц значений, вы можете написать в базе 1С 8.3 простую экспортную функцию, которая выполнит запрос, сформирует XML- или JSON-строку и вернет ее в 1С 7.7. Семерка без проблем может распарсить XML с помощью стандартного системного объекта MSXML2.DOMDocument или обработать JSON при помощи компоненты MSScriptControl.ScriptControl.
2. Использование HTTP-сервисов
Это наиболее современный и надежный подход. В базе 1С 8.3 публикуется HTTP-сервис. Из 1С 7.7 с помощью стандартного Windows-объекта WinHttp.WinHttpRequest.5.1 отправляется GET- или POST-запрос с параметрами. База 8.3 мгновенно выполняет запрос к СУБД на стороне сервера, собирает данные в легковесный JSON и возвращает его в 1С 7.7. При этом нет необходимости устанавливать тяжелое COM-соединение и держать открытую сессию.