Постраничный итог не в PageFooter. Как?

Комментарии

• gpi

  February 2006 отредактировано 04:19

  Если нужен постраничный итог на последней странице перед ReportSummary, то смотри здесь
  http://www.fast-report.com/ru/forum/index....t=0&#entry12426
• ppvlad

  February 2006 отредактировано February 2006

  Спасибо за ответ. Не то это решение, что надо.
  
  первый вариант (ReportSummary.OnBeforePrint - принудительно вывести PageFooter перед ReportSummary) не устраивает двумя причинами:
  - а если в PF не только постраничный итог а что-то ещё (номер страницы, например) - это совсем не надо перед RS.
  - на НЕпоследних страницах постраничный итог в PF не приклеивается к дата-бэнду.
  
  второе решение с группировкой (нарезка группировкой по NN строк на страницу)
  - а что делать на первой странице (где количество строк меньше чем на остальных из-за Header-ов)?
  - а что (прости господи) делать с растягиваемыми строками дата-бэнда?
  
  на мой взгляд, эта задача - печать постраничного итога приклеенного к дата-бэнду - хоть и совершенно из пальца высосанная, но реально ставящая в тупик - требует адекватной поддержки в FR (гипотетический бэнд PageSummary) с требуемым функционалом.
  
  к сожалению, этот отчёт не мне пригрезился, а является утверждённой госкомстатом формой и заказчик требует безусловного её соблюдения.
  
  как быть?
• -=Den=-

  February 2006 отредактировано 04:19

  Попробуйте сделать отчет двухпроходным и считать сумму в скрипте.
• ppvlad

  February 2006 отредактировано 04:19

  Да я посчитаю, вопросов ноль - вывести её потом где?
• -=Den=-

  February 2006 отредактировано 04:19

  Попробуйте Child band.
• ppvlad

  February 2006 отредактировано 04:19

  с чайлдом получилось, спасибо, но как-то это уж очень замутнённо для столь простой задачи:
  
  есть MasterBand, к нему кладётся Child, на чайлде завёрстан постраничный итог, значения для которого считаются в beforeprint датабэнда и сбрасываются в ноль в afterprint чайлда.
  
  у MasterBand в OnAfterPrint (AFTER ! не Before и не BeforePrint для Child !) скриптуем:
  
  procedure MasterBandOnAfterPrint(Sender: TfrxComponent);
  begin
  Child.Visible := (Engine.FreeSpace < (MasterBand.Height + Child.Height))
  and (<Page#> <> <TotalPages>);
  end;
  
  по поводу (<Page#> <> <TotalPages>) заботимся ибо на последней странице места хватит и условие сработает не как нам надо.
  но печатать-то надо и на ней, что лечим, например в OnBeforePrint для ReportSummary:
  
  procedure ReportSummaryOnBeforePrint(Sender: TfrxComponent);
  begin
  Child.Visible := True;
  Engine.ShowBand(Child);
  end;
  
  вуаля - всё работает как надо (за что спасибо, выручили).
  но это-ж надо такую стойку на ушах заруливать...
  
  а проще никак?