4 respuestas en este tema

[agag4]

Buenas tardes compañeros, cuando me pasaron ese pendiente dije.. PAN COMIDO.. pero me esta pegando una pela

 

Les cuento, tengo un reporte en Qreport, donde hago uso del QRCompositeReport, dentro del evento OnAddReports se agregan 2 reportes de 2 Qreports, pero tengo la necesidad de añadir un 3er reporte pero este esta en otro formulario, lo que hice es hacer un proceso de exportación de ese reporte en .QRP para jalarlo en el evento OnAddReports ya lo hice de varias formas y no me funciona... 

delphi

with QRCompositeReport.Reports do begin
 
   // REPORTE 1
   Add(qrReporte1);
 
   // REPORTE 2
   Add(qrReporte2);
 
   // REPORTE 3 con .QRP
   INTENTO #1
   QuickAbstractRep.Prepare;
   QuickAbstractRep.Printer.Load('C:\GrdRep.qrp');
   Add(QuickAbstractRep);

 

   INTENTO #2

delphi

var
    FQRPrinter: TQRPrinter;  
 
     FQRPrinter := TQRPrinter.Create(Self);
     FQRPrinter.Load('C:\GrdRep.qrp');
 
      Add(FQRPrinter);
 
end;

 

 

En la opcion #1 no se añade y ni sale una pagina en blanco , en la opcion #2 marca un error de creación...

 

Alguna idea ??

En que estoy mal ??

 

gracias.

[enecumene]

Mmm, medio pedoso, veamos utiliza la clase TQRPHandler y en su propiedad Filename cargas el archivo, y luego lo agregas en el AddReports:

delphi

var Archivo: TQRPHandler;
begin
 Archivo := TQRPHandler.Create(Self); //O Application
 Archivo.FileName := 'Archivo.qrp';
 ...
 //En el composite agregas Archivo con AddReoports
end;

Prueba con eso, Ojo, lo hice de memoria.

[agag4]

Ya hice la prueba a su recomendación y no me muestra el contenido del .QRP y si jalo el Qreport al formulario y manualmente con el mouse le doy click derech PREVIEW y abro alli el .QRP si se visualiza...

[agag4]

Mmm, medio pedoso, veamos utiliza la clase TQRPHandler y en su propiedad Filename cargas el archivo, y luego lo agregas en el AddReports:

delphi

var Archivo: TQRPHandler;
begin
 Archivo := TQRPHandler.Create(Self); //O Application
 Archivo.FileName := 'Archivo.qrp';
 ...
 //En el composite agregas Archivo con AddReoports
end;

Prueba con eso, Ojo, lo hice de memoria.

 

 

 

Ya hice otra prueba asi:

 

......

with

  QRCompositeReport.Reports do

begin

  Archivo := TQRPHandler.Create;

  Archivo.FileName := 'C:\Visual\Tmp\GrdRep.qrp';

  Add(Archivo);

.....

 

Despuecito de Generar los 2 reportes y al llegar al 3ero marca un error que pongo a esta respuesta...

 

No me deja la pagina subir un jpg de 30k, te pongo lo que dice en el error:

 

"Exception class EAcessViolation with 'Acces Violation' at address B493B7E8 "

[enecumene]

Mira el siguiente hilo:

http://delphiaccess....tes/#entry77106