Отчет с исчезающей линией.

FireBird

Здраствуйте.
Возможно ли создать отчет, в котором будет прятаться линию в MasterBand'e в зависимости от количества элементов в соответствующему ему DetailData.
К примеру если во вложенном отчете больше 2 элементов, то нижнюю черту при печати необходимо прятать.

Dripus

Используй обработчик OnBeforePrint у бендов от которых зависит Visibe линии.

Andrew_Sh

FireBird написал:

Здраствуйте.
  Возможно ли создать отчет, в котором будет прятаться  линию в MasterBand'e в зависимости от количества элементов в соответствующему ему DetailData.
К примеру если во вложенном отчете больше 2 элементов, то нижнюю черту при печати необходимо прятать.

Нужно сделать отчет двухпроходным.
В первом проходе посчитать количество Detail-строк для каждой Master-строки.
Во втором проходе скрыть линию на MasterData, если кол-во Detail-строк > 1.

1. Сделайте отчет двухпроходным
Откройте меню Файл -> Параметры отчета и включите чекбокс Делать два прохода

2. В OnBeforePrint для MasterData поместите код:

begin
 iLineNo := [LINE#];
 if not FinalPass then
   DetCnt[iLineNo] := 0;
end

3. В OnBeforePrint для DetailData поместите код:

begin
 if not FinalPass then
   DetCnt[iLineNo] := DetCnt[iLineNo] + 1;
end

4. Для линии на MasterData, которую надо скрывать в OnBeforePrint, в скрипте свойства Memo поместите код:

begin
 if FinalPass then
   Visible := DetCnt[iLineNo] < 2;
end

либо в конец скрипта OnBeforePrint для MasterData из п.2 добавьте

 if FinalPass then
   Line1.Visible := DetCnt[iLineNo] < 2;

FireBird

Всем спасибо.
Линия была успешно спрятана.