Знакомство с 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);
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Объект.Ссылка)) Тогда
Объект.Записать();
Исключение
Возврат Ложь;
КонецПопытки;
Возврат Истина;
КонецФункции
Надеюсь, кому-нибудь будет полезным.
