Utilizar una variable para acceder a diferentes controles

[Neftali [Germán.Estévez]]

Empezado por darkerbyte

Lo que quiero saber es si hay algun modo de crear un procedimiento al que le indique con cual de los 4 reportes ( Form1.QR, Form2.Qr...) deseo trabajar y sobre ese que valla rellenando los datos.

No se tal vez no entiendo la pregunta, pero qué problema hay en hacer...

Código Delphi [-]
procedure RellenarRep(AQR:TQuickRept);
begin
  ....

  AQR.Print;
end;

// llamadas...

RellenarRep(QuickReport1);
RellenarRep(QuickReport2);
...

[darkerbyte]

Empezado por Neftali

No se tal vez no entiendo la pregunta, pero qué problema hay en hacer...

Código Delphi [-]
procedure RellenarRep(AQR:TQuickRept);
begin
  ....

  AQR.Print;
end;

// llamadas...

RellenarRep(QuickReport1);
RellenarRep(QuickReport2);
...

Bueno, los tutoriales que lei sobre QR decía expresamente que se debe colocar cada QR en un Form separado. Mmm.... creo que debo atreverme a romper algunas reglas.

Y bueno, Nuevamente me soprendiste Neftali. Esto es lo que deseo, ahora voy a poner los 4 Reportes en el mismo Form e intentaré implementar el procedimiento como muestras aqui.

Y perdón si no me expliqué correctamente. El punto es este, Tengo 4 reportes que me imprimen una nota de venta, los datos son los mismos, inclusive los campos, labels, memos, etc. son los mismos, lo que varía es el diseño (por ejemplo uno es para impresoras laser y de inyección, el otro es para impresoras de matriz como la vieja Epson LX-300). El usuario podrá elegir cual diseño utilizar. 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

[*Caro*]

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;

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

Saluditos

[darkerbyte]

Hola Caro.

Muchas gracias por tu respuesta, definitivamente a eso queria llegar le diste al clavo