Сквозная нумерация строк в пределах группы

Bal323

Доброго времени суток!
Поделитесь, плс, мыслями по такому поводу:
отчет содержит две группы и одну мастер дату,
необходимо, чтобы сквозная нумерация строк начиналась _заново_ при формировании группы верхнего уровня:
====так=нужно========
Группа 1
___Группа 1.1
______[1] запись
______[2] запись
___Группа 1.2
______[3] запись
Группа 2
___Группа 2.1
______[1] запись //заметьте, что при использовании нумерации типа [LINE#], тут была бы цифра 4, а если просто [LINE], то в каждой группе нумерация начиналась бы с единицы.
============
Заранее спасибо!

malor

В отчете стоит Memo-поле в котором записано [Line], что дает автономную нумерацию в пределах группы. Но я хочу, скажем, в некоторых случаях делать сквозную. Как это организовать в скрипте?

Fokewolf

malor написал: »

В отчете стоит Memo-поле в котором записано [Line], что дает автономную нумерацию в пределах группы. Но я хочу, скажем, в некоторых случаях делать сквозную. Как это организовать в скрипте?

На BeforePrint бэнда пихаете:
Inc(pCount), где pCount - переменная типа Integer. И в мемку, где у вас будет номер - вставляете [pCount].

beginman

Fokewolf написал: »

На BeforePrint бэнда пихаете:
Inc(pCount), где pCount - переменная типа Integer. И в мемку, где у вас будет номер - вставляете [pCount].

Если тема не закрыта, но "устаревшая" для кого то. Не задавая вопрос повторно можно как то поподробнее рассказать для новичка

gpi

Вариант 1: использовать [Line#]
Вариант 2:

var pCount: integer;
  
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
    inc(pCount);            
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
     pCount := 0;                          
end;

begin

end.

beginman

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
inc(pCount);
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
pCount := 0;
end;

begin


что то ничего не происходит

gpi

В отчёте у Вас:

var MyCount: integer;

procedure Memo11OnBeforePrint(Sender: TfrxComponent);
begin
  MyCount := 0;
  MyCount := MyCount + 1;
end;

Переделайте по примеру. В мемо нужно писать [MyCount], a не MyCount

beginman

gpi написал: »

В отчёте у Вас:

var MyCount: integer;

procedure Memo11OnBeforePrint(Sender: TfrxComponent);
begin
  MyCount := 0;
  MyCount := MyCount + 1;
end;

Переделайте по примеру. В мемо нужно писать [MyCount], a не MyCount

Пробовал так не работает.

gpi

Выложите изменённый отчёт

beginman

gpi написал: »

Выложите изменённый отчёт

Выкладываю.

gpi

Вы так ничего и не исправляли