Универсальный обмен между идентичными конфигурациями через REST интерфейс OData. Часть І: Справочники

Функция СправочникДоставленоУспешно(СсылкаСправочник, DELETE, Метод = "POST", Тень = Ложь)

Если Константы.СерверСбораДанныхОфлайн.Получить() И (НЕ Тень) Тогда // если связи нету можна просто перейти в офлайн используя  Константы.СерверСбораДанныхОфлайн.Установить(Истина)
Возврат Ложь;
КонецЕсли;

Связь = ПолучитьКаналСвязиССерверомСбораДаних(); // служебное - смотри далее

ИмяСправочника = СсылкаСправочник.Метаданные().Имя;

Если Тень Тогда
// теневые копию я создавал в идентичном обьъкте как оригинальний справочник, только с префиксом «_с_». Зачем? Запрос по теневым копиям работают быстрее, и в случае успешной доставки теневой копию — копия удалялась
ИмяСправочника = СтрЗаменить(ИмяСправочника,"_с_","");
КонецЕсли;

guid =  Строка(СсылкаСправочник.УникальныйИдентификатор());

Если DELETE Тогда // если удалить объект

АдресРесурса =  "/" + Связь.Порт + "/odata/standard.odata/Catalog_" + ИмяСправочника + "(guid'"+ guid + "')";

Соединение = Новый HTTPСоединение(Связь.Сервер);

ЗаголовокHTTP = Новый Соответствие();
ЗаголовокHTTP.Вставить("Accept", "application/atom+xml,application/xml");
ЗаголовокHTTP.Вставить("Accept-Charset", "UTF-8");
ЗаголовокHTTP.Вставить("DELETE" + " /" + Связь.Порт + "/odata/standard.odata/Catalog_" + ИмяСправочника + "(guid'"+ guid + "')");
ЗаголовокHTTP.Вставить("Content-Type", "application/atom+xml");
ЗаголовокHTTP.Вставить("DataServiceVersion", "3.0;NetFx");
ЗаголовокHTTP.Вставить("MaxDataServiceVersion", "3.0;NetFx");
ЗаголовокHTTP.Вставить("User-Agent", "1C-Enterprise");
ЗаголовокHTTP.Вставить("Host", Связь.Сервер);
Запрос = Новый HTTPЗапрос(АдресРесурса, ЗаголовокHTTP);
Ответ = Соединение.ВызватьHTTPМетод("DELETE", Запрос);

Возврат Ответ.КодСостояния = 204 // случае успешного удаления сервер вернет код состояния  =204
Иначе // если создать/обновить объект

АдресРесурса = "/" + Связь.Порт + "/odata/standard.odata/Catalog_" + ИмяСправочника + ?(Метод = "PUT", "(guid'" + guid + "')","");

ТекстЗапроса = ОпределитьШапкуЗапроса(guid); // служебное - смотри далее

// соответствие стандартных реквизитов
CписокCтандартныхРеквизитов = СоздатьОписанияОбязательнихРеквизитовСправочника(СсылкаСправочник); // служебное - смотри далее
Для Каждого ОписаниеРеквизита ИЗ CписокCтандартныхРеквизитов Цикл
ТекстЗапроса = ТекстЗапроса + "
|         <d:" + ОписаниеРеквизита.Ключ + ">" + СокрЛП(ОписаниеРеквизита.Значение) + "</d:" + ОписаниеРеквизита.Ключ + ">";
КонецЦикла;

// соответствие дополнительных реквизитов
СписокДопРеквизитов = СоздатьОписанияДополнительнихРеквизитов(СсылкаСправочник); // служебное - смотри далее
Для Каждого ОписаниеДопРеквизита ИЗ СписокДопРеквізитів Цикл
ТекстЗапроса = ТекстЗапроса + "
|         <d:" + ОписаниеДопРеквизита.Ключ + ">" + СокрЛП(ОписаниеДопРеквизита.Значение) + "</d:" + ОписаниеДопРеквизита.Ключ + ">";
КонецЦикла;

