Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 дек 2024, 10:44

Шапка на каждой странице, через СКД

Автор JIEXA72, 27 окт 2014, 12:49

0 Пользователей и 1 гость просматривают эту тему.

JIEXA72

Доброго времени суток! Есть такая проблема, вроде простая но которая никак не решается. Нужно выводить на каждой странице, шапку. Сделается это все через СКД (Схема компоновки данных). В схеме есть макет, в нем есть ячейки шапки. Перерыл кучу форумов, ПовторятьПриПечатиСтроки я уже пробовал, всяко разно, не работает. В самом макете, в табличном документе, указывал область, не работает. Пробовал создать и переписывать с нуля все, н е р а б о т а е т


Есть кнопка, по которой вызываться такой код



СводнаяКартаРезультат = Новый ТабличныйДокумент;
   
ПечатьСводнойКартыНаСервере(СводнаяКартаРезультат);
СводнаяКартаРезультат.Показать("СводнаяКарта");




&НаСервере
Процедура ПечатьСводнойКартыНаСервере(СводнаяКартаРезультат)   
   СхемаКомпоновкиДанных = Справочники.Номенклатура.ПолучитьМакет("МакетСводнаяКарта");   
   
   СводнаяКартаРезультат.ПовторятьПриПечатиСтроки = СводнаяКартаРезультат.Область(7, , 7);
   
   Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;
     
   НомеклатураСсылка = Настройки.ПараметрыДанных.Элементы.Найти("НоменклатураСсылка");   
   НомеклатураСсылка.Значение = Объект.Ссылка;
   НомеклатураСсылка.Использование = Истина;
   
   
   ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;


   МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки, ДанныеРасшифровки);


   ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
   ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);


   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
   ПроцессорВывода.УстановитьДокумент(СводнаяКартаРезультат);
   //ПроцессорВывода.ОтображатьПроцентВывода = Истина;
   
   ПроцессорВывода.НачатьВывод();
   ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);   
   ПроцессорВывода.ЗакончитьВывод();
   
КонецПроцедуры

JIEXA72

Проблема решена!

СводнаяКартаРезультат.ПовторятьПриПечатиСтроки = СводнаяКартаРезультат.Область(7, , 7);

Так и работает, ТОЛЬКО НУЖНО СЧИТАТЬ строки !!!НЕ В МАКЕТЕ!!! а уже в готовом печатном результате!!! тогда все работает

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск