Был УТМ 3.0.8, а теперь УТМ 4.0.2 Что за зверь ?!

Функция КодФСРАР(НастройкаОбменаЕГАИС) Экспорт
	
	ВозвращаемоеЗначение = Новый Структура;
	ВозвращаемоеЗначение.Вставить("КодФСРАР",    "");
	ВозвращаемоеЗначение.Вставить("ТекстОшибки", "");
	
	Попытка
		
		РезультатЗапроса = ОтправитьHTTPЗапрос(
			НастройкаОбменаЕГАИС,
			СтруктураДанныхHTTPЗапроса("GET", "/diagnosis"));
			
			Если НЕ ЗначениеЗаполнено(РезультатЗапроса.ТекстОшибки)Тогда 
				Массив=СтрРазделить(РезультатЗапроса.ТекстОтвета," ",ложь);
				Длинна = Массив.Количество();
				Буфер = новый БуферДвоичныхДанных(Длинна);
				Для индекс = 0 по Длинна - 1 Цикл
					Буфер.Установить(индекс,AnyToDec(Массив[индекс],16));	
				КонецЦикла;
	
				Поток = новый ПотокВПамяти(Буфер);
				Парсер = Новый ЧтениеXML;
				Парсер.ОткрытьПоток(Поток);
				Парсер.Прочитать();
				Построитель = Новый ПостроительDOM;
    			Документ = Построитель.Прочитать(Парсер);
				Для Каждого Элемент0 Из Документ.ЭлементДокумента.ДочерниеУзлы Цикл
					если Элемент0.ИмяУзла="CN" тогда 
						ВозвращаемоеЗначение.КодФСРАР=Элемент0.ТекстовоеСодержимое;
					КонецЕсли;
				КонецЦикла;
			если ВозвращаемоеЗначение.КодФСРАР="" тогда	
				
				СертификатКриптографии = Новый СертификатКриптографии(РезультатЗапроса.ТекстОтвета);

				Если СертификатКриптографии.Субъект.Свойство("CN") Тогда
					ВозвращаемоеЗначение.КодФСРАР = СертификатКриптографии.Субъект.CN;
				ИначеЕсли СертификатКриптографии.Субъект.Свойство("OID2_5_4_3") Тогда
					ВозвращаемоеЗначение.КодФСРАР = СертификатКриптографии.Субъект.OID2_5_4_3;
				КонецЕсли;
			КонецЕсли;
		Иначе
			ВозвращаемоеЗначение.ТекстОшибки = РезультатЗапроса.ТекстОшибки;
		КонецЕсли;
		
	Исключение
		
		ВозвращаемоеЗначение.ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
		
	КонецПопытки;
	
	Возврат ВозвращаемоеЗначение;
	
КонецФункции

Функция AnyToDec(Знач тЗначение, тОснование)
	 тРезультат=0;
	 
	 тДлина = СтрДлина(тЗначение);
	 Для тСимвол = 1 По СтрДлина(тЗначение) Цикл
	 тМножитель = 1;
	 Для тСчет = 1 По тДлина-тСимвол Цикл 
	 тМножитель = тМножитель * тОснование;
	 КонецЦикла;
	 
	 тРезультат=тРезультат + (Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Сред(тЗначение, тСимвол, 1))-1) * тМножитель;
	 КонецЦикла;
	 
	 Возврат Окр(тРезультат);
КонецФункции

Функция ПараметрыHTTPЗапроса(ТекстСообщенияXML, АдресЗапроса) Экспорт
	
	Параметры = СтруктураДанныхHTTPЗапроса("POST");
	
	ВремГраница = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");
	
	ТелоЗапроса = Новый ТекстовыйДокумент();
	ТелоЗапроса.ДобавитьСтроку("--" + ВремГраница);
    //+ 
    //Было:
	//ТелоЗапроса.ДобавитьСтроку("Content-Disposition: form-data; name=""xml_file""");
    //Стало:
    ТелоЗапроса.ДобавитьСтроку("Content-Disposition: form-data; name=""xml_file""; filename=""input_file.xml""");
    //- 
	ТелоЗапроса.ДобавитьСтроку("Content-Type: text/xml; charset=utf-8");
	ТелоЗапроса.ДобавитьСтроку("");
	ТелоЗапроса.ДобавитьСтроку(ТекстСообщенияXML);
	ТелоЗапроса.ДобавитьСтроку("--" + ВремГраница + "--");
	
	Параметры.АдресЗапроса = АдресЗапроса;
	Параметры.ТелоЗапроса  = ТелоЗапроса.ПолучитьТекст();
	Параметры.ТекстXML     = ТекстСообщенияXML;
	
	Параметры.Заголовки.Вставить("Content-Type", "multipart/form-data; boundary=" + ВремГраница);
	
	Возврат Параметры;
	
КонецФункции

Функция ОтправитьHTTPЗапрос(ТранспортныйМодуль, Параметры) Экспорт
	
	ВозвращаемоеЗначение = Новый Структура;
	ВозвращаемоеЗначение.Вставить("КодСостояния");
	ВозвращаемоеЗначение.Вставить("Заголовки");
	ВозвращаемоеЗначение.Вставить("ТекстОтвета");
	ВозвращаемоеЗначение.Вставить("ТекстОшибки");
	
	HTTPЗапрос = Новый HTTPЗапрос(Параметры.АдресЗапроса, Параметры.Заголовки);
    
    //+ 
    ИмяФайла = ПолучитьимяВременногоФайла("txt");
	ЗаписьТекста = Новый ЗаписьТекста(ИмяФайла);	
	ЗаписьТекста.ЗаписатьСтроку(Параметры.ТелоЗапроса);
	ЗаписьТекста.Закрыть(); 
	
	ОБ_ДД=Новый ДвоичныеДанные(ИмяФайла);
    Стр_Base64=Base64Строка(ОБ_ДД);
    ОБ_ДД=Base64Значение(Сред(Стр_Base64,5));
    ОБ_ДД.Записать(ИмяФайла);
	
	ФайлОтправки = Новый Файл(ИмяФайла);
	РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());
	HTTPЗапрос.Заголовки["Content-Lenght"] = РазмерФайлаОтправки;
	HTTPЗапрос.Заголовки["X-Requested-With"] = "XMLHttpRequest";
	HTTPЗапрос.УстановитьИмяФайлаТела(ИмяФайла);
     
	
    //Если Параметры.ТипЗапроса = "POST" Тогда
    //	HTTPЗапрос.УстановитьТелоИзСтроки(Параметры.ТелоЗапроса, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
    //КонецЕсли;
    
    //- 
	
ИнтернетПрокси = ПолучениеФайловИзИнтернетаКлиентСервер.ПолучитьПрокси("HTTP");
	
	HTTPОтвет   = Неопределено;
	ТекстОшибки = "";

//СтруктураДанныхHTTPЗапроса("GET", "/info/certificate/RSA?attachment=true"));
СтруктураДанныхHTTPЗапроса("GET", "/api/certificate/download/RSA?attachment=true"));

ТелоЗапроса.РазделительСтрок = Символы.CR+Символы.LF; 

ТелоЗапроса.ДобавитьСтроку("Content-Disposition: form-data; name=""xml_file""; filename=""QueryRest.xml");