JSON
- 1 ответ
- 0 вопросов
0
Вклад в тег
Функция ВыполнитьЗапрос(ТекстЗапроса, ПараметрыJSON)
Запрос = Новый Запрос(ТекстЗапроса);
//Тут парсим ПараметрыJSON
тзРезультат = Запрос.Выполнить().Выгрузить();
мОтвет = Новый Массив;
Для Каждого ТекСтрока Из тзРезультат Цикл
НовСтрокаОтвета = Новый Массив;
Для Каждого ТекКолонка Из тзРезультат.Колонки Цикл
НовСтрокаОтвета.Добавить(Новый Структура("key, val", ТекКолонка.Имя, XMLСтрока(ТекСтрока[ТекКолонка.Имя]));
КонецЦикла;
мОтвет.Добавить(НовСтрокаОтвета);
КонецЦикла;
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку(Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Авто, Символы.Таб));
ЗаписатьJSON(ЗаписьJSON, мОтвет);
Возврат ЗаписьJSON.Закрыть();
КонецФункции