OnAddReports en tiempo de ejecución

[[Lepe]]

Uff, vaya lío tienes ¿eh?

He editado este mensaje varias veces, espero que veas el definitivo.
En el datamodule:

Código Delphi [-]
var
    //Reporte de prueba
    Titulo : TRContinuaTitulo1;
    Agrupado : TRAgrupado;
    ReporteTotales : TRTotales;
    ReporteIVA : TRIVAS;

 implementation  // ojo esto es importante, declaramos las variables en la
// parte interface, para que sean visibles desde fuera

// no sé como lo tienes, porque no has dado referencias, no sé donde tenías 
//este código. Así queda claro.

En esa unidad tuya que no dices como se llama ni que hace :

Código Delphi [-]
if TipoFactura = 'Agrupada' then
  Begin
    try
    datam.Titulo := TRContinuaTitulo1.Create(Nil);
    datam.Agrupado := TRAgrupado.Create(Nil);
    datam.ReporteTotales := TRTotales.Create(Nil);
    datam.ReporteIVA := TRIVAS.Create(Nil);
    with datam.Titulo do
    Begin
      //Consulta de impresion
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.TexT := 'SELECT * FROM FACTURATOTALES(' + inttostr(Factura) + ' )';
        Query1.Active := True;
       End;
    with datam.Agrupado do
    Begin
       ///Agrupo los productos de la Orden de servicio
        Agrupado.Close;
        Agrupado.SQL.Clear;
        Agrupado.SQL.Add('SELECT I.Grupo As Grupo, SUM(I.Valor) AS Valor FROM Servicio S, Orden_Servicio O, ItemServicio I');
        Agrupado.SQL.Add('WHERE N_Factura = '+ inttostr(Factura) +' AND S.Codigo = I.Servicio AND I.Orden = N_Orden AND I.Servicio = S.Codigo GROUP BY I.Grupo');
        Agrupado.Active := True;
     
    End;

    with datam.ReporteTotales do
    Begin
       //Totales de la Factura
        Totales.Close;
        Totales.SQL.Clear;
        Totales.SQL.Text := 'SELECT * FROM TOTALFACTURA ('+ inttostr(Factura) + ')';
        Totales.Active := True;
 
    End;

    with datam.ReporteIVA DO
    bEGIN
       //Totales de la Factura
        IVAS.Close;
        IVAS.SQL.Clear;
        IVAS.SQL.Text := 'SELECT * FROM TOTALFACTURA1 ('+ inttostr(Factura) + ')';
        IVAS.Active := True;
    END;
    //ahora añadimos al qrComposite todos los informes (reportes)
   qrCompositeReport1.Reports.Add(datam.Titulo);
   QRCompositeReport1.Reports.Add(datam.Agrupado);
   QRCompositeReport1.Reports.Add(datam.ReporteIVA);
   QRCompositeReport1.Reports.Add(datam.ReporteTotales);

       qrCompositeReport1.PreviewMODAL; // modal por fuerza mayor  
     finally
      QRCompositeReport1.Reports.Clear;
       FreeAndNil(datam.Titulo);
       FreeAndNil(datam.Agrupado);
       FreeAndNil(datam.ReporteTotales);
      ¿el de iva no lo liberas?? ¿por qué?
     end;
   end;

El evento OnAddReport del Qrcomposite reports se ejecuta cuando haces esta línea:

Código Delphi [-]
qrCompositeReport1.Reports.Add(titulo);

pero eso lo haces dentro del mismo evento OnAddReports, así que:
- No se ejecuta nunca (por eso no entra en el evento OnAddReports.
- Si se llega a ejecutar alguna vez, dará recursión (desbordado de pila).

Para lo que quieres, no debes usar el evento OnAddReports para nada.

Saludos

[Vlady]

Lepe gracias por tus aportes pero te cuento q me ha surgido un problema me dices que las variables deben estar antes de implementation pero la declaración de los uses se hace despues y por eso no me reconoce el tipo de variable:

Código Delphi [-]

Var
 //Reporte de prueba
  Titulo : TRContinuaTitulo1;
  Agrupado : TRAgrupado;
  ReporteTotales : TRTotales;
  ReporteIVA : TRIVAS;

implementation

uses Funciones, ReporteTituloContinuas1, ReporteAgrupado, ReporteTotales, ReporteIVAS;

entonces no qued mas remedio q ponerlas abajo de implementation.

La otra al llamar la variable desde mi unidad q se llama funciones no me reconoce ninguna variable creada y me apararece un error

Código Delphi [-]
   try
    //Aui me aparece un error Undeclared identifier Titulo
    DataM.Titulo := TRContinuaTitulo1.Create(Nil);
    DataM.Agrupado := TRAgrupado.Create(Nil);
    DataM.ReporteTotales := TRTotales.Create(Nil);
    DataM.ReporteIVA := TRIVAS.Create(Nil);
    with DataM.Titulo do
    Begin

puse las variables en la unidad creada por mi llamada funciones y el QRCompositeReport en el DataModulo pero me aparece un erro de de

[[Lepe]]

Intuía lo que estaba pasando, por eso mismo añadí dataM. a todas las instrucciones (de hecho me harté muy mucho ).
Cuando tú haces esto:

Código Delphi [-]
if TipoFactura = 'Agrupada' then
  Begin
    try
    Titulo := TRContinuaTitulo1.Create(Nil);

estás creando el informe "Titulo" que está en el qrCompositeReport. Sin embargo, cuando haces esto:

Código Delphi [-]
procedure TDataM.ReporteadorAddReports(Sender: TObject);
begin
   Reporteador.Reports.Add(Titulo);

Estas añadiendo el Titulo que pertenece al DataM, un informe que todavía no ha sido creado, por eso obtienes una violación de acceso a memoria.

Si tu código compilaba, es que tienes el informe "Titulo" declarado en ¡¡los dos sitios !! en el qrCompositeReport y también en el DataM, y para delphi, son 2 informes distintos, aunque se llamen igual (Titulo) y sean del mismo tipo (TRContinuaTitulo1).



Si declaras Agrupado debajo de implementation, entonces se convierten en variables privadas, es decir, no se pueden ver (ni llamar) desde fuera de ese .pas. Esto implica que al intentar acceder desde tu unidad del qrComposite el compilador no sepa donde está "Agrupado" y al intentar acceder a cualquier propiedad te de una violación de acceso a memoria.

Soluciones hay muchas, pero es difícil adivinar como tienes planteado tu programa y lo que quieres hacer.

Si solo vas a usar titulo, Agrupado, etc en el qrCompositeReport, entonces mueve todo a esa unidad, las variables, los "uses", etc, y hazlo todo allí. Así no tendrás que hacer referencia al DataM para nada.

Otra solución:

Lepe gracias por tus aportes pero te cuento q me ha surgido un problema me dices que las variables deben estar antes de implementation pero la declaración de los uses se hace despues y por eso no me reconoce el tipo de variable:

No tiene por qué, arriba del todo, en el apartado "interface" también tienes otra zona de "uses" donde puedes declarar variables que sí se verán (y sí se pueden llamar) desde fuera del archivo. Pero claro, yo no puedo adivinar si te dará referencias circulares (inténtalo, si delphi te muestra un mensaje de error con referencias circulares esta solución no te sirve).

Saludos