Еще немного об обмене на web-сервисах

26.08.16

Интеграция - WEB-интеграция

Расскажу о собственном опыте по передаче данных через web-сервисы

Знакомство с web-сервисами началось у меня на основе готового примера обмена между двумя разными конфигурациями. В этом примере в базе-источнике заполнялся XDTO-пакет и вызывался web-сервис, в котором осуществлялся поиск объекта по GUID, создание его в случае отсутствия, все реквизиты ссылочного типа заполнялись аналогично (поиск по GUID). В результате в приемнике получалось достаточно много кода, в основном - проверки нашли/не нашли объект и создание объекта во втором случае.

Недавно обнаружил XDTO-пакет http://v8.1c.ru/8.1/data/enterprise/current-config, описывающий каждую конфигурацию в терминах ее объектов метаданных (например, CatalogObject.ФизическиеЛица).

Появилась идея проверить, нельзя ли упростить обмен - и вот что у меня получилось.

Создание и заполнение свойств XDTO-пакета:

Процедура ВыгрузкаФизическихЛиц(Прокси, Узел, Фабрика, ОбъектОтбора)
                
                ФизическоеЛицоТип = Фабрика.Тип("http://v8.1c.ru/8.1/data/enterprise/current-config", "CatalogObject.ФизическиеЛица");
                ФизическоеЛицоКИТип = Фабрика.Тип("http://v8.1c.ru/8.1/data/enterprise/current-config", "CatalogTabularSectionRow.ФизическиеЛица.КонтактнаяИнформация");
                
                Запрос = Новый Запрос;
                Запрос.Текст = 
                "ВЫБРАТЬ
                |             ФизическиеЛица.Ссылка КАК ФизическоеЛицо,
                |             ФизическиеЛица.Код КАК Code,
                |             ФизическиеЛица.ПометкаУдаления КАК DeletionMark,
                |             ФизическиеЛица.Наименование КАК Description,
                |             ФизическиеЛица.ЭтоГруппа КАК IsFolder,
                |             ФизическиеЛица.Родитель КАК Parent,
                |             ВЫБОР
                |                             КОГДА ФизическиеЛица.Предопределенный
                |                                             ТОГДА ФизическиеЛица.ИмяПредопределенныхДанных
                |                             ИНАЧЕ """"
                |             КОНЕЦ КАК PredefinedDataName,
                |             ФизическиеЛица.ДатаРождения,
                |             ФизическиеЛица.Пол,
                |             ФизическиеЛица.ИНН,
                |             ФизическиеЛица.СтраховойНомерПФР,
                |             ФизическиеЛица.МестоРождения,
                |             ФизическиеЛица.ИмеетНаучныеТруды,
                |             ФизическиеЛица.ИмеетИзобретения,
                |             ФизическиеЛица.ФИО,
                |             ФизическиеЛица.УточнениеНаименования,
                |             ФизическиеЛица.ДатаРегистрации,
                |             ФизическиеЛица.НаименованиеСлужебное,
                |             ФизическиеЛица.ЛьготаПриНачисленииПособий,
                |             ФизическиеЛица.ПостоянноПроживалВКрыму18Марта2014Года,
                |             ФизическиеЛица.Фамилия,
                |             ФизическиеЛица.Имя,
                |             ФизическиеЛица.Отчество,
                |             ФизическиеЛица.ИнициалыИмени,
                |             ЗНАЧЕНИЕ(Справочник.ГруппыДоступаФизическихЛиц.ПустаяСсылка) КАК ГруппаДоступа,
                |             0 КАК УдалитьПроцентСевернойНадбавкиФизическогоЛица,
                |             ЛОЖЬ КАК УдалитьПроцентСевернойНадбавкиФизическогоЛицаИзменяется,
                |             ЗНАЧЕНИЕ(Перечисление.ПорядокНачисленияСеверныхНадбавок.ПустаяСсылка) КАК УдалитьПорядокИсчисленияПроцентаСевернойНадбавки,
                |             значение(Справочник.ФизическиеЛицаПрисоединенныеФайлы.ПустаяСсылка) КАК УдалитьФотография,
                |             значение(Справочник.Файлы.ПустаяСсылка) КАК УдалитьФотографияФайлом
                |ИЗ
                |             Справочник.ФизическиеЛица.Изменения КАК ФизическиеЛицаИзменения
                |                             ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица
                |                             ПО ФизическиеЛицаИзменения.Ссылка = ФизическиеЛица.Ссылка
                |ГДЕ
                |             ФизическиеЛицаИзменения.Узел = &Узел";
                Запрос.УстановитьПараметр("Узел", Узел);
                
                Выборка = Запрос.Выполнить().Выбрать();
                Пока Выборка.Следующий() Цикл
                               
                               ФизЛицо = Выборка.ФизическоеЛицо;
                               
                               ОбъектXDTO = Фабрика.Создать(ФизическоеЛицоТип);
                               ЗаполнитьЗначенияСвойств(ОбъектXDTO, Выборка);
                               ОбъектXDTO.Ref = Строка(ФизЛицо.УникальныйИдентификатор());
                                                               
                               Для Каждого СтрокаКИ Из ФизЛицо.КонтактнаяИнформация Цикл
                                               ОбъектXDTOКИ = Фабрика.Создать(ФизическоеЛицоКИТип);
                                               ЗаполнитьЗначенияСвойств(ОбъектXDTOКИ, СтрокаКИ);
                                               ОбъектXDTO.КонтактнаяИнформация.Добавить(ОбъектXDTOКИ);         
                               КонецЦикла;
                               
                               РезультатОперации = Ложь;
                               Попытка 
                                               РезультатОперации = Прокси.SetObject(ОбъектXDTO);
                               Исключение
                               КонецПопытки;
                               
                               Если РезультатОперации Тогда
                                               ПланыОбмена.УдалитьРегистрациюИзменений(Узел, ФизЛицо);
                               КонецЕсли;
                               
                КонецЦикла;
                
КонецПроцедуры

А вот метод web-сервиса, который получает данные:

Функция SetObject(Object)
                Попытка  
                               Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
                               Объект = Сериализатор.ПрочитатьXDTO(Object);
                               
                               Если  Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Объект.Ссылка)) Тогда
                                               Объект.Записать();
                                Исключение
                                               Возврат Ложь;
                               КонецПопытки;
                
                Возврат Истина;
                
КонецФункции

Надеюсь, кому-нибудь будет полезным.

обмены web-сервисы

См. также

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    159689    363    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    134938    723    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    68418    178    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    34169    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

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    231411    124    327    

296

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

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

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

60000 руб.

05.10.2022    9208    9    8    

10
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Fragster 1138 26.08.16 11:13 Сейчас в теме
Этот код подходит только для совпадающих структур. Но для них можно использовать прямую сериализацию объекта, без запросов и ручного заполнения свойств.
1С_Мастер; +1 Ответить
2. savostin.alex 83 26.08.16 14:58 Сейчас в теме
(1) Fragster,
Это две разных базы с идентичными конфигурациями (задача такая была) с передачей объекта из одной базы в другую. Думается, работать будет и на различающихся конфигурациях - пакет же описывается по конфигурации приемника.
3. Fragster 1138 26.08.16 16:22 Сейчас в теме
(2) в данном случае - не приемника, а той, в которой код запускается.
соответственно, делать
Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
Объект = Сериализатор.ПрочитатьXDTO(Object);
не надо, достаточно
СериализаторXDTO.ПрочитатьXDTO(Object);

а при выгрузке - убрать запрос и делать
ФизическиеЛицаОбъект = ФизическиеЛицаСсылка.ПолучитьОбъект();
Объект = СериализаторXDTO.ЗаписатьXDTO(Объект);
JohnyDeath; sergpogo; akR00b; +3 Ответить
4. savostin.alex 83 26.08.16 16:38 Сейчас в теме
(3) Fragster,
Спасибо, осмыслю.
5. savostin.alex 83 01.09.16 12:51 Сейчас в теме
(1) Fragster,
Проверил - работает на разных структурах. ЗаписатьXDTO() - только на идентичных.
6. Fragster 1138 01.09.16 13:02 Сейчас в теме
(5) именно при указании типа в пространстве имен http://v8.1c.ru/8.1/data/enterprise/current-config?
7. savostin.alex 83 01.09.16 14:34 Сейчас в теме
(6) Fragster,
Да, в этом пространстве имен. Т.е. при идентичных конфигурациях работает сериализация, а на различающихся - ручное заполнение, как в статье.
Оставьте свое сообщение