Cita:
Empezado por darkerbyte
...............los datos son los mismos, inclusive los campos, labels, memos, etc. son los mismos, ................Lo que no quiero es hacer 4 procedimientos iguales para rellenar cada reporte. Sino con un solo procedimiento rellenar cualquiera de los 4 ya que son lo mismo
|
Hola darkerbyte, puedes utilizar la función FindComponent del formulario donde esta tu reporte, por lo que explicas y haciendolo con FindComponent ya no te conviene que esten todos tus reportes juntos, ya que cada Label,...., tendría un nombre diferente. Te pongo un ejemplo:
Código Delphi
[-]
procedure RellenarRep(formulario:TForm;Reporte:String);
var
QrLabel1 : TQRLabel;
AQR : TQuickRep;
begin
AQR := TQuickRep(formulario.FindComponent(Reporte));
if Assigned(AQR) then
begin
QrLabel1 := TQRLabel(formulario.FindComponent('QRLabel1'));
........................................
if Assigned(QrLabel1) then
QrLabel1.Caption := 'algo';
.........................................
.........................................
AQR.Preview;
end;
end;
RellenarRep(FormReporte1, 'QuickRep1');
Saluditos