Использование REST web-сервисов в "1C:Предприятии 8". Личный опыт. Часть 2.

Для записи данных в REST используются: метод POST протокола HTTP для создания новых элементов и метод PATCH HTTP для обновления существующих данных. Например, запишем в базу контрагента. Сначала устанавливаем HTTPСоединение с базой. Создаем объект HTTPЗапрос. Подготовим параметр АдресРесурса запроса:

СтрокаЗапроса = "/Base1C/odata/standard.odata/Catalog_Контрагенты";

Для PATCH вызова допишем:

Если НЕ ПустаяСтрока(ID) Тогда
СтрокаЗапроса = СтрокаЗапроса + "(guid'" + ID + "')";
КонецЕсли;

Подготовим заголовки запроса и создадим его.

Заголовки = Новый Соответствие;
Заголовки.Вставить("Accept", "application/atom+xml,application/xml");
Заголовки.Вставить("Accept-Charset", "UTF-8");
Запрос = Новый HTTPЗапрос(СтрокаЗапроса, Заголовки);

Потом формируем текст запроса, для обоих методов он одинаков.  

ТекстЗапроса = "<?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>"
+ ?(ПустаяСтрока(ID), "", "
|          <d:Ref_Key>" + ID + "</d:Ref_Key>")
+ ?(ПустаяСтрока(Code), "", "
|         <d:Code>" + Code + " </d:Code>") + "
|         <d:DeletionMark>false</d:DeletionMark>"
+ ?(ПустаяСтрока(Name), "", "
|         <d:Description>" + Name + "</d:Description>"
+ ?(ПустаяСтрока(INN),                             "", "
|                                             <d:ИНН>" + INN + "</d:ИНН>")
);
Если IsGroup Тогда
ТекстЗапроса = ТекстЗапроса + "
|         <d:IsFolder>true</d:IsFolder>
|       </m:properties>
|   </content>
|</entry>
|";
Иначе
Если ПустаяСтрока(INN) ИЛИ СтрДлина(INN)=12 Тогда
ЮридическоеФизическоеЛицо="ФизическоеЛицо";
Иначе
ЮридическоеФизическоеЛицо="ЮридическоеЛицо";
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "
|         <d:IsFolder>false</d:IsFolder>"
+ ?(ПустаяСтрока(FullName), "", "
|          <d:НаименованиеПолное>" + FullName + "</d:НаименованиеПолное>")
+ ?(ПустаяСтрока(INN),                             "", "
|          <d:ИНН>" + INN + "</d:ИНН>")
+ ?(ПустаяСтрока(KPP),                             "", "
|          <d:КПП>" + KPP + "</d:КПП>") + "
|          <d:ЮридическоеФизическоеЛицо>" + ЮридическоеФизическоеЛицо + "</d:ЮридическоеФизическоеЛицо>" + "
|       </m:properties>
|   </content>
|</entry>
|";
КонецЕсли;

Текст запроса начинается с обязательной шапки. Дальше, в тэге <m:properties> перечисляются записываемые реквизиты. Каждый реквизит записывается тэгом «</d:название реквизита>. Реквизиты ссылочного типа после имени получают суффикс _Key. Значение типа перечисление записывается строковым представлением.

Теперь выполним HTTP запрос:

Запрос.УстановитьТелоИзСтроки(ТекстЗапроса);
Если ПустаяСтрока(ID) Тогда
Ответ = HTTPсоединение.ВызватьHTTPМетод("POST", Запрос);        // Создаем новый элемент
Иначе
Ответ = HTTPсоединение.ВызватьHTTPМетод("PATCH", Запрос);     // Update'им существующий
КонецЕсли;

Проанализируем ответ:

ОтветСтрокой = Ответ.ПолучитьТелоКакСтроку();
Если Ответ.КодСостояния > 299 Тогда
ТекстОшибки = "Error, код ошибки: " + Ответ.КодСостояния + "
|" + ОтветСтрокой;
ИначеЕсли ПустаяСтрока(ID) Тогда
// GUID не был передан заранее, значит нужно найти в ответе и передать назад
КолСтрок = СтрЧислоСтрок(ОтветСтрокой);
Для НомерСтроки=1 По КолСтрок Цикл
СтрокаАнализа = СтрПолучитьСтроку(ОтветСтрокой, НомерСтроки);
ПозицияНачала = СтрНайти(СтрокаАнализа, "<d:Ref_Key>");
Если ПозицияНачала > 0 Тогда
ПозицияНачала = ПозицияНачала + 11;
ID = Сред(СтрокаАнализа, ПозицияНачала, 36);
Прервать;
КонецЕсли;
КонецЦикла;
БулевРезФун = Истина;
ТекстОшибки = "OK. Был создан новый элемент с GUID='" + ID + "'";
Иначе
БулевРезФун = Истина;
ТекстОшибки = "OK. Успешно обновлен элемент с GUID='" + ID + "'";
КонецЕсли;

Теперь документ.  Запишем платежку.

ТекстЗапроса = "<?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>" +GUID + "</d:Ref_Key>")
|         <d:Number>" +Number + " </d:Number>") + "
|       <d:DeletionMark>false</d:DeletionMark>
|       <d:РаспределятьОплатуАвтоматически>true</d:РаспределятьОплатуАвтоматически>
|                             <d:Организация_Key>" + OrgID + "</d:Организация_Key>
|                             <d:ВалютаДокумента_Key>" + ВалютаДокумента + "</d:ВалютаДокумента_Key>
|                             <d:Date>" + XMLСтрока(Date) + "</d:Date>
|                             <d:СуммаДокумента>" +Summa + "</d:СуммаДокумента>
|                             <d:Комментарий> Создан из мобильного клиента " + ТекущаяДата() + "</d:Комментарий>";

С реквизитами составного типа немного сложнее:

Если ЗначениеЗаполнено(Контрагент) Тогда
ТекстЗапроса = ТекстЗапроса + "
|                             <d:Контрагент_Type>StandardODATA.Catalog_Контрагенты</d:Контрагент_Type>
|       <d:Контрагент>" +Контрагент + " </d:Контрагент>";
ИначеЕсли ЗначениеЗаполнено(Физлицо) Тогда
ТекстЗапроса = ТекстЗапроса + "
|                             <d:Контрагент_Type>StandardODATA.Catalog_ФизическиеЛица</d:Контрагент_Type>
|       <d:Контрагент>" + Физлицо + " </d:Контрагент>";
Иначе
ТекстОшибки = "Error - должен быть заполнен контрагент";
Возврат БулевРезФун;
КонецЕсли;

Для реквизитов составного типа сначала задается тип записываемого значения, тэгом <d:название реквизита_Type>. Потом ему присваивается значение. Любопытно, но значение реквизита в этом случае задается без суффикса _Key.

Теперь нужно описать табличную часть документа.

ТекстЗапроса = ТекстЗапроса + "
|             <d:РасшифровкаПлатежа m:type=""Collection(StandardODATA.Document_ПоступлениеНаРасчетныйСчет_РасшифровкаПлатежа_RowType)"">

Тэг  <d:РасшифровкаПлатежа указывает имя табличной части. Тэг m:type указывает тип реквизита РасшифровкаПлатежа. Теперь в цикле опишем значения строк табличной части:

Для НомерСтроки=1 По Док. РасшифровкаПлатежа.Количество()-1 Цикл
ТекстЗапроса = ТекстЗапроса + "
|             <d:element m:type=""StandardODATA.Document_ПоступлениеНаРасчетныйСчет_Товары_RowType"">
|                             <d:LineNumber>"+НомерСтроки+</d:LineNumber>
|                             <d:КурсВзаиморасчетов>1</d:КурсВзаиморасчетов>
|                             <d:КратностьВзаиморасчетов>1</d:КратностьВзаиморасчетов>
|                             <d:СуммаПлатежа>" + Summa[НомерСтроки-1] + "</d:СуммаПлатежа>
|                             <d:СуммаВзаиморасчетов>" + Summa[НомерСтроки-1] + "</d:СуммаВзаиморасчетов>
|                             <d:СтавкаНДС>БезНДС</d:СтавкаНДС>
|             </d:element>";
КонецЦикла;

Тэг d:element используется для описание строк табличной части. Внутри описания элемента тэг m:type указывает тип строки табличной части. Тэг d:LineNumber необходим для указания номера строки.

Закончим текст запроса.

ТекстЗапроса = ТекстЗапроса + "
|            </d:РасшифровкаПлатежа>
|       </m:properties>
|   </content>
|</entry>
|";

Подготовим АдресРесурса:

СтрокаЗапроса = "/"/Base1C/odata/standard.odata/Document_ПоступлениеНаРасчетныйСчет";

и заголовки HTTP запроса:

Заголовки = Новый Соответствие;
Заголовки.Вставить("Accept", "application/atom+xml,application/xml");
Заголовки.Вставить("Accept-Charset", "UTF-8");
Заголовки.Вставить("1C_OData_DataLoadMode", Истина);

Для документов доступна запись в режиме ОбменДанными.Загрузка=Истина;

Наконец-то можно выполнить запрос:

Запрос = Новый HTTPЗапрос(СтрокаЗапроса, Заголовки);
Запрос.УстановитьТелоИзСтроки(ТекстЗапроса);
Ответ = HTTPсоединение.ОтправитьДляОбработки(Запрос);

Обработаем ответ:

ОтветСтрокой = Ответ.ПолучитьТелоКакСтроку();
КолСтрок     = СтрЧислоСтрок(ОтветСтрокой);
Если Ответ.КодСостояния > 299 Тогда
ТекстОшибки = "Error, код ошибки: " + Ответ.КодСостояния + "
|" + ОтветСтрокой;
Возврат БулевРезФун;
Иначе
Если ПустаяСтрока(Number) Тогда
Number = " Не удалось определить № документа ";
Для НомерСтроки=1 По КолСтрок Цикл
СтрокаАнализа = СтрПолучитьСтроку(ОтветСтрокой, НомерСтроки);
ПозицияКонца = СтрНайти(СтрокаАнализа,"</d:Number>");
Если ПозицияКонца > 0 Тогда
ПозицияНачала = СтрНайти(СтрокаАнализа,">") + 1;
Number = Сред(СтрокаАнализа, ПозицияНачала, ПозицияКонца - ПозицияНачала);
КонецЕсли;
КонецЦикла;
КонецЕсли;
БулевРезФун = Истина;
ТекстОшибки = "OK. Успешно создано поступление на расчетный счет с номером='" + Number + "'";
КонецЕсли;

Заключение.

Итак, для чего нужны такие хлопоты? Главный и огромный плюс REST — быстродействие. Тесты на живых данных показали, по сравнению с привычными SOUP сервисами REST отрабатывали в 3-10 раз быстрее. Ради такого прироста можно помучиться и перетерпеть все неудобства REST.