Добрый день. Подскажите пожалуйста как сделать печать нескольких документов из одной Тч. На внешней обработке есть Тч в которой есть пустые строки, нужно вызвать печать несколько раз, то есть печатаем строки пока не дойдем до пустой строки. Потом печатаем следующие строки пока не дойдем до следующей пустой строки.
Сейчас печать реализована так:
&НаКлиенте
Процедура Печать(Команда)
ТабДокТовары = ВыполнитьКомандуНаСервере();
Коллекция = УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм("Макет");
СтруктураКоллекции = Коллекция.Получить(0);
СтруктураКоллекции.ТабличныйДокумент = ТабДокТовары ;
УправлениеПечатьюКлиент.ПечатьДокументов(Коллекция,,ЭтаФорма);
КонецПроцедуры
&НаСервере
Функция ВыполнитьКомандуНаСервере()
ТабДок = Новый ТабличныйДокумент;
//СчетКт = ПланыСчетов.Хозрасчетный.НДС;
Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет("Макет");
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьШапка.Параметры.ПредставлениеПолучателя = Объект.Контрагент.НаименованиеПолное;
ОбластьШапка.Параметры.ДатаДокумента = (Формат(Объект.ДатаОтгрузки, "ДЛФ=Д"));;
ТабДок.Вывести(ОбластьШапка);
ОбластьЗаказыШапка = Макет.ПолучитьОбласть("ЗаказыШапка");
ТабДок.Вывести(ОбластьЗаказыШапка);
ОбластьЗаказыТЧ = Макет.ПолучитьОбласть("ЗаказыТЧ");
Для Каждого ТекущаяСтрока Из Объект.Заказы Цикл
ОбластьЗаказыТЧ.Параметры.НомерЗаказа = ТекущаяСтрока.НомерСтроки;
ОбластьЗаказыТЧ.Параметры.СсылкаЗаказа = ТекущаяСтрока.Заказ;
ТабДок.Вывести(ОбластьЗаказыТЧ);
КонецЦикла;
ОбластьПромежутокЗаказ = Макет.ПолучитьОбласть("ПромежутокЗаказ");
ТабДок.Вывести(ОбластьПромежутокЗаказ);
ОбластьШапкаТЧ = Макет.ПолучитьОбласть("ШапкаТЧ");
ТабДок.Вывести(ОбластьШапкаТЧ);
ОбластьДанные = Макет.ПолучитьОбласть("СтрокаТЧ");
Для Каждого ТекущаяСтрока Из Объект.Товары Цикл
ОбластьДанные.Параметры.Номенклатура=ТекущаяСтрока.Номенклатура;
ОбластьДанные.Параметры.Характеристика=ТекущаяСтрока.Характеристика;
ОбластьДанные.Параметры.Количество=ТекущаяСтрока.Количество;
ОбластьДанные.Параметры.Номер=ТекущаяСтрока.НомерСтроки;
ТабДок.Вывести(ОбластьДанные);
КонецЦикла;
//ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.ТолькоПросмотр = Истина;
ТабДок.АвтоМасштаб = Истина;
Возврат ТабДок
КонецФункции
Показать
