Нумерация строк

Комментарии

• NickNikych

  February 2006 отредактировано 23:17

  Сам додумался.....
  Данные пообще через Line# в сквозную не нумеруются.
  Только через отчет с группами похоже.
  
  Спасибо, что помогли.....
• NickNikych

  February 2006 отредактировано 23:17

  Еще вопрос.
  Может кто еще че подскажет...
  
  Каждая глава формируется с нового листа. После каждой главы необходимо напечатать пустой лист с рамкой. Как это сделать?
  Да и по первому вопросу тоже ниче не получается. Все равно с 1-цы начинается.
  Помогите люди добрые.
  Сами мы не местные... Тока начинаем разбираться с FR....
• -=Serg=-

  February 2006 отредактировано 23:17

  Попробуйте использовать переменную которую инкрементируйте или обнуляйте в событи OnBeforePrint нужных бендов.
• NickNikych

  February 2006 отредактировано 23:17

  написал:

  Попробуйте использовать переменную которую инкрементируйте или обнуляйте в событи OnBeforePrint нужных бендов.

  Спасибо ответ.
  А можно по конкретнее...
• Lex

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

  добавь переменную например MyLine
  (меню отчет->переменные)
  
  в событии Report.OnStartReport обнуляешь её

    Set('MyLine', 0);
  

  
  в событие DetailData2.OnBeforePrint (второй уровень детализации)
  инкрементируешь ее на 1

    Set('MyLine', Get('MyLine') + 1);
  

  
  а в соответсвующей мемки пишешь

    [MyLine]
  

  
  вроде все
• gpi

  February 2006 отредактировано 23:17

  var i: integer;
  procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
  begin
  i:=0;
  end;
  
  procedure SubdetailData1OnBeforePrint(Sender: TfrxComponent);
  begin
  i:=i+1;
  end;
  на SubdetailData1 выводите і
• Lex

  February 2006 отредактировано 23:17

  2gpi
  
  Да так даже лучше,
  а я незнал что можно использовать сриптовые переменные в формулах
  внутри мемок.
• NickNikych

  February 2006 отредактировано 23:17

  Огромное спасибо!!!...
  Все работает....
• NickNikych

  February 2006 отредактировано 23:17

  А как насчет пустого листа после каждой главы.....
• gpi

  February 2006 отредактировано 23:17

  В конце главы (наверное это GroupFooter) к GroupFooter цепляете дочерний бэнд. Дочерний бэнд сделать растягиваемым. На нём расположить SubReport. SubReport - печатать на бэнде.На SubReport добавить MasterData. Источник данных для MasterData - одна строка. MasterData растянуть на всю страницу. На MasterData бросить Мемо с Align=baClient, установить рамку для Мемо
  Для дочернего бэнда написать события

  procedure Child1OnBeforePrint(Sender: TfrxComponent);
  begin
       PageHeader1.Visible:=False;
       PageFooter1.Visible:=False;
       Engine.NewPage;
  end;
  
  procedure Child1OnAfterPrint(Sender: TfrxComponent);
  begin
       PageHeader1.Visible:=True;
       Engine.NewPage;
       PageFooter1.Visible:=True;
  end;
  
• NickNikych

  February 2006 отредактировано 23:17

  Ок! Спасибо.
  Щас попробую.....
• NickNikych

  February 2006 отредактировано 23:17

  Чайник я!!!!
  Не получается....
  Сделал все как подсказали. Ан нет....
  Никаких изменений....
• gpi

  February 2006 отредактировано 23:17

  Пришлите шаблон Вашего отчёта. Адрес в ПМ
• NickNikych

  February 2006 отредактировано 23:17

  Все!!! Нашел.....

  ---

  var k: integer;
  procedure frxReport1OnStartReport(Sender: TfrxComponent);
  begin
  k:=0;
  end;
  
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  k:=k+1;
  if k<>1 then Engine.NewPage;
  end;

  ---

  Перед первой главой отключаю... А затем перед каждой главой печатаю пустой лист.
  Как все просто оказывается....