Как в управляемой форме вывести на печать таблицу значений созданную программно и так же выведенную на форму
По теме из базы знаний
- Универсальный конструктор отчетов (Новейший отчет) для 1C 7.7
- Алкогольная декларация для 1С 8.1, 8.2, 8.3 (1, 2, 3, 4, 5, 6, 7, 8 формы) УТ10.2/10.3, УТ11, УПП, КА, БП2.0/3.0, БП КОРП, Розница 1.0/2.1, Далион, Астор, УТАП и др. с подписью и шифрованием, редакция 2.3
- Универсальные функции ЗУП 3.1 / ЗКГУ 3.1, которые помогут в разработке
- Зачем и как читать чужой код? Какой результат ожидаем получить? Основные подходы
- Отчеты с общей формой отчета. Типовые сценарии
Найденные решения
Что значит "выведенную на форму программно"? Реквизит формы с типом ТаблицаЗначений изначально существует или создается программно? Если существует, просто выведите его стандартную команду "Вывести список..." на форму.
Иначе Вариант 1: Вариант 2:
Иначе Вариант 1:
&НаКлиенте
Процедура ВывестиНаПечать(Команда)
ТабДок = ВывестиНаПечатьНаСервере();
ТабДок.Показать();
КонецПроцедуры
&НаСервере
Функция ВывестиНаПечатьНаСервере()
ТЗ = РеквизитФормыВЗначение("Реквизит1");
ПостроительОтчета = Новый ПостроительОтчета;
ПостроительОтчета.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);
ТабДок = Новый ТабличныйДокумент;
ПостроительОтчета.Вывести(ТабДок);
Возврат ТабДок
КонецФункции
Показать&НаКлиенте
Процедура ВывестиНаПечать2(Команда)
ТабДок = ВывестиНаПечатьНаСервере2();
ТабДок.Показать();
КонецПроцедуры
&НаСервере
Функция ВывестиНаПечатьНаСервере2()
ТЗ = РеквизитФормыВЗначение("Реквизит1");
ТабДок = Новый ТабличныйДокумент;
Сч = 1;
Для Каждого Колонка Из ТЗ.Колонки Цикл
ТабДок.Область(1, Сч).Текст = Колонка.Имя;
Сч = Сч + 1
КонецЦикла;
КоличествоКолонок = ТЗ.Колонки.Количество();
ТекущаяСтрока = 2;
Для Каждого Стр Из ТЗ Цикл
Для Сч = 1 По КоличествоКолонок Цикл
ТабДок.Область(ТекущаяСтрока, Сч).Текст = Стр[Сч - 1];
КонецЦикла;
ТекущаяСтрока = ТекущаяСтрока + 1;
КонецЦикла;
Возврат ТабДок
КонецФункции
ПоказатьПрикрепленные файлы:
ВнешняяОбработка1.epf
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Что значит "выведенную на форму программно"? Реквизит формы с типом ТаблицаЗначений изначально существует или создается программно? Если существует, просто выведите его стандартную команду "Вывести список..." на форму.
Иначе Вариант 1: Вариант 2:
Иначе Вариант 1:
&НаКлиенте
Процедура ВывестиНаПечать(Команда)
ТабДок = ВывестиНаПечатьНаСервере();
ТабДок.Показать();
КонецПроцедуры
&НаСервере
Функция ВывестиНаПечатьНаСервере()
ТЗ = РеквизитФормыВЗначение("Реквизит1");
ПостроительОтчета = Новый ПостроительОтчета;
ПостроительОтчета.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);
ТабДок = Новый ТабличныйДокумент;
ПостроительОтчета.Вывести(ТабДок);
Возврат ТабДок
КонецФункции
Показать&НаКлиенте
Процедура ВывестиНаПечать2(Команда)
ТабДок = ВывестиНаПечатьНаСервере2();
ТабДок.Показать();
КонецПроцедуры
&НаСервере
Функция ВывестиНаПечатьНаСервере2()
ТЗ = РеквизитФормыВЗначение("Реквизит1");
ТабДок = Новый ТабличныйДокумент;
Сч = 1;
Для Каждого Колонка Из ТЗ.Колонки Цикл
ТабДок.Область(1, Сч).Текст = Колонка.Имя;
Сч = Сч + 1
КонецЦикла;
КоличествоКолонок = ТЗ.Колонки.Количество();
ТекущаяСтрока = 2;
Для Каждого Стр Из ТЗ Цикл
Для Сч = 1 По КоличествоКолонок Цикл
ТабДок.Область(ТекущаяСтрока, Сч).Текст = Стр[Сч - 1];
КонецЦикла;
ТекущаяСтрока = ТекущаяСтрока + 1;
КонецЦикла;
Возврат ТабДок
КонецФункции
ПоказатьПрикрепленные файлы:
ВнешняяОбработка1.epf
Реквизит формы с типом ТаблицаЗначений изначально существует, например как в Вашем примере "Реквизит1" , но колонки формируются программно, а не заданы как у Вас Реквизит1,Реквизит2,Реквизит13.
Прикрепленные файлы:
prtsc.xlsx
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот