Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Управляемая форма. Вывод на печать нескольких табличных документов!

Управляемая форма. Вывод на печать нескольких табличных документов!
Я
   marchela589
 
28.05.20 - 05:36
Добрый день! Есть внешняя печатная форма. Привязана к определенному документу и подключена через дополнительные отчеты и обработки. Печать из документа происходит нормально. В документе есть ЧТ в которой есть строки. Как реализовать печать нескольких табличных документов(Сколько сток в ТЧ столько и табличных документов на печать с заполненными параметрами из ТЧ)!!!. Подскажите как это можно реализовать, ну или натолкните на мысль!
Пробовал в цикле делать обход ЧТ и заполнение параметров в макет, но возвращает один табличный документ в общую форму "Печать документов"

Конфигурация отраслевое решение "АК-Кредит: Управление микрофинансовой организацией, ред. 3", хотя это роли не играет какая конфигурация!
   ASU_Diamond
 
1 - 28.05.20 - 07:13
(0) а вывод каждой печатной формы на отдельном листе в одном табличном документе не подходит?
   ИС-2
 
2 - 28.05.20 - 07:25
насколько помню, в БСП есть механизм печати комплекта документов.

И что такое ЧТ?
   marchela589
 
3 - 28.05.20 - 07:52
(2) ТЧ- Табличная часть документа!
   marchela589
 
4 - 28.05.20 - 07:56
(1) Вот пытаюсь сделать вывод каждой печатной формы на отдельном листке(Через горизонтальный разделитель страниц) в одни Табличный документ и потом уже вернуть готовый ТабДок. в процедуру УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию
   marchela589
 
5 - 28.05.20 - 14:28
Получилось. Перебором ТЧ заполнить нужные параметры затем вывести области в Табличый документ и вывести разделитель странац!!!
Если ТЗПоручителейИзДок.Количество() > 1 Тогда
        
        Счетчик = 0;
        Пока Счетчик < ТЗПоручителейИзДок.Количество() Цикл
            
            Область = Макет.ПолучитьОбласть("ОбластьДокумента");
            Если ТипЗнч(Документ.Клиент) = Тип("СправочникСсылка.Клиенты") Тогда
                АдресРегистрации = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(Документ.Клиент.ЮрФизЛицо, 
                                Справочники.ВидыКонтактнойИнформации.АдресРегистрацииФизическогоЛица);
            Иначе    
                АдресРегистрации = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(Документ.Клиент, Справочники.ВидыКонтактнойИнформации.АдресРегистрацииФизическогоЛица);
            КонецЕсли;
            
            Область.Параметры.Номинал = Документ.Номинал;
            Область.Параметры.Клиент = Документ.Клиент;
            Область.Параметры.Сумма = Документ.Сумма-Документ.Комиссия;
            Область.Параметры.Проценты = Документ.Проценты;
            Область.Параметры.Пени = Документ.Пени;
            Область.Параметры.Основание = Лев(Документ.Основание, СтрДлина(Документ.Основание)-8);
            Область.Параметры.ПодразделениеРуководительДолжностьИП = Документ.Подразделение.ДолжностьРуководителя;
            Область.Параметры.ПодразделениеРуководительИП = Документ.Подразделение.Руководитель;
            Поручитель = ТЗПоручителейИзДок[Счетчик].Ответчик;
            ПоручительАдресРегистрации = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(Поручитель, 
                        Справочники.ВидыКонтактнойИнформации.АдресРегистрацииФизическогоЛица);
            Область.Параметры.Поручитель = Поручитель;
            Область.Параметры.ПоручительАдресРегистрации = ПоручительАдресРегистрации;
            
            ТабличныйДокумент.Вывести(Область);
            ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
                        
            Счетчик = Счетчик + 1;        
        КонецЦикла;
        ТабличныйДокумент.АвтоМасштаб = Истина;
    ТабличныйДокумент.ТолькоПросмотр = Ложь;
    Возврат ТабличныйДокумент;

Всем Спасибо.

Список тем форума
Рекламное место пустует  Рекламное место пустует
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс, 1996 г.
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.