// соответствие табличных частей
ОписаниеТабличныхЧастей = СоздатьОписанияТабличныхЧастей(СсылкаСправочник, "Catalog", Тень); // служебное - смотри далее
Если НЕ ОписаниеТабличныхЧастей = "" Тогда
ТекстЗапроса = ТекстЗапроса + ОписаниеТабличныхЧастей;
КонецЕсли;

ТекстЗапроса = ТекстЗапроса + "
|      </m:properties>
|   </content>
|</entry>";

Соединение = Новый HTTPСоединение(Связь.Сервер);
Заголовки = Новый Соответствие;
Заголовки.Вставить("Accept", "application/atom+xml,application/xml");
Заголовки.Вставить("Accept-Charset", "UTF-8");
Заголовки.Вставить(Метод + "  /" + Связь.Порт + "/odata/standard.odata/Catalog_" + ИмяСправочника + ?(Метод = "PUT", "(guid'" + guid + "')","") + " HTTP/1.1");
Заголовки.Вставить("Content-Type", "application/atom+xml");
Заголовки.Вставить("DataServiceVersion", "3.0;NetFx");
Заголовки.Вставить("MaxDataServiceVersion", "3.0;NetFx");
Заголовки.Вставить("User-Agent", "1C-Enterprise");
Заголовки.Вставить("Host", Связь.Сервер);

Попытка
Запрос = Новый HTTPЗапрос(АдресРесурса, Заголовки);
Запрос.УстановитьТелоИзСтроки(ТекстЗапроса);
Ответ = Соединение.ВызватьHTTPМетод(Метод, Запрос);

Если (Ответ.КодСостояния <> 201) И (Метод = "POST") Тогда // успешным для POST считается код 201
Возврат СправочникДоставленоУспешно(СсылкаСправочник, DELETE,"PUT", Тень);
ИначеЕсли (Ответ.КодСостояния <> 200) И (Метод = "PUT") Тогда // успешным для PUT считается код 200
Возврат Ложь
Иначе
Возврат Истина
КонецЕсли;

Исключение
Возврат Ложь;
КонецПопытки;

КонецЕсли;

КонецФункции

Функция ОпределитьШапкуЗапроса(GUID = "00000000-0000-0000-0000-000000000000")

Возврат "<?xml  version=""1.0"" encoding=""utf-8""?>
|<entry  xmlns=""http://www.w3.org/2005/Atom""
|        xmlns:d=""http://schemas.microsoft.com/ado/2007/08/dataservices""
|        xmlns:m=""http://schemas.microsoft.com/ado/2007/08/dataservices/metadata""
|        xmlns:georss=""http://www.georss.org/georss""
|        xmlns:gml=""http://www.opengis.net/gml"">
|   <content type=""application/xml"">
|      <m:properties>
|         <d:Ref_Key m:type=""Edm.Guid"">" + GUID + "</d:Ref_Key>";

КонецФункции

Функция СоздатьОписанияОбязательнихРеквизитовСправочника(СсылкаСправочник)

МетаданныеСправочника = СсылкаСправочник.Метаданные();

ОписаниеСтандарныхРеквизитов = Новый Соответствие();

Для Каждого СтандартныйРеквизит ИЗ МетаданныеСправочника.СтандартныеРеквизиты Цикл
Если СтандартнийРеквизит.Имя = "Код" Тогда
ОписаниеСтандарныхРеквизитов.Вставить("Code", СсылкаСправочник.Код);

ИначеЕсли СтандартныйРеквизит.Имя = "Наименование" Тогда
ОписаниеСтандарныхРеквизитов.Вставить("Description", СокрЛП(СсылкаСправочник.Наименование));

ИначеЕсли СтандартныйРеквизит.Имя = "ПометкаУдаления" Тогда
ОписаниеСтандарныхРеквизитов.Вставить("DeletionMark", ?(СсылкаСправочник.ПометкаУдаления, "true", "false"));

ИначеЕсли СтандартныйРеквизит.Имя = "ЭтоГруппа" Тогда
ОписаниеСтандарныхРеквизитов.Вставить("IsFolder", ?(СсылкаСправочник.ЭтоГруппа, "true", "false"));

КонецЕсли;
КонецЦикла;

Возврат ОписаниеСтандарныхРеквизитов

КонецФункции