Работа с Dbcross

Комментарии

• -=Den=-

  December 2009 отредактировано 10:54

  Здравствуйте,
  
  Это совершенно нормальное поведение.
  Все горизонтальные бэнды выводятся в горизонтальной плоскости и конец данных для них характеризуется высотой.
  Т.е. независимо от кол-ва страниц сгенерированных кросс таблицей когда она расширяется в ширину, для горизонтальных бендов последняя страница будет та, на которой закончился вывод последней части кросс таблицы при расширении в высоту или последнего бэнда(т.е. последней горизонтальной строки).
  
  Можно сделать так :
  - добавить вторую страницу в отчет и установить св-во PrintOnPreviousPage в true.
  - переместить ReportSummary на новую страницу.
  - в OnAfterPrint мастер бэнда (на котором расположен кросс) сохранить текущую координату Y движка и свободное место на странице.
  - в OnAfterCalcHeight бэнда ReportSummary проверять свободное место для бэнда которое сохранили в OnAfterPrint, если бэнд помещается выводить его с корректировкой координаты Y(которую так же сохранили в OnAfterPrint) иначе выводить бэнд на новой странице.
  
  Корректировка координаты нужна, т.к. при расширении кросса в ширину движок не сохраняет ни свободное пространство для этой страницы, ни ее координаты.
  
  Скрипт:

  var
    PageFreeSpace: Extended;
    CurY: Extended;         
                                
  procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
  begin
    PageFreeSpace := Engine.FreeSpace;
    CurY := Engine.CurY;                               
  end;
  
  procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent);
  begin
    if ReportSummary1.Height > PageFreeSpace then
      Engine.NewPage
    else
      Engine.CurY := CurY;                                                                                             
  end;
  

  
  А так же приложил пример отчета(открывается из MainDemo).
• Hamyo

  December 2009 отредактировано 10:54

  Спасибо большое)) буду пробовать.