1С 8.3 Перебор строк динамического списка
Данные > Примеры кода 1С > 1С 8.3 Динамический список
Перейти в раздел примеры кода 1С 8.3:
Программный цикл по строкам динамического списка в 1С 8.3:
&НаСервере
Процедура ЦиклПоСтрокамДинамическогоСписка()
ТЗ_ДС = СписокВТЗ();
Для Каждого Стр Из ТЗ_ДС Цикл
// .........
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция СписокВТЗ()
//Получаем СКД с текстом запроса
СКД_запрос = Список.ПолучитьИсполняемуюСхемуКомпоновкиДанных();
//Получаем настройки пользователя (отборы, сортировки и т.п.)
Настройки = Список.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
//Переводим динамический список в таблицу значений
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();
МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД_запрос, Настройки, , ,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);
ПроцессорВыводаРезультата = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ТЗ = ПроцессорВыводаРезультата.Вывести(ПроцессорКомпоновкиДанных);// Таблица значений
Возврат ТЗ;
КонецФункции
Процедура ЦиклПоСтрокамДинамическогоСписка()
ТЗ_ДС = СписокВТЗ();
Для Каждого Стр Из ТЗ_ДС Цикл
// .........
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция СписокВТЗ()
//Получаем СКД с текстом запроса
СКД_запрос = Список.ПолучитьИсполняемуюСхемуКомпоновкиДанных();
//Получаем настройки пользователя (отборы, сортировки и т.п.)
Настройки = Список.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
//Переводим динамический список в таблицу значений
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();
МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД_запрос, Настройки, , ,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);
ПроцессорВыводаРезультата = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ТЗ = ПроцессорВыводаРезультата.Вывести(ПроцессорКомпоновкиДанных);// Таблица значений
Возврат ТЗ;
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник