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

Комментарии

• Dripus

  August 2005 отредактировано 17:18

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

  August 2005 отредактировано 17:18

  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

  August 2005 отредактировано 17:18

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