Результат = Неопределено;
Об = РеквизитФормыВЗначение("Объект");
МД = Об.Метаданные();
//В данных должна быть структура("Сервер, АдресРесурса, Authorization");
// "10.15.24.4"
// "/UT11/hs/КорневойКаталог/ИмяМетода"
// "Basic:..."
ДанныеДляПодключения = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(МД.Имя);
Сервер = ДанныеДляПодключения.Сервер;
СоединениеHTTP = Новый HTTPСоединение(Сервер,,,,, 30);
Заголовки = Новый Соответствие;
Заголовки.Вставить("Authorization", ДанныеДляПодключения.Authorization);
НовыйЗапрос = Новый HTTPЗапрос(ДанныеДляПодключения.АдресРесурса, Заголовки);
строкаЗапроса = Новый Структура("date", ДеньЗапроса);
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, строкаЗапроса, Новый НастройкиСериализацииJSON);
ТелоЗапроса = ЗаписьJSON.Закрыть();
НовыйЗапрос.УстановитьТелоИзСтроки(ТелоЗапроса,, ИспользованиеByteOrderMark.Авто);
ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(НовыйЗапрос);
КодСостояния = ОтветHTTP.КодСостояния;
Если КодСостояния <> 200 Тогда
ОбщегоНазначения.СообщитьПользователю("Не удалось подключить базе УТ");
Возврат Неопределено;
КонецЕсли;
ТелоОтветаСтрока = ОтветHTTP.ПолучитьТелоКакСтроку();
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(ТелоОтветаСтрока);
ДанныеИзJSON = ПрочитатьJSON(ЧтениеJSON);
ЧтениеJSON.Закрыть();
Если ДанныеИзJSON.Свойство("success")
И ДанныеИзJSON.success
Тогда
Результат = ТрансформироватьМассивВТЗ(ДанныеИзJSON.data);
Иначе
ОбщегоНазначения.СообщитьПользователю(ДанныеИзJSON.error_text);
КонецЕсли;
Возврат Результат;