Ver Mensaje Individual
  #5  
Antiguo 18-05-2011
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Cita:
Empezado por darkerbyte Ver Mensaje
...............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;

//lamada
RellenarRep(FormReporte1, 'QuickRep1');

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita