|
Вопрос по печатным формам | ☑ | ||
---|---|---|---|---|
0
Junior_77
08.06.12
✎
11:30
|
Всем доброго времени суток. Как новичок прошу помощи у более опытных.
Вопрос такой: как при определенном условии в печатной форме вставить разрыв страницы (ТабДок.ВывестиГоризонтальныйРазделительСтраниц()) и в начале каждой новой страницы добить область шапки. Надеюсь вопрос сформулировал более менее понятно. Макет = ПолучитьМакетНаСервере(); ОблЗаголовок = Макет.ПолучитьОбласть("Заголовок"); ОблШапка = Макет.ПолучитьОбласть("Шапка"); ОблЭлемент = макет.ПолучитьОбласть("Элемент"); ТабДок.Вывести(ОблЗаголовок); ОблШапка.Параметры.НомерДня = День(ЭтаФорма.Отчет.СсылкаДок.Дата); ТабДок.Вывести(ОблШапка); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Дата КАК Дата, | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Машина КАК Машина, | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Статус КАК Статус, | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.МоментВремени, | ЗагрузкаМашиныЗаказыКлиентов.ПриоритетПогрузки КАК Приоритет, | СУММА(ЗагрузкаМашиныЗаказыКлиентов.Сумма) КАК Сумма, | //СУММА(ЗагрузкаМашиныЗаказыКлиентов.Объем) КАК Объем, | СУММА(ЗагрузкаМашиныЗаказыКлиентов.ОтправленоМест) КАК ОтправленоМест, | СУММА(ЗагрузкаМашиныЗаказыКлиентов.СданоВТКМест) КАК СданоВТКМест, | ЗагрузкаМашиныЗаказыКлиентов.ЗаказКлиента.Контрагент КАК Контрагент, | Партнеры.ГородОтправки КАК АдресДоставки |ИЗ | Документ.ЗагрузкаМашины.ЗаказыКлиентов КАК ЗагрузкаМашиныЗаказыКлиентов | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Партнеры КАК Партнеры | ПО ЗагрузкаМашиныЗаказыКлиентов.ЗаказКлиента.Партнер = Партнеры.Ссылка |ГДЕ | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Дата = &АктуальнаяДата | |СГРУППИРОВАТЬ ПО | ЗагрузкаМашиныЗаказыКлиентов.ЗаказКлиента.Контрагент, | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Дата, | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Машина, | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Статус, | ЗагрузкаМашиныЗаказыКлиентов.Ссылка.МоментВремени, | ЗагрузкаМашиныЗаказыКлиентов.ПриоритетПогрузки, | Партнеры.ГородОтправки"; Запрос.УстановитьПараметр("АктуальнаяДата", ЭтаФорма.Отчет.СсылкаДок.Дата); Выборка = Запрос.Выполнить().Выбрать(); НомПоПорядку = 1; Пока Выборка.Следующий() Цикл ОблЭлемент.Параметры.Номер = НомПоПорядку; ОблЭлемент.Параметры.Время = "08:00"; ОблЭлемент.Параметры.Контрагент = Выборка.Контрагент; ОблЭлемент.Параметры.ГородОтправки = Выборка.АдресДоставки; ОблЭлемент.Параметры.Машина = Выборка.Машина; ОблЭлемент.Параметры.СуммаОтгрузки = Выборка.Сумма; ОблЭлемент.Параметры.ПриоритетПогрузки = Выборка.Приоритет; ОблЭлемент.Параметры.ОтправленоМест = Выборка.ОтправленоМест; ОблЭлемент.Параметры.СданоМест = Выборка.СданоВТКМест; //вот здесь нужно сделать проверку: умещается ли очередной элемент // на страницу. Если нет то вывести номер страницы, вставить // горизонтальный разделитель, вствить область шапки и продолжить //вывод строчек (области элементов) ТабДок.Вывести(ОблЭлемент); НомПоПорядку = НомПоПорядку + 1; КонецЦикла; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |