1 Topic by Alex (edited by Alex 2015-06-11 09:17:33)

  • Alex
  • Member
  • Offline
  • Registered: 2015-05-05
  • Posts: 21

Topic: Пустые строки в отчет. Решено

Мне нужно выводить 20 строк, и если их меньше допечатывать пустые.
Если у меня допустим MasterData состоит из 15 записей. RowCount := 20.
Мне получается нужно добавить еще 5 пустых строк.

Подскажите пожалуйста как это можно реализовать?

В отчете стоит: MasterData1, Footer1, MasterData2

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
  EmptyCount: integer;
begin
  EmptyCount := 20 - COUNT(MasterData1);
  if EmptyCount > 0 then
  begin
    MasterData2.Visible := true;
    MasterData2.RowCount := EmptyCount;
  end;
end;

дает ошибку: " could not convert variant of type (Null) into type (Integer) "

Всем спасибо. Решено

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Пустые строки в отчет. Решено

А какое решение?

Dmitry.
  • Alex
  • Member
  • Offline
  • Registered: 2015-05-05
  • Posts: 21

Re: Пустые строки в отчет. Решено

DriveSoft wrote:

А какое решение?

В отчете
...
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
    begin
      MasterData2.RowCount := trunc(Engine.FreeSpace /  MasterData2.Height); 
    end;
...
MasterData1 - данные из Report
MasterData2 - пустые значения, RowCount=1 (пробовал разные значения - результат одинаков... вроде)

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Пустые строки в отчет. Решено

Спасибо )

Dmitry.