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

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

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

Всем Спасибо.
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс