Вызов веб сервиса и передача XML файла

Функция OracleDataSync(HttpЗапрос)
 	Ответ = Новый Структура;
	Ответ.Вставить("Status"      , "Ok");
	Ответ.Вставить("Description" , "Работает");
	КодОтвета = 200;	
	Попытка
		Параметры =  JSONКлиентСервер.ПрочитатьJSON_1(HttpЗапрос.ПолучитьТелоКакСтроку("utf-8"));
	Исключение
		Ответ.Вставить("Status"      , "Error");
		Ответ.Вставить("Description" , ОписаниеОшибки());
		HTTPОтвет = Новый HTTPСервисОтвет(400);
		HTTPОтвет.УстановитьТелоИзСтроки(JSONКлиентСервер.ЗаписатьJSON_1(Ответ), КодировкаТекста.UTF8);
		Возврат HTTPОтвет;
	КонецПопытки;
	Если Параметры = Неопределено Тогда
		Ответ.Вставить("Status"      , "Error");
		Ответ.Вставить("Description" , "Отсутствуют данные для обработки");
		КодОтвета = 400;
		HTTPОтвет = Новый HTTPСервисОтвет(КодОтвета);
		HTTPОтвет.Заголовки.Вставить("Content-Type","application/json;charset=utf-8");
		HTTPОтвет.УстановитьТелоИзСтроки(JSONКлиентСервер.ЗаписатьJSON_1(Ответ),КодировкаТекста.UTF8);
		Возврат HTTPОтвет;
	КонецЕсли;
//********************
//Здесь обработка принятых параметров
// все значения получают примерно так Параметры["category"]
// проверка наличия свойства ЗначениеЗаполнено(Параметры["category"])
//********************
        
	Если Ответ.Status = "Error" Тогда
		КодОтвета = 400;
	Иначе
		КодОтвета = 200;
	КонецЕсли; 
	////	
	HTTPОтвет = Новый HTTPСервисОтвет(КодОтвета);
	HTTPОтвет.УстановитьТелоИзСтроки(JSONКлиентСервер.ЗаписатьJSON_1(Ответ), КодировкаТекста.UTF8);
	Возврат HTTPОтвет;

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

{
  "ИмяПарамтера":"Значение",
//Если нужен массив тогда такая конструкция
  "ИмяМассива": [
"Значение1",
"Значение2",
"Значение3"
]
}


// вызов из 1с

//сначала создается и заполняется структура параметров допустим ПараметрыОтправки

		Попытка
			HTTPСоединение = Новый HTTPСоединение("Адрес сервера где опубликован сервис", НомерПорта); 
			HTTPЗапрос = Новый HTTPЗапрос("СтрокаВызоваСервиса");
			HTTPЗапрос.Заголовки.Вставить("Content-type", "application/json");

			ЗаписьJSON      = Новый ЗаписьJSON;
			ПараметрыЗаписи = Новый ПараметрыЗаписиJSON(ПредопределенноеЗначение("ПереносСтрокJSON.Авто"));
			ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписи);
			
			НастройкиСериализации = Новый НастройкиСериализацииJSON;
			НастройкиСериализации.ВариантЗаписиДаты      = ПредопределенноеЗначение("ВариантЗаписиДатыJSON.ЛокальнаяДата");
			НастройкиСериализации.ФорматСериализацииДаты = ПредопределенноеЗначение("ФорматДатыJSON.ISO");
			
			ЗаписатьJSON(ЗаписьJSON, ПараметрыОтправки, НастройкиСериализации, "ПреобразованиеЗначений");

			HTTPЗапрос.УстановитьТелоИзСтроки(ЗаписьJSON.Закрыть(),"UTF-8", ИспользованиеByteOrderMark.НеИспользовать);
			HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
			Если HTTPОтвет.КодСостояния = 200 или HTTPОтвет.КодСостояния = 201 Тогда
                              //Обработка если успешный ответ

			Иначе
				//Обработка если неудачный ответ
			КонецЕсли;

			
		Исключение
			Сообщить(ОписаниеОшибки());
		КонецПопытки;

	ТекТекст=СтрЗаменить(ТекТекст,"&","& amp;");
	ТекТекст=СтрЗаменить(ТекТекст,"<","& lt;");
	ТекТекст=СтрЗаменить(ТекТекст,">","& gt;");
	ТекТекст=СтрЗаменить(ТекТекст,"""","& quot;");
	ТекТекст=СтрЗаменить(ТекТекст,"'","& apos;");