Files
ilkaexchange/global_queryListData.json
2026-03-15 19:38:05 +03:00

7 lines
2.1 KiB
JSON
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
{
"Наименование": "Выполнить запрос произвольного перечня",
"ИмяHTTP": "global_queryListData",
"ОписаниеОбработчика": "",
"ТекстОбработчика": "Запрос = Новый Запрос();\r\nЗапрос.Текст = Параметры.Запрос.ТекстЗапроса;\r\n\r\n\r\nДля каждого Парам из Параметры.Запрос.Параметры цикл\r\n\u0009\u0009Запрос.УстановитьПараметр(Парам.ИмяПараметра,Парам.ИсточникПараметра);\r\nконецЦикла;\r\n\r\n\r\n\r\nДля каждого Парам из Параметры.ПараметрыЗапроса цикл\r\n\u0009Запрос.УстановитьПараметр(Парам.ИмяПараметра,Парам.ЗначениеПараметра);\r\nконецЦикла;\r\n\r\nЗапрос.УстановитьПараметр(\"ТекущаяДата\",ТекущаяДата());\r\n\r\nЕсли ЗначениеЗаполнено(ТекущийПользователь) тогда\r\n\u0009Запрос.УстановитьПараметр(\"ТекущийПользователь\",ТекущийПользователь);\r\n\r\n\r\nконецЕсли;\r\n\r\n\r\nВыборка = Запрос.Выполнить().Выбрать();\r\n\r\nСписокРезультат = Новый массив;\r\nПока Выборка.Следующий() цикл\r\n СтрокаТЧ = Новый Структура(\"Заголовок, Значение,Ссылка, Наименование, ПоУмолчанию\");\r\n ЗаполнитьЗначенияСвойств(СтрокаТЧ, Выборка);\r\n СписокРезультат.Добавить(СтрокаТЧ);\r\nконецЦикла;\r\nДляВозврата = Новый Структура;\r\nДляВозврата.Вставить(\"СписокРезультат\",СписокРезультат);\r\nДляВозврата.Вставить(\"ТекущийПользователь\",ТекущийПользователь);\r\n",
"Параметры": []
}