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

27.12.11

Интеграция - Обмен между базами 1C

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

Скачать файлы

Наименование Файл Версия Размер
Демонстрация присвоения значения истина/ложь
.zip 25,13Kb
8
.zip 25,13Kb 8 Скачать

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

Существует интересная проблема - соединяясь с платформой 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:\1CBASE\Wrapper"; //Путь к конфигурации-заворачивателю
ПутьКПриемнику = "D:\1CBASE\Demo81"; //Путь к конфигурации-приемнику


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

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

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

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

См. также

SALE! 20%

Перенос данных из УПП 1.3 в ERP 2 / УТ 11 / КА 2. Переносятся документы, справочная информация и остатки

Обмен между базами 1C Платформа 1С v8.3 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) в продаже с 2015 года, постоянно работаем над их развитием | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

45650 36520 руб.

04.08.2015    159698    364    267    

345

SALE! 15%

[ED3] Обмен для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ и других с EnterpriseData (универсальный формат обмена), правила обмена

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

25080 22572 руб.

12.06.2017    134948    721    291    

388

SALE! 20%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | В продаже с 2019г. | Воспользовались более 176 предприятий! | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой, обращайтесь!

34650 27720 руб.

15.04.2019    68425    179    138    

111

SALE! 20%

Перенос данных из ERP 2 / КА 2 в ЗУП 3. Переносятся остатки, документы и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Воспользовались более 79 предприятий! | Предлагаем приобрести готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | В продаже с 2020г. | Оперативно обновляем правила до актуальных релизов 1С | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

43450 34760 руб.

03.12.2020    34172    80    58    

78

SALE! 10%

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.87.x) и УТ 11.5 (11.5.16.x).

28000 25200 руб.

23.07.2020    46301    196    64    

158

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9212    9    8    

10

SALE! 10%

Перенос данных из УПП 1.3 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.223.x) и БП 3.0 (3.0.149.x). Правила подходят для версии ПРОФ и КОРП.

28000 25200 руб.

15.12.2021    20256    132    38    

90

SALE! 10%

Перенос данных из БП 3.0 в УТ 11 / КА 2 / ERP 2. Переносятся начальные остатки, документы и справочники

Обмен между базами 1C Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

В продаже с 2014г. | Воспользовались более 122 предприятий! | Перенос данных из БП 3.0 в УТ 11 | из БП 3.0 в КА 2 | из БП 3.0 в ERP | Сэкономьте свое время - используйте готовое решение для перехода! | Постоянно работаем над развитием переноса данных | Обновляем на новые релизы 1С | Есть фильтр выгрузки по организациям | Переносятся начальные остатки на выбранную дату, документы за период времени и вся возможная справочная информация | Перенос сделан на технологии КД 2 (правила конвертации данных)

50722 45650 руб.

31.10.2014    231425    124    327    

296
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. alex_bob 246 27.12.11 09:38 Сейчас в теме
А вот так не проще:

ДокПриемник.ОбменДанными.Загрузка = СоединениеПриемник.ЗначениеИзСтрокиВнутр("{""B"",1}");  //Истина
ДокПриемник.ОбменДанными.Загрузка = СоединениеПриемник.ЗначениеИзСтрокиВнутр("{""B"",0}");  //Ложь
Froloid; Nicholas; +2 Ответить
2. Invaa 409 27.12.11 12:11 Сейчас в теме
Было бы проще, если бы работало :)
Правое значение 1С 7.7 преобразует в -1 или 0 и в результате получишь ошибку "Несоответствие типов".

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

ЗапросОбъект = СоединениеПриемник.NewObject("Запрос"); //СоединениеПриемник - COM-соединение с конфигурацией-приемником
			
Запр = "
|ВЫБРАТЬ
| Истина Как Загрузка"; //Важно чтобы алиас совпадал с именем реквизита, которому присвоим значение 
			    
ЗапросОбъект.Текст = Запр;
Результат = ЗапросОбъект.Выполнить();
			
Выборка = Результат.Выбрать();
Выборка.Следующий();
              
