Перенос последней строки в накладной на другую страницу - NAV: Программирование

prefreitor · 08.04.2010, 10:20

Делал подобное) Без счетчиков не обойтись.
Без подитогов основная суть такова:

Код:

// конструкция для переноса последней строки на новую
Counter2 +=1; //Счетчик строк выведенных на странице
Counter +=1;  //Счетчик строк выведенных в док-те
IF ((SL1Count - Counter) = 1)  THEN  BEGIN //ВНИМАНИЕ - последняя строка! Как с ней поступить?
  IF ((CurrReport.PAGENO = 1) AND (Counter2 >= 3)) THEN //Страница №1 и строк вывели уже 3 - значит стартуем новую страницу.
    CurrReport.NEWPAGE;
  IF ((CurrReport.PAGENO > 1) AND (Counter2 >= 13)) THEN
    CurrReport.NEWPAGE;
END;

Если печатаем несколько копий нужно предусмостреть сброс счетчиков. Если печатаем подитогикод немного усложняется, но суть остается)