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

NickNikych

Доброго времени суток!!!

Проблема в следующем....
База состоит из четырех таблиц, связанных между собой MasterSource-ом (главы, разделы, позиции, подпозиции).
Данные третьего уровня (позиции) необходимо в отчете пронумеровать сквозной нумерацией.
[line#] не помогает... С началом нового раздела опять с 1 начинается.

Я так понял, что с помощью [line#] только данные 2-го уровня нумеруются в сквозную...

NickNikych

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

Спасибо, что помогли.....

NickNikych

Еще вопрос.
Может кто еще че подскажет...

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

-=Serg=-

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

NickNikych

написал:

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

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

Lex

добавь переменную например MyLine
(меню отчет->переменные)

в событии Report.OnStartReport обнуляешь её

  Set('MyLine', 0);

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

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

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

  [MyLine]

вроде все

gpi

var i: integer;
procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
begin
i:=0;
end;

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

Lex

2gpi

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

NickNikych

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

NickNikych

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

gpi

В конце главы (наверное это 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

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

NickNikych

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

gpi

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

NickNikych

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

---

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;

---

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