По теме из базы знаний
- Пример пакетной печати Торг-12, счет-фактуры и счета на оплату с штрихкодами в типовой конфигурации УТ11
- Сводная печать ТОРГ-12, счетов-фактур и актов об оказании услуг
- Пакетная печать документов из конфигурации Бухгалтерский учет 7.7 (ред.4.5)
- Пакетная печать документов АКТ, Счет-Фактура от 01.10.2017, ТОРГ-12, Счет на оплату для Управление торговлей 10.3
- Пакетная печать реализаций
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Создаёшь внешний отчёт.
На форму отчёта кидаешь элемент диалога "Выбор периода" и "Реквизит диалога"
Реквизит устанавливаешь: Идентификатор - ВыбКлиент; Тип - Справочник.Контрагенты
В модуль кидаешь следующий код:
Вместо "......" вставляешь содержимое процедуры Печать() из модуля формы документа РасходнаяНакладная и везде, где происходит обращение к реквизитам документа добавляешь Конт. (Конт с точкой).
В строках с
шесть строчек удаляешь, оставляя только
Перед строкой Таб.ВывестиСекцию("Строка|БезНГСМиНП"); добавляешь:
В таблицу копируешь общую таблицу ТОРГ-12 и в ней изменяешь несколько значений ячеек:
в шапке: ДатаДок ---> Конт.ДатаДок
в строке секции "Всего": Итог("Количество") #Ч-15.3 ---> Конт.Итог("Количество") #Ч-15.3
в подвале: КоличествоСтрок() #ЧП ---> Конт.КоличествоСтрок() #ЧП
+ для того, чтобы документы сразу отправлялись на печать, вместо
Таб.Показать("Печать накладной","");
нужно использовать
Таб.Напечатать(Флаг); - где Флаг = 1 или 0 - ставишь по вкусу
На форму отчёта кидаешь элемент диалога "Выбор периода" и "Реквизит диалога"
Реквизит устанавливаешь: Идентификатор - ВыбКлиент; Тип - Справочник.Контрагенты
В модуль кидаешь следующий код:
Процедура Печать(Конт)
.......
КонецПроцедуры //Печать
//*******************************************
Процедура Сформировать()
Док = СоздатьОбъект("Док.РасходнаяНакладная");
Док.ВыбратьДокументы(НачДата, КонДата);
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Контрагент = ВыбКлиент Тогда
Печать(Док.ТекущийДокумент());
КонецЕсли;
КонецЦикла;
КонецПроцедуры
ПоказатьВместо "......" вставляешь содержимое процедуры Печать() из модуля формы документа РасходнаяНакладная и везде, где происходит обращение к реквизитам документа добавляешь Конт. (Конт с точкой).
В строках с
Таб = СоздатьОбъект("Таблица");
ИмяФайлаПечатнойФормы = КаталогИБ()+"ExtForms\PrnForms\1cbt-12.mxl";
Если ФС.СуществуетФайл(ИмяФайлаПечатнойФормы) = 1 Тогда
Таб.ИсходнаяТаблица(ИмяФайлаПечатнойФормы);
Иначе
Таб.ИсходнаяТаблица("ТОРГ-12");
КонецЕсли;
шесть строчек удаляешь, оставляя только
Таб = СоздатьОбъект("Таблица");
Перед строкой Таб.ВывестиСекцию("Строка|БезНГСМиНП"); добавляешь:
Товар = Конт.Товар;
Количество = Конт.Количество;
В таблицу копируешь общую таблицу ТОРГ-12 и в ней изменяешь несколько значений ячеек:
в шапке: ДатаДок ---> Конт.ДатаДок
в строке секции "Всего": Итог("Количество") #Ч-15.3 ---> Конт.Итог("Количество") #Ч-15.3
в подвале: КоличествоСтрок() #ЧП ---> Конт.КоличествоСтрок() #ЧП
+ для того, чтобы документы сразу отправлялись на печать, вместо
Таб.Показать("Печать накладной","");
нужно использовать
Таб.Напечатать(Флаг); - где Флаг = 1 или 0 - ставишь по вкусу
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот