Подскажите по процедуре, беру значения из ТЗ, в итоге если несколько раз нажать на кнопку печать, то строки добавляются в печатную форму, что надо добавить, чтобы после вывода данные обнулялись и при следующем нажатии заполнялись по новой?
Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,0,0);
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
ТЗ.НоваяСтрока();
ТЗ.Товар = Товар;
ТЗ.Заказ = Заказ;
ТЗ.Контрагент = Товар.Контрагент;
КонецЦикла;
ТЗ.Сортировать("Контрагент","Товар,Заказ");
ТЗ.ВыбратьСтроки();
н = 0;
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
Если ТЗ.Заказ<>0 Тогда
н = н + 1;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать ЗаказПоставщику","");
КонецПроцедуры
Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,0,0);
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
ТЗ.НоваяСтрока();
ТЗ.Товар = Товар;
ТЗ.Заказ = Заказ;
ТЗ.Контрагент = Товар.Контрагент;
КонецЦикла;
ТЗ.Сортировать("Контрагент","Товар,Заказ");
ТЗ.ВыбратьСтроки();
н = 0;
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
Если ТЗ.Заказ<>0 Тогда
н = н + 1;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать ЗаказПоставщику","");
КонецПроцедуры
По теме из базы знаний
- Борис Нуралиев ответил на вопросы сообщества “Инфостарт”
- Как использовать ПоказатьВопрос в обработчике формы ПередЗаписью
- Вопросы с технических интервью
- Несколько немодальных вопросов пользователю подряд. Вариант реализации через рекурсивный вызов "ПоказатьВопрос"
- Многопоточное выполнение процедуры с помощью ДлительныеОперации
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот