Goyo
18-07-2007, 22:12:44
buenas tardes amigos foristas estoy tratanto de complementar unos reportes en Quick Report, ahora la duda :rolleyes: viene cuando quiero insertar un numero progresivo en mi Reporte... para ello les comento que hago lo siguiente, en el evento BeforePrint pongo lo siguiente : les comento que cheque esta liga (http://www.clubdelphi.com/foros/showthread.php?t=39796&highlight=numero+progresivo+en+qreport)
Son BD de Paradox y utilizo QuickReport
procedure TQuickReport1.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
autonum := 0;
end;
y en el evento Print de cada Text lo siguiente:
procedure TQuickReport1.QRDBText3Print(sender: TObject; var Value: String);
begin
Inc(autonum);
QRLabel1.Caption := inttostr(autonum)
end;
ademas puse un QRLabel1 para que alli me ponga el numero progresivo a imprimir... pero No mas no pone nada de nada..
espero contar con su ayuda... de momento muchas gracias...
saludos
Son BD de Paradox y utilizo QuickReport
procedure TQuickReport1.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
autonum := 0;
end;
y en el evento Print de cada Text lo siguiente:
procedure TQuickReport1.QRDBText3Print(sender: TObject; var Value: String);
begin
Inc(autonum);
QRLabel1.Caption := inttostr(autonum)
end;
ademas puse un QRLabel1 para que alli me ponga el numero progresivo a imprimir... pero No mas no pone nada de nada..
espero contar con su ayuda... de momento muchas gracias...
saludos