Как запустить JSON полностью на сервере

&НаСервере
Процедура ПолучитьНаСервере()
	Соединение = Новый HTTPСоединение("site.ru");
	Заголовки = Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
	Запрос = Новый HTTPЗапрос("/api", Заголовки);
	Запрос.УстановитьТелоИзСтроки("emr=tarix=" + СТрока(Формат(Объект.дата,"ДФ=yyyy-MM-dd")));
	Ответ = Соединение.Получить(Запрос);
	ТекстJSON = Ответ.ПолучитьТелоКакСтроку();
	Объект.ДанныеОплат.Очистить();
	Соответствия = ПрочитатьJSONИзФайла(ТекстJSON);	
	
	
	Для Каждого СтрокаДанных ИЗ Соответствия Цикл
		НоваяСтрока = Объект.ДанныеОплат.Добавить();
		
		Для каждого КлючИЗначение из СтрокаДанных цикл
			Ключ = КлючИЗначение.Ключ;
			Значение = КлючИЗначение.Значение;					
			
			Если НРег(Ключ) = "txn_id" тогда	
				НоваяСтрока.ИД_оплаты = КлючИЗначение.Значение;
				
			ИначеЕсли НРег(Ключ)  = "amount" тогда
				НоваяСтрока.СуммаОплаты = КлючИЗначение.Значение;
				
			ИначеЕсли НРег(Ключ) = "txn_date" тогда
				ДатаСтрокой = СтрЗаменить(КлючИЗначение.Значение, "-", ".");
				ДатаСтрокой = СтрЗаменить(ДатаСтрокой, "T", " ");
				ДатаСтрокой = Лев(ДатаСтрокой, 19);
				ДатаСтрокой = СтрЗаменить(ДатаСтрокой, ".", "");
				ДатаСтрокой = СтрЗаменить(ДатаСтрокой, ":", "");
				ДатаСтрокой = СтрЗаменить(ДатаСтрокой, " ", "");
				ОбработаннаяДата = Дата(ДатаСтрокой);
				НоваяСтрока.ДатаОплаты = ДатаСтрокой;
				
			ИначеЕсли НРег(Ключ)  = "account" тогда
				АйдиИзСайта = Прав(КлючИЗначение.Значение,  СтрДлина(КлючИЗначение.Значение) - 2);
				АйдиПоСистеме = АйдиИзСайта - 1;
				АйдиПоСистеме = сокрлп(АйдиПоСистеме);
				АйдиПоСистеме = СтрЗаменить(АйдиПоСистеме, Символы.НПП, "");
				
				
Справочники._ПС_ПользователиИнтеграторов.НайтиПоРеквизиту("id", АйдиПоСистеме)
	
		
			КонецЕсли;
			КонецЦикла;
	КонецЦикла;
КонецПроцедуры;