Повторение шапки отчета в начале каждого листа при печати (СКД) + вывод колонтитулов.

23.08.12

Повторение шапки отчета в начале каждого печатного листа при использовании системы компоновки данных (СКД).
Пример выводов колонтитулов.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Отчет-пример .erf 11,37Kb 357	357	Скачать (1 SM)	Купить за 1 850 руб.

Направление мысли выдернуто из типовой БП2.0.: ОбщийМодуль.СтандартныеОтчеты.ПолучитьМакетШапки(...). Но в случае использования "Таблицы" (как в примере) эта функция к сожалению не подоходит.

Основная сложность при решении задачи состоит в определении области шапки отчета, которую нужно затем указать в свойстве табличного документа "ПовторятьПриПечатиСтроки".

Повторение шапки получается по следующему алгоритму:

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

2. При выводе отчета "по элементно" анализируем "Элементы вывода компоновки" и высоту табличного документа (Результата), откуда определяем первую и последнюю строчку "Шапки отчета".

3. ОбластьШапки = ТабличныйДокумент.Область(НачальнаяСтрокаШапки, , КонечнаяСтрокаШапки).

4. ТабличныйДокумент.ПовторятьПриПечатиСтроки = ОбластьШапки.

Ну, вот и все. Дело в шляпе!!!

Колонтитулы это просто.

Примерный код:

// Верхний колонтитул ТабДок.ВерхнийКолонтитул.Выводить = Истина;
ТабДок.ВерхнийКолонтитул.НачальнаяСтраница = 2;
ТабДок.ВерхнийКолонтитул.Шрифт = Новый Шрифт(Результат.ВерхнийКолонтитул.Шрифт, , , , Истина);
ТабДок.ВерхнийКолонтитул.ТекстСлева = "Заголовок отчета";
ТабДок.ВерхнийКолонтитул.ТекстВЦентре = "Стр. [&НомерСтраницы] из [&СтраницВсего]";
ТабДок.ВерхнийКолонтитул.ТекстСправа = "Дата/время печати: [&Дата]/[&Время]";
	
// Нижний колонтитул ТабДок.НижнийКолонтитул.Выводить = Истина;
ТабДок.НижнийКолонтитул.Шрифт = Новый Шрифт(Результат.ВерхнийКолонтитул.Шрифт, , , , Истина);
ТабДок.НижнийКолонтитул.ТекстВЦентре = "Заголовок отчета";

+132 –

См. также

SALE! 15%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020 159428 872 399

861

Как посмотреть итоговый запрос в отчете СКД

Запросы СКД Программист Стажер Система компоновки данных Россия Бесплатно (free)

Часто при разработке отчетов в СКД возникает ситуация, когда не совсем понятно, почему отчет выводит не те данные, которые нужны, либо не выводит вовсе. Возникает потребность увидеть конечный запрос, который формирует СКД. Как это сделать, рассмотрим в этой статье.

15.05.2024 8684 implecs_team 6

Генератор схемы компоновки данных (СКД), написание кода схемы программно

Инструментарий разработчика СКД Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

По выбранной схеме компоновки данных генерирует программный код, который генерирует СКД, аналогичную исходной схеме. Есть дополнительные инструменты для просмотра дерева схемы, сравнение исходной схемы и полученной по коду, а также сравнение изменений в сгенерированном коде для исходной схемы и для измененной.

3 стартмани

05.02.2024 6996 56 obmailok 21

Набор-объект для СКД по тексту или запросу

Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024 3148 5 Yashazz 1

СКД на JavaScript в 1С

СКД WEB-интеграция Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Долгое время поддерживаю web-портал, в котором появилась необходимость создавать отчеты. Просмотрев различные фреймворки на js, я решил сделать свое решение, которое позволяло бы быстро разрабатывать и добавлять новые отчеты на web-портал.

2 стартмани

11.12.2023 10804 23 John_d 25

124

Использование менеджера временных таблиц в СКД

СКД Программист Платформа 1С v8.3 Система компоновки данных Конфигурации 1cv8 Бесплатно (free)

Рассмотрим еще не получивший широкого распространения способ работы с внешними данным в СКД. В процессе обсуждения работы с СКД выяснилось, что многие не знакомы со способом помещения туда временной таблицы, полученной предварительно. Статья будет полезна разработчикам, знакомым с программным созданием СКД.

