Имя: Пароль:
1C
1С v8
Вопрос по печатным формам
0 Junior_77
 
08.06.12
11:30
Всем доброго времени суток. Как новичок прошу помощи у более опытных.
Вопрос такой: как при определенном условии в печатной форме вставить разрыв страницы (ТабДок.ВывестиГоризонтальныйРазделительСтраниц()) и в начале каждой новой страницы добить область шапки. Надеюсь вопрос сформулировал более менее понятно.

Макет = ПолучитьМакетНаСервере();
ОблЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОблШапка = Макет.ПолучитьОбласть("Шапка");
ОблЭлемент = макет.ПолучитьОбласть("Элемент");
ТабДок.Вывести(ОблЗаголовок);
ОблШапка.Параметры.НомерДня = День(ЭтаФорма.Отчет.СсылкаДок.Дата);
ТабДок.Вывести(ОблШапка);

Запрос = Новый Запрос;
Запрос.Текст =
  "ВЫБРАТЬ
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Дата КАК Дата,
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Машина КАК Машина,
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Статус КАК Статус,
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.МоментВремени,
  |    ЗагрузкаМашиныЗаказыКлиентов.ПриоритетПогрузки КАК Приоритет,
  |    СУММА(ЗагрузкаМашиныЗаказыКлиентов.Сумма) КАК Сумма,
  |    //СУММА(ЗагрузкаМашиныЗаказыКлиентов.Объем) КАК Объем,
  |    СУММА(ЗагрузкаМашиныЗаказыКлиентов.ОтправленоМест) КАК ОтправленоМест,
  |    СУММА(ЗагрузкаМашиныЗаказыКлиентов.СданоВТКМест) КАК СданоВТКМест,
  |    ЗагрузкаМашиныЗаказыКлиентов.ЗаказКлиента.Контрагент КАК Контрагент,
  |    Партнеры.ГородОтправки КАК АдресДоставки
  |ИЗ
  |    Документ.ЗагрузкаМашины.ЗаказыКлиентов КАК ЗагрузкаМашиныЗаказыКлиентов
  |        ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Партнеры КАК Партнеры
  |        ПО ЗагрузкаМашиныЗаказыКлиентов.ЗаказКлиента.Партнер = Партнеры.Ссылка
  |ГДЕ
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Дата = &АктуальнаяДата
  |
  |СГРУППИРОВАТЬ ПО
  |    ЗагрузкаМашиныЗаказыКлиентов.ЗаказКлиента.Контрагент,
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Дата,
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Машина,
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.Статус,
  |    ЗагрузкаМашиныЗаказыКлиентов.Ссылка.МоментВремени,
  |    ЗагрузкаМашиныЗаказыКлиентов.ПриоритетПогрузки,    
  |    Партнеры.ГородОтправки";
 
 Запрос.УстановитьПараметр("АктуальнаяДата", ЭтаФорма.Отчет.СсылкаДок.Дата);

 Выборка = Запрос.Выполнить().Выбрать();
 НомПоПорядку = 1;
 Пока Выборка.Следующий() Цикл

     ОблЭлемент.Параметры.Номер = НомПоПорядку;
     ОблЭлемент.Параметры.Время = "08:00";
     ОблЭлемент.Параметры.Контрагент = Выборка.Контрагент;
     ОблЭлемент.Параметры.ГородОтправки = Выборка.АдресДоставки;
     ОблЭлемент.Параметры.Машина = Выборка.Машина;
     ОблЭлемент.Параметры.СуммаОтгрузки = Выборка.Сумма;
     ОблЭлемент.Параметры.ПриоритетПогрузки = Выборка.Приоритет;
     ОблЭлемент.Параметры.ОтправленоМест = Выборка.ОтправленоМест;
     ОблЭлемент.Параметры.СданоМест = Выборка.СданоВТКМест;
   
//вот здесь нужно сделать проверку: умещается ли очередной элемент
// на страницу. Если нет то вывести номер страницы, вставить
// горизонтальный разделитель, вствить область шапки и продолжить
//вывод строчек (области элементов)
 
     ТабДок.Вывести(ОблЭлемент);
     
     НомПоПорядку = НомПоПорядку + 1;
     
   КонецЦикла;