FrreSpace and NewPage

Комментарии

• Маркетолог

  July 2008 отредактировано 04:35

  Абсолютно та же проблема.
  Причем, строка скрипта взята из справки!
  
  Хотелось, бы услышать человеческий ответ разработчиков.
  Хотя, похоже, шансов нет...
  
  Чуть бы побольше активности поддержки на форуме...
  А ведь по коммерческим версиям ответы не быстрее.
  Также висят вопросы в воздухе годами...
  Деньги не супер, однако где гарантия, что Вы поможете?
  Активацию на мой аккаунт прислали всего-то через полгода.
  Ну не хочу я десять репортостроителей изучать!
  Похоже придется...
  А, все-равно никто не читает.
  
• Маркетолог

  September 2008 отредактировано September 2008

  Требовалось исключить отрыв РепортСуммари с картинкой (печать) от строк с данными.
  Частично проблему решил так.
  
  Вместо NewPage заставляю одно из полей увеличить свою высоту. ДатаБэнд и поле должны быть растягиваемые.
  
  Поскольку простой вариант ДатаБэнд.Height=xxx, а также Memo26.Height=xxx (одно из полей датабэнда) не удовлетворили, добавил пустое поле Memo27, сделал его очень узким, невидимым, растягиваемым с переносом по словам, и в цикле добавлял нужное число строк (букв).
  
  А разработчики сюда не заходят.
  
• MaxWood

  September 2008 отредактировано 04:35

  Да уж, столько лет прошло Даже не ожидал получить сообщение в этой теме. Спасибо Маркетолог за решение проблемы, хоть и частичное.
  
  Это уж точно, что разработчикам на проблемы пользователей откровенно наср..ь!!!
  
  Не помню уже как, но проблему переноса я как то решил, скорее всего договорился с заказчиком о другом варианте вывода отчета.
  
  С программированием я уже завязал и тем более с этим генератором отчетов.
  
  Желаю всем удачи!
  
• rbrus

  January 2009 отредактировано 04:35

  Engine.NewPage;
• Izyum

  May 2010 отредактировано 04:35

  Я решил эту задачу не так, хотя тоже черз попеньку:
  
  отчет - оборотка по контрагентам, в подвале отчета - суммы по всем строкам, подвал - Band4
  

  procedure TfrmCustomerBalans.frReportBeginBand(Band: TfrBand);
  var
    FooterHeight: integer;
    v: TfrView;
  begin
    if (Band.Typ=btMasterData) then
    begin
      if Balans.RecNo=Balans.RecordCount then
      begin
        v:=frReport.FindObject('Band4');
        if Assigned(v)
          then FooterHeight:=v.dy
          else FooterHeight:=180;
  
        if (CurPage.CurBottomY-CurPage.CurY)<FooterHeight then
        begin
          Band.ForceNewPage:=true;
        end;
      end;
    end;
  end;
  

  
  Этот код переносит последнюю строку отчета на следующую страницу, если на странице места меньше, чем требуется для вывода подвала отчета.
  Единственный ньюанс: если отчет строится не по локальным датасетам, если после открытия датасета фактический RecordCount неизвестен точно, придется сделать FetchAll... я это делаю в OnAfterOpen
  Код взят из реально работающего проекта
• Izyum

  May 2010 отредактировано May 2010

  Обнаружилась маленькая неточность - ниже так, как должно быть
  

  procedure TfrmCustomerBalans.frReportBeginBand(Band: TfrBand);
  var
    FooterHeight: integer;
    v: TfrView;
  begin
    if (Band.Typ=btMasterData) then
    begin
      // Проверяем последняя ли строка отчета
      if Balans.RecNo=Balans.RecordCount then
      begin
        // Ищем бенд, в котором выводятся итоги
        v:=frReport.FindObject('Band4');
        // Получаем высоту итогового бенда
        if Assigned(v)
          then FooterHeight:=v.dy
          else FooterHeight:=180;
  
        // Проверяем хватает ли места на странице для вывода итогового бенда и последней строки отчета
        if (CurPage.CurBottomY-CurPage.CurY)<(FooterHeight+Band.dx)
        begin
          Band.ForceNewPage:=true;
        end;
      end;
    end;
  end;