05.12.2023 8017 PROSTO-1C 15

Модель СКД

Инструментарий разработчика СКД Программист Платформа 1С v8.3 Система компоновки данных Абонемент ($m)

DSL для работы с СКД.

1 стартмани

15.11.2023 7887 17 kalyaka 5

Пользовательские настройки отчетов 1С. Часть 1. Простые и расширенные настройки

СКД Инструкции пользователю Бизнес-аналитик Бухгалтер Пользователь Стажер Платформа 1С v8.3 Конфигурации 1cv8 1С:Бухгалтерия 3.0 Россия Бесплатно (free)

Простые приемы работы с отчетами на СКД. Что нужно знать пользователю про настройку отчетов, чтобы использовать их на полную катушку.

18.09.2023 14565 accounting_cons 12

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
nurislam (0.30 $m)

Показать полностью

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. m_gin 46 22.08.12 13:28 Сейчас в теме

Часто в печатных формах требуется вывести номер страницы над шапкой таблицы.
Андрей Андревич, есть ли способ доработать Ваш алгоритм в этом направлении?

3. nalivai-chai 693 23.08.12 13:19 Сейчас в теме

(1) _qqq, добавил пример с выводом страниц. (колонтитулы)

2. link_l 12 22.08.12 15:17 Сейчас в теме

спасибо, помогло =)

4. KliMich 23.08.12 20:59 Сейчас в теме

Спасибо, зачастую это крайне необходимо (особенно при массивных отчетах)

5. unis 24.08.12 09:39 Сейчас в теме

Мне как раз это нужно!!! спасибо за обработку!!!

6. RustIG 1747 24.08.12 20:09 Сейчас в теме

спасибо, работает

7. Yury1001 1472 27.08.12 11:18 Сейчас в теме

Где то я это уже видел…
…а, точно, это ж Гилёв Профессиональная работа с СКД, бонус проекта Spec8.ru, 81-82 файлы ;)

8. nalivai-chai 693 27.08.12 14:19 Сейчас в теме

(7) Yury1001, там вроде только о фиксации строк.

9. nurislam 07.05.13 14:45 Сейчас в теме

Спасибо нужная вещь

10. ЧИА 169 07.04.14 19:20 Сейчас в теме

Очень помогло.

11. rozer 311 19.06.14 15:13 Сейчас в теме

Спасибо!!!

12. glek 120 30.07.14 10:51 Сейчас в теме

Спасибо. Пока нет необходимости, но была ситуация, когда надо было. И пришлось играться гем....

13. SemenovaMarinaV 31.07.14 10:33 Сейчас в теме

А я не догодалась...

14. Poplar 57 31.07.14 17:53 Сейчас в теме

Как раз то, что я искал. Спасибо!

15. logarifm 1122 05.08.14 14:03 Сейчас в теме

А что произойдет с областью шапки если пользователь изменит вариант отчета? И накидает вместо одной группировки 5, а еще к области шапки добавится вывод Параметров отчета и его отборы. Я не увидел решение этой задачи.

17. nalivai-chai 693 05.08.14 13:53 Сейчас в теме

(15) logarifm, хоть 5, хоть 10 группировок, область шапки отчета будет прочитана в любом случае, а иначе какой кайф от предложенного подхода.

16. logarifm 1122 05.08.14 14:12 Сейчас в теме

Отчет скачал и посмтрел все сделано грамотно. Просто в статье не указано всего. Старайтесь излагать все в статье.

18. nalivai-chai 693 05.08.14 14:01 Сейчас в теме

(16) logarifm, по-моему изложено все, что необходимо.
Не разобрана функция "ПолучитьМакетШапки", так отсылаю в код отчета, более того идея функции взята из типовых конфигураций. Не хочется в статье построчно код отчета комментировать. Проще открыть отчет в конфигураторе, посмотреть выполнение с помощью отладчика. Код прост, разобраться не сложно.
Можно конечно вдаться в разбор макета компоновки, но это тема для отдельной статьи.

19. victor_k 95 18.07.16 13:04 Сейчас в теме

