Печать header-а и footer-а при отсутствии данных

Комментарии

• -=Den=-

  August 2006 отредактировано August 2006

  В скрипте (где MasterData1 находится между Header1 и Footer1 и привязан к датасету).

  procedure Page1OnAfterPrint(Sender: TfrxComponent);
  begin
  if TfrxDBDataSet(MasterData1.DataSet).IsEmpty then
  begin
    Engine.ShowBand(Header1);
   Engine.ShowBand(Footer1);
  end;
  end;
  
• MURik

  August 2006 отредактировано 12:42

  Попробовал код - вылетает ошибка:
  "Неопределенный идентификатор: TfrxDBDataSet"
  
  Менял условие на
  if MasterData1.DataSet.IsEmpty then
  в этом случае ошибка:
  "Неопределенный идентификатор: IsEmpty"
  
  Как победить?
• -=Den=-

  August 2006 отредактировано 12:42

  В uses программы добавить frxCustomDBRTTI.
• MURik

  August 2006 отредактировано 12:42

  Извините за назойливость
  Но все равно не получается ..
  
  Теперь получаю:
  "Variant array index out og bounds"
  
  А без этого кода отрабатывает без ошибок все.
• aseroff

  August 2006 отредактировано 12:42

  В MasterData (там, где задается DataSet - двойной щелчек мышкой на MasterData) надо поставить количество записей 1 (Number of records).
• MURik

  August 2006 отредактировано 12:42

  В MasterData по двойному клику у меня только (выбран frxDBDataSet1):
  [не назначен]
  Одна строка
  frxDBDataSet1
  
  Не вижу, где бы я мог указать кол-во записей
  
  А в свойствах у DataSet-а также не нашел (см.аттач)
  
• -=Den=-

  August 2006 отредактировано August 2006

  Тогда так(в OnBrforePrintPage):

  if TfrxDBDataSet(MasterData1.DataSet).IsEmpty then
  MasterData1.RowCount := 1;
  

  или

  if MasterData1.DataSet.RecordCount = 0 then
  MasterData1.RowCount := 1;
  
• aseroff

  August 2006 отредактировано 12:42

  написал:

  В MasterData по двойному клику у меня только (выбран frxDBDataSet1)

  Окно "Select DataSet" открывается по двойному клику мышки по синему полю бенда MasterData. В нижней части этого окна находится поле для ввода количества записей ("Number of records").
  
  У меня FR 3.21.
  
• MURik

  August 2006 отредактировано 12:42

  Ошибка "Variant array index out of bounds" не исчезла.
  Код:
  

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
   if TfrxDBDataSet(MasterData1.DataSet).IsEmpty then
   begin
    MasterData1.RowCount := 1;
    Engine.ShowBand(Header1);
    Engine.ShowBand(Footer1);
   end;
  end;
  

  
  Ошибка возникает в fs_iinterpreter на строке 1622:
  for j := 0 to Item.Count - 1 do
  
  Версия FR 3.10
• -=Den=-

  August 2006 отредактировано 12:42

  Уберите Engine.ShowBand(Header1); Engine.ShowBand(Footer1); .
• MURik

  August 2006 отредактировано 12:42

  Та же ошибка и с этим кодом:
  

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
   if TfrxDBDataSet(MasterData1.DataSet).IsEmpty then
   begin
    MasterData1.RowCount := 1;
   end;
  end;
  
• -=Den=-

  August 2006 отредактировано 12:42

  Такой код пробовали ?
  

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
  if MasterData1.DataSet.RecordCount = 0 then
  MasterData1.RowCount := 1;
  end;
  
• MURik

  August 2006 отредактировано 12:42

  Попробовал - та же ошибка.
  Может дело в версии FR ?
• MURik

  August 2006 отредактировано 12:42

  Оказалось - дело действительно в версии FR.
  В 3.23 работает первоначальный код:

  procedure Page1OnAfterPrint(Sender: TfrxComponent);
  begin
   if TfrxDBDataSet(MasterData1.DataSet).IsEmpty then
   begin
    Engine.ShowBand(Header1);
    Engine.ShowBand(Footer1);
   end;
  end;
  

  
  Спасибо за помощь!