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

11.07.2018 4 Comments

Обмен данными 1С, Перенос данных из 1C8 в 1C8, Разработка

, ,

Продолжение статьи об универсальном обмене между идентичными конфигурации через REST интерфейс OData (https://infostart.ru/public/829356/). В части второй разберем особенности обмена документами.

 

ПРЕДЫДУЩАЯ ЧАСТЬ. ЧАСТЬ І. СПРАВОЧНИКИ

 

В части первой мы уже коротко выяснили что такое OData и описали некоторые общие процедуры и функции (в первой части я называл их служебными), мы используем (или даже расширим) для разработки модуля обмена документами следующие из них:

Функция ПолучитьКаналСвязиССерверомСбораДаних() // не изменится в этой статье
Функция ОпределитьШапкуЗапроса(GUID = "00000000-0000-0000-0000-000000000000") // не изменится в этой статье
Функция НормализироватьКОбмену(ЭтотРеквизит) // не изменится в этой статье

Функция СоздатьОписанияДополнительнихРеквизитов(СсылкаОбъекта, СписокСсылочных = 0) // расширится
Функция СоздатьОписанияТабличныхЧастей(СсылкаОбъекта, ПрефиксОбъекта, Тень = Ложь) // расширится

 

Вот так расширится и "главная" экспортная процедура отправки данных на сервер:

 

 Процедура ОтправитьНаСерверСбораДанных(СсылкаИсточник, DELETE = Ложь, ТипОбъекта = 0, БезКопии = Ложь, ОписаниеРеквизитовОтправки = Неопределено) Экспорт

Как видите добавились два новых параметры процедуры:
1) БезКопии — булево — по умолчанию — Ложь — мы начали передавать "ссылочные" реквизиты некоторых документов, но не хотели наполнять базу теневыми копиями, поэтому некоторые объекты НЕ копируются в тень для отложенной отправки;
2) ОписаниеРеквизитовОтправки — список значений — по умолчанию — Неопределено — не все реквизиты справочника для нас критически необходимо видеть на сервере, например, у нас на узле в справочнике ФизическиеЛица есть реквизиты ДатаРождения и ИНН, но на сервере нам необходимо видеть только реквизит ИНН — тогда в параметр ОписаниеРеквизитовОтправки мы передадим это:

Список = Новый СписокЗначений;
Список.Добавить("ИНН"); // имя реквизита как в конфигураторе
 

Тело функции для обмена документом:

 

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

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

Если СсылкаДокумент.Пустая() Тогда
Возврат Истина;
КонецЕсли;

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

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

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

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

Заголовки = Новый Соответствие;
Заголовки.Вставить("Accept", "application/atom+xml,application/xml");
Заголовки.Вставить("Accept-Charset", "UTF-8");
Заголовки.Вставить("Content-Type", "application/atom+xml");
Заголовки.Вставить("DataServiceVersion", "3.0;NetFx");
Заголовки.Вставить("MaxDataServiceVersion", "3.0;NetFx");
Заголовки.Вставить("User-Agent", "1C-Enterprise");
Заголовки.Вставить("Host", Связь.Сервер);

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

хАдресРесурса =  "/" + Связь.Порт + "/odata/standard.odata/Document_" + ИмяДокумента + "(guid'"+ guid + "')";
Соединение = Новый HTTPСоединение(Связь.Сервер);
Заголовки.Вставить("DELETE" + " /" + Связь.Порт + "/odata/standard.odata/Catalog_" + ИмяДокумента + "(guid'"+ guid + "')");

Попытка
хЗапрос = Новый HTTPЗапрос(хАдресРесурса, Заголовки);
Ответ = Соединение.ВызватьHTTPМетод("DELETE", хЗапрос);
Возврат Ответ.КодСостояния = 204 // случае успешного удаления сервер вернет код состояния  =204
Исключение
Возврат Ложь;
КонецПопытки;

Иначе // если создать/обновить объект

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

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

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

