Автор: darmoedina
Дата сообщения: 11.09.2006 09:44
Здравствуйте
Пытаюсь перенести pascal код с 2.47 на Designer 3.20. Смысл в том чтобы отобразить на первых страницах отчета (содержание) страницы где описан необходимый товар. - прайс лист. Вот что написано v2:
Код:
procedure Page2OnBeforePrint(Sender: TfrxComponent);
begin
with Page2, Engine do
begin
idt:=0;
end
end;
procedure Band2OnBeforePrint(Sender: TfrxComponent);
begin
with Band2, Engine do
begin
tt:=[ADOQuery4."idpart"];
ar[[ tt ]] :=[page#];
end
end;
procedure Band3OnBeforePrint(Sender: TfrxComponent);
begin
with Band3, Engine do
begin
tt:=[ADOQuery4."idtip"];
art[[ tt ]] :=[page#];
idt:=idt+1;
aridt[[ tt ]] :=[idt];
end
end;
procedure Band4OnBeforePrint(Sender: TfrxComponent);
begin
with Band4, Engine do
begin
tt:=[ADOQuery4."idsubpart"];
ars[[ tt ]] :=[page#];
end
end;
procedure Memo18OnBeforePrint(Sender: TfrxComponent);
begin
with Memo18, Engine do
begin
ttt:=[ADOQuery5."idtip"];
end
end;
procedure Memo22OnBeforePrint(Sender: TfrxComponent);
begin
with Memo22, Engine do
begin
ttt:=[ADOQuery5."idtip"];
end
end;
begin
end.