ДокПриемник = СоединениеПриемник.Документы.Док.СоздатьДокумент();
Сообщить(ДокПриемник.ОбменДанными.Загрузка); //По-умолчанию значение Ложь, вернется 0	
СоединениеПриемник.ЗаполнитьЗначенияСвойств(ДокПриемник.ОбменДанными, Выборка);
Сообщить(ДокПриемник.ОбменДанными.Загрузка); //Уже "Истина", вернется -1

Показать
Alav; Cyberhawk; nl8; +3 Ответить
5. alex_bob 246 27.12.11 12:43 Сейчас в теме
(2)

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


Я вообще-то код проверял. У меня работает. См. (7)
6. Invaa 409 27.12.11 12:54 Сейчас в теме
alex_bob пишет:
(5)

Странно. Может в новых релизах 1С что-то улучшили.

У меня не работает в связке 1С 7.70.025 - 1С 8.1.15.14.
3. salexdv 2327 27.12.11 12:29 Сейчас в теме
Я вообще не понял, зачем такой велосипед, когда можно написать
Объект.ОбменДанными.Загрузка = 1; //Истина
Объект.ОбменДанными.Загрузка = 0; // Ложь
?
7. alex_bob 246 27.12.11 13:02 Сейчас в теме
Хм.. Беру свои слова назад. Описываемая мной конструкция работает при присвоении значений свойствам объекта типа Булево (как впрочем и то, что описано в (3), но для данного случая действительно не работает - видимо косяк в платформе. Тогда плюс за публикацию.
4. Invaa 409 27.12.11 12:39 Сейчас в теме
Alxd пишет:
...

Собственно, зачем изобретать такой велосипед описано в разделе "Суть проблемы" и во внешних ссылках на данный сабж.
8. salexdv 2327 27.12.11 13:11 Сейчас в теме
(4)
Собственно, зачем изобретать такой велосипед описано в разделе "Суть проблемы" и во внешних ссылках на данный сабж.


Может для 8.0-8.1 это и проблема, на 8.2 установка 1 или 0 прекрасно работает и не возникает никакого несоответствия типов
9. Invaa 409 27.12.11 14:59 Сейчас в теме
(8) Alxd,

Конвертнул прикрепленную к публикации конфигурацию-приемник "Demo81" в 8.2. Попробовал на релизе 8.2.13.219 в режиме совместимости с 8.1 и без. Эффект из 7.7 оба раза одинаковый:

10. salexdv 2327 27.12.11 15:35 Сейчас в теме
(9) Ну вообще забавно конечно. Скорее тут частный случай какой-то
ДокПриемник.Отменен = 1; // Все хорошо (Отменен - Тип: Булево)
ДокПриемник.ОбменДанными.Загрузка = 1; // Несоответствие типов
11. alex_bob 246 27.12.11 16:04 Сейчас в теме
Кстати, как альтернативный вариант - засунуть процедуру УстановитьЗначениеИстина(Объект, Флаг) в модуль объекта внешней обработки с ключевым словом Экспорт. Тогда вызов будет:

Обработка = СоединениеПриемник.ВнешниеОбработки.Создать(ПолноеИмяФайла);
Обработка.УстановитьЗначениеИстина(ДокПриемник, 1);
Anything; +1 Ответить
12. Invaa 409 27.12.11 16:16 Сейчас в теме
alex_bob пишет:
Кстати, как альтернативный вариант - засунуть процедуру УстановитьЗначениеИстина(Объект, Флаг) в модуль объекта внешней обработки с ключевым словом Экспорт. Тогда вызов будет...

Да, тоже можно взять на заметку :)
13. pollack 05.04.18 18:24 Сейчас в теме
А почему бы не так?
ДокПриемник.ОбменДанными.Загрузка = СоединениеВрапперOLE.Вычислить("ИСТИНА");
ДокПриемник.ОбменДанными.Загрузка = СоединениеВрапперOLE.Вычислить("ЛОЖЬ");
14. Alav 13 05.08.20 14:53 Сейчас в теме
(13)
Поле агрегатного объекта не обнаружено (Вычислить)
Поле агрегатного объекта не обнаружено (Eval)
Поле агрегатного объекта не обнаружено (Выполнить)
Оставьте свое сообщение