ExtTsdUNFGalerey/HTTPServices/tsd/Ext/Module.bsl

29 lines
1.6 KiB
Plaintext
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Функция marketPlaceGetPost(Запрос)
Тело=Запрос.ПолучитьТелоКакСтроку();
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(Тело);
Структура=ПрочитатьJSON(ЧтениеJSON);
Интеграции = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Структура.integra, ";", Истина);;
если Структура.TypeMarket="OZ" тогда
Для Каждого Элемент из Интеграции Цикл
Интеграция=документы.ПоставкаМП.НайтиПоНомеру(Элемент);
СтрокаJSON = ИнтеграцияМаркетплэйсы.ОзонПроверкаПоставки(Интеграция.Интеграция, Структура.barcode);
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(СтрокаJSON);
Данные = ПрочитатьJSON(ЧтениеJSON);
если НЕ Данные.Свойство("code") Тогда // Если не нашли код неправильного ответа тогда
Ответ = Новый HTTPСервисОтвет(200);
Ответ.Заголовки.Вставить("Content-Type","application/json; charset=utf-8");
Ответ.УстановитьТелоИзСтроки(СтрокаJSON);
Возврат Ответ;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецФункции