Передача значения "Истина" по COM-соединению из 1С 7.7 в 1С 8.х

В данной статье описывается один из способов решения проблемы передачи булевых значений Истина/Ложь по OLE или COM-соединению из 1С 7.7 в 1С 8.х без модификации конфигурации, в которую необходимо передать эти значения. Как известно, 1С 7.7 в режиме OLE или COM-соединения с 1С 8.х умеет получать значение Истина как -1 и Ложь как 0. Обратное преобразование вызывает ошибку несоответствия типов.

Суть проблемы

Существует интересная проблема — соединяясь с платформой 8.х по OLE или COM-соединению из платформы 7.7 мы можем получить значение «Истина» как число «-1» и «Ложь» как число «0», но вернуть в 8.х как булевое обратно не можем. Получаем ошибку несоответствия типов.

Например, присвоение ДокументОбъект.ОбменДанными.Загрузка = 0 работать не будет. Важным моментом является так же то, что во многих случаях может быть нежелательным редактировать конфигурацию 8.х, в которую нужно передать значение «Истина»/»Ложь», назовем ее конфигурацией-приемником.

Детально сабж обсуждался здесь:

http://1cniku.ru/Articles/V8OLE.html#trabl1

http://www.forum.mista.ru/topic.php?id=149298

Решение проблемы

Не найдя решения проблемы без модификации конфигурации-приемника, я решил данную проблему при помощи новой конфигурации 8.х содержащей процедуры, которые заворачивают присваивание булевого значения «Истина»/»Ложь» необходимому реквизиту или свойству.

Для демонстрации данного решения я использовал платформу 8.1 и создал 2 конфигурации:

Demo81 –конфигурация-приемник, которую нельзя изменять, с одним документом «Док».

Wrapper – искусственная конфигурация, которая «умеет» присваивать булевое значение «Истина» нужному свойству или реквизиту

Метод присвоения выглядит следующим образом:

Процедура УстановитьЗначениеИстина(Объект, Флаг) Экспорт
Если Флаг = 0 Тогда
Объект.ОбменДанными.Загрузка = Ложь;
Иначе
Объект.ОбменДанными.Загрузка = Истина;
КонецЕсли;
КонецПроцедуры

Для того, чтобы данный метод можно было вызывать по COM-соединению, достаточно сделать его экспортным и поместить в модуль внешнего соединения. Аналогично, для вызова из OLE-соединения достаточно сделать его экспортным и поместить в модуль приложения.

Управляет соединениями с этими конфигурациями обработка для 7.7 Test.ert с модулем следующего содержания:

//*******************************************
Процедура Сформировать()

//COM
V81 = СоздатьОбъект(«V81.COMConnector»);
СоединениеВрапперCOM = «»;
Попытка
СоединениеВрапперCOM = V81.Connect («File=»»»+СокрЛП(ПутьКВрапперу)+«»»;»);
Исключение
Сообщить(«Ошибка подключения к Врапперу»,«!!!»);
Возврат;
КонецПопытки;

//OLE
СоединениеВрапперOLE =СоздатьОбъект(«V81.Application»);
Результат = СоединениеВрапперOLE.Connect («File=»»»+СокрЛП(ПутьКВрапперу)+«»»;»);
Если Результат = 0 Тогда
Сообщить(«Ошибка подключения к Врапперу»,«!!!»);
Возврат;
КонецЕсли;

//Test
СоединениеПриемник = «»;
Попытка
СоединениеПриемник = V81.Connect («File=»»»+СокрЛП(ПутьКПриемнику)+«»»;»);
Исключение
Сообщить(«Ошибка подключения к Примнику»,«!!!»);
Возврат;
КонецПопытки;

ДокПриемник = СоединениеПриемник.Документы.Док.СоздатьДокумент();
Сообщить(ДокПриемник.ОбменДанными.Загрузка); //По-умолчанию значение Ложь, вернется 0

СоединениеВрапперCOM.УстановитьЗначениеИстина(ДокПриемник, —1); //Успешно присваиваем значение Истина
Сообщить(ДокПриемник.ОбменДанными.Загрузка); //Получим числовое значение Ложь, вернется -1
СоединениеВрапперOLE.УстановитьЗначениеИстина(ДокПриемник, 0); //Успешно присваиваем значение Ложь
Сообщить(ДокПриемник.ОбменДанными.Загрузка); //Получим числовое значение Ложь, вернется 0

ДокПриемник.ОбменДанными.Загрузка = 0; //Здесь получим ошибку несоответствия типов

СоединениеПриемник = «»;

СоединениеВрапперCOM = «»;
СоединениеВрапперOLE = «»;
КонецПроцедуры

ПутьКВрапперу = «D:1CBASEWrapper»; //Путь к конфигурации-заворачивателю
ПутьКПриемнику = «D:1CBASEDemo81»; //Путь к конфигурации-приемнику

Таким образом, можно присваивать булевое значение не редактируя конфигурацию-приемник.

Можно реализовать присвоение Истина/Ложь и при помощи внешней компоненты, но у данного подхода есть свои плюсы:

Не нужно регистрировать внешнюю компоненту т.к. объекты «V81.COMConnector» и «V81.Application» уже зарегистрированы в системе (по условию проблемы).
Очень простая реализация заворачивателя.
Для доработки этого решения не требуются никакие IDE, кроме конфигуратора.

Демонстрационная обработка и конфигурации доступны для скачивания.

13 Comments

alex_bob 27.12.2011 at 09:38

А вот так не проще:

ДокПриемник.ОбменДанными.Загрузка = СоединениеПриемник.ЗначениеИзСтрокиВнутр(«{«»B»»,1}»);  //Истина
ДокПриемник.ОбменДанными.Загрузка = СоединениеПриемник.ЗначениеИзСтрокиВнутр(«{«»B»»,0}»);  //Ложь

Reply ↓

Invaa 27.12.2011 at 12:11

Было бы проще, если бы работало 🙂

Правое значение 1С 7.7 преобразует в -1 или 0 и в результате получишь ошибку «Несоответствие типов».

Уже после статьи придумал более изящное решение, правда не универсальное, так не передашь Истину, скажем функции, но зато без доп. конфигураций :

ЗапросОбъект = СоединениеПриемник.NewObject(«Запрос»); //СоединениеПриемник — COM-соединение с конфигурацией-приемником

Запр = »
|ВЫБРАТЬ
| Истина Как Загрузка»; //Важно чтобы алиас совпадал с именем реквизита, которому присвоим значение

ЗапросОбъект.Текст = Запр;
Результат = ЗапросОбъект.Выполнить();

Выборка = Результат.Выбрать();
Выборка.Следующий();

ДокПриемник = СоединениеПриемник.Документы.Док.СоздатьДокумент();
Сообщить(ДокПриемник.ОбменДанными.Загрузка); //По-умолчанию значение Ложь, вернется 0
СоединениеПриемник.ЗаполнитьЗначенияСвойств(ДокПриемник.ОбменДанными, Выборка);
Сообщить(ДокПриемник.ОбменДанными.Загрузка); //Уже «Истина», вернется -1

Показать