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