У кого не выводиться колонтитул, надо отрегулировать ширину поля
Результат.ПолеСверху = 20;

20. fedor40 706 16.08.16 11:48 Сейчас в теме

Я думал будет пример с управляемой формой.

В управляемой форме в процедуре ПриКомпоновкеРезультата не работает.

21. Vovanches 17.11.16 10:39 Сейчас в теме

На управляемых формах тоже всё работает, нужно только слегка подпилить. Стоящая фича, спасибо, мне понравилось!

22. eigen20 06.10.17 15:45 Сейчас в теме

Огромнейшее спасибо автору))

23. user_2010 952 06.10.17 16:00 Сейчас в теме

Хм... недавно искала информацию по данной теме - и ничего не нашла... а ваша статья от 12 года!
Попробую применить...
Спасибо!

24. vis_tmp 32 11.10.18 06:29 Сейчас в теме

Спасибо, пригодилось!

25. fish249 31.10.18 12:33 Сейчас в теме

Спасибо автору, полезная обработка

26. websamson 307 09.04.19 09:36 Сейчас в теме

Как вывести колонтитулы на Управляемых формах (БП 3.0)? Отчет сам запускается, а колонтитулов нет

27. websamson 307 09.04.19 10:09 Сейчас в теме

(26) Ответ на свой вопрос:

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    
    ДокументРезультат.Очистить();
    
    Настройки = КомпоновщикНастроек.ПолучитьНастройки();
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);

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

    ДокументРезультат.НижнийКолонтитул.Выводить = Истина;
    ДокументРезультат.ВерхнийКолонтитул.НачальнаяСтраница = 2;
    
    
    ДокументРезультат.НижнийКолонтитул.ТекстВЦентре = "Стр. [&НомерСтраницы] из [&СтраницВсего]";
    ДокументРезультат.НижнийКолонтитул.ТекстСправа = "Дата/время печати: [&Дата]/[&Время]";
    
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

    ПроцессорВывода.Вывести(ПроцессорКомпоновки);

КонецПроцедуры

Показать

28. AKV77 263 12.04.19 16:55 Сейчас в теме

Всех приветствую. Выкладываю работоспособный код... Нашел на просторах интернета и немного изменил...

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

ДокументРезультат.Очистить();

КомпановщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

Настройки = КомпоновщикНастроек.ПолучитьНастройки();

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

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

//фиксировать шапку можно только для ОДНОЙ таблицы или группировки

КоличествоТаблиц = 0;
ВысотаШапки = 0;
ВерхОбластиДанных = 1;

Для Каждого ЭлементТела из МакетКомпановки.Тело Цикл

ТипЭлементаТела = ТипЗнч(ЭлементТела);

Если ТипЭлементаТела = Тип("ТаблицаМакетаКомпоновкиДанных")
ИЛИ ТипЭлементаТела = Тип("ГруппировкаМакетаКомпоновкиДанных") Тогда//Тут надо уточнить что значат другие типы в теле макета

КоличествоТаблиц = КоличествоТаблиц + 1;
ИначеЕсли ТипЭлементаТела <> Тип("МакетОбластиМакетаКомпоновкиДанных") Тогда
КоличествоТаблиц = 99;
КонецЕсли;

Если КоличествоТаблиц > 1 Тогда
Прервать;
КонецЕсли;

Если ТипЭлементаТела = Тип("МакетОбластиМакетаКомпоновкиДанных") Тогда
ВысотаШапки = МакетКомпановки.Макеты[ЭлементТела.Макет].Макет.Количество();
ВерхОбластиДанных = ВерхОбластиДанных + ВысотаШапки;
ИначеЕсли ТипЭлементаТела = Тип("ТаблицаМакетаКомпоновкиДанных") Тогда
ВысотаШапки = МакетКомпановки.Макеты[ЭлементТела.МакетШапки].Макет.Количество();
ВерхОбластиДанных = ВерхОбластиДанных + ВысотаШапки;
КонецЕсли;

КонецЦикла;

ДокументРезультат.ПовторятьПриПечатиСтроки = ДокументРезультат.Область(ВерхОбластиДанных - ВысотаШапки,,ВерхОбластиДанных-1,);

ДокументРезультат.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ДокументРезультат.АвтоМасштаб = Истина;

ДокументРезультат.НижнийКолонтитул.Выводить = Истина;
ДокументРезультат.НижнийКолонтитул.НачальнаяСтраница = 2;

ДокументРезультат.НижнийКолонтитул.ТекстВЦентре = "Стр. [&НомерСтраницы] из [&СтраницВсего]";
ДокументРезультат.НижнийКолонтитул.ТекстСправа = "Дата/время печати: [&Дата]/[&Время]";

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

ПроцессорВывода.Вывести(ПроцессорКомпоновки);

КонецПроцедуры

29. user612919_maxim 01.11.19 16:36 Сейчас в теме

Отлично. Спасибо
(28)

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

ДокументРезультат.Очистить();

КомпановщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

Настройки = КомпоновщикНастроек.ПолучитьНастройки();

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

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

//фиксировать шапку можно только для ОДНОЙ таблицы или группировки

КоличествоТаблиц = 0;
ВысотаШапки = 0;
ВерхОбластиДанных = 1;

Для Каждого ЭлементТела из МакетКомпановки.Тело Цикл

ТипЭлементаТела = ТипЗнч(ЭлементТела);

Если ТипЭлементаТела = Тип("ТаблицаМакетаКомпоновкиДанных")
ИЛИ ТипЭлементаТела = Тип("ГруппировкаМакетаКомпоновкиДанных") Тогда//Тут надо уточнить что значат другие типы в теле макета

КоличествоТаблиц = КоличествоТаблиц + 1;
ИначеЕсли ТипЭлементаТела <> Тип("МакетОбластиМакетаКомпоновкиДанных") Тогда
КоличествоТаблиц = 99;
КонецЕсли;

Если КоличествоТаблиц > 1 Тогда
Прервать;
КонецЕсли;

Если ТипЭлементаТела = Тип("МакетОбластиМакетаКомпоновкиДанных") Тогда
ВысотаШапки = МакетКомпановки.Макеты[ЭлементТела.Макет].Макет.Количество();
ВерхОбластиДанных = ВерхОбластиДанных + ВысотаШапки;
ИначеЕсли ТипЭлементаТела = Тип("ТаблицаМакетаКомпоновкиДанных") Тогда
ВысотаШапки = МакетКомпановки.Макеты[ЭлементТела.МакетШапки].Макет.Количество();
ВерхОбластиДанных = ВерхОбластиДанных + ВысотаШапки;
КонецЕсли;

КонецЦикла;

ДокументРезультат.ПовторятьПриПечатиСтроки = ДокументРезультат.Область(ВерхОбластиДанных - ВысотаШапки,,ВерхОбластиДанных-1,);

ДокументРезультат.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ДокументРезультат.АвтоМасштаб = Истина;

ДокументРезультат.НижнийКолонтитул.Выводить = Истина;
ДокументРезультат.НижнийКолонтитул.НачальнаяСтраница = 2;

ДокументРезультат.НижнийКолонтитул.ТекстВЦентре = "Стр. [&НомерСтраницы] из [&СтраницВсего]";
ДокументРезультат.НижнийКолонтитул.ТекстСправа = "Дата/время печати: [&Дата]/[&Время]";

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

ПроцессорВывода.Вывести(ПроцессорКомпоновки);

КонецПроцедуры

Показать

30. pawellkrv 25 08.04.21 16:48 Сейчас в теме

(28)

ДокументРезультат.ПовторятьПриПечатиСтроки = ДокументРезультат.Область(ВерхОбластиДанных - ВысотаШапки,,ВерхОбластиДанных-1,);

Эту хрень искал ))) +1

Оставьте свое сообщение

E-mail:

Автор:

Андрей Андреевич (nalivai-chai)

Рейтинг: 693

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 148387

Создание 21.08.12 10:52

Обновление 23.08.12 09:16

Статистика:

Просмотры 69546

Загрузки 357

Рейтинг 132

Комментарии 30

Характеристики:

Код открыт Не указано

Рубрики СКД

Кому Программист

Тип файла Внешний отчет (ert,erf)

Платформа Система компоновки данных

Конфигурация Конфигурации 1cv8

Операционная система Не имеет значения

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Абонемент ($m)