// ссылочные реквизиты шапки(суфикс _Key)
СписокКейс = Новый СписокЗначений();
Если ИмяДокумента = "ЧекККМ" Тогда
СписокКейс.Добавить("Магазин");
СписокКейс.Добавить("Ответственный");
СписокКейс.Добавить("Пользователь");
СписокКейс.Добавить("Место");
КонецЕсли;

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

// ссылочные реквизиты табличных частей(суфикс _Key)
СписокКейсТЧ = Новый СписокЗначений();
Если ИмяДокумента = "ЧекККМ" Тогда
СписокКейсТЧ.Добавить("Номенклатура");
КонецЕсли;

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

// ключ
Если ФормироватьКлюч Тогда // все объекты которые не копируются в тень передаються с ключем - у нас это GUID Основного магазина
ТекстЗапроса = ТекстЗапроса + "
|         <d:Магазин_Key>" + СокрЛП(Строка(Константы.ОсновнойМагазин.Получить().УникальныйИдентификатор())) + "</d:Магазин_Key>";
КонецЕсли;

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

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

Заголовки.Вставить("1C_OData_DataLoadMode", Истина); // ВАЖНО! Документы по старинке в режиме "ОбменДанными.Загрузка = Истина"
Заголовки.Вставить(Метод + "  /" + Связь.Порт + "/odata/standard.odata/Document_" + ИмяДокумента + ?(Метод = "PUT", "(guid'" + guid + "')","") + " HTTP/1.1");

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

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

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

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

 

 

Вот список необходимых функций обозначенных комментарием "новое служебное" или "служебное РАСШИРЕННОЕ" (не ругайте — знаю местам их можно и даже нужно оптимизировать):

 

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

 

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

 

 Функция СоздатьОписанияТабличныхЧастей(СсылкаОбъекта, ПрефиксОбъекта, Тень = Ложь, СписокСсылочных = 0)

 

Ну, вроде по документу все. Ах да — а что делать если пользователь выполнит отмену проведения или вообще удалит документ? Ну, тогда нужно прописать в соответствующих местах модуля объекта документа следующее (документ исчезнет на сервере):

Процедура ОбработкаУдаленияПроведения(Отказ)

ОбменССерверомСбораДанных.ОтправитьНаСерверСбораДанных(ЭтотОбъект.Ссылка,Истина,2);

КонецПроцедуры

 

СЛЕДУЮЩАЯ ЧАСТЬ. ЧАСТЬ ІІІ: РЕГИСТРЫ СВЕДЕНИЙ

 

Спасибо, что дочитали до конца! 🙂

Related Posts

4 Comments

  1. logarifm

    Я все понимаю…. Я с Украины причем западной. И ежедневно общаюсь на родном языке. Но так писать это перебор

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

    Это не только не уважение к самому процессу стандарту именования переменных но и к другим участникам программирования. Исправьте пожалуйста это неподобство иначе реально влиплю минус.

    Да еще и выкладываете на ресурс как учебный материал. Не портите и так тяжелые взаимоотношения таким написанием. Либо если так писать то пишите полностью на украинском но уже с английским диалектом. Как же так вообще реквизыты можно называть они и не русские и не украинские. Что это ?

    Reply ↓
  2. logarifm

    А еще самое интересное то другое. Но мы уйдем щас в политику. При запрете 1С до этого практически во всех известных гос.структурах используется продукт именно этой фирмы. Типовые решения. Пенсионный фонд использует. А интересно то другое, кто выигрывает тендеры на написания софта гос.уччреждениям украинским. Отнють не САП и не оракл…

    Reply ↓
  3. logarifm

    Кстати в первой статье я тоже смотрю вы получили замечания относительно переменных. (и статья не исправлена)

    Reply ↓
  4. V.Stavinsky

    хотел бы поднять тему конвертации через odata — у кого какие идеи как можно это реализовать?

    Reply ↓

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *