Reporte con Qreport - agregar paginas
Publicado por crowall (8 intervenciones) el 24/12/2008 18:33:12
Ya tengo mi reporte generado con el Qreport y aparece bien (con el preview)
pero ahora quiero a ese reporte agregarle otra pagina y que se vaya acumulando, es decir que todas las veces que vaya consultando la información me genere reporte y se acumule en el mismo docuemnto pero en diferente pagina.
el codigo mas o menos esta de la siguiente manera:
vf_reportes_comprobantes.ling_s_maestro.Active := False;
vf_reportes_comprobantes.ling_s_maestro.Active := True;
// activo el query
WHILE NOT vf_reportes_comprobantes.ling_s_maestro.Eof DO
Begin // CONSULTO LA INFORMACIÓN REGISTRO X REGISTRO
emp_tmp := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('empleado').AsString;
li_sem_anual := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('lc_sem_anual').AsInteger;
li_dias_anual := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('lc_dia_anual').AsInteger;
li_sem_acum := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('li_sem_acum').AsInteger;
li_dias_acum := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('li_dias_acum').AsInteger;
// calculando los dias pendientes - aqui hay una funcion y modifico dos valores y se los envio al reporte
vf_reportes_comprobantes.lre_sem_pend.Caption := inttostr(li_semanas_pend);
vf_reportes_comprobantes.lre_dias_pend.Caption := inttostr(li_dias_pend);
// muestro el reporte
vf_reportes_comprobantes.lqr_reporte_comprobante1.Preview;
vf_reportes_comprobantes.ling_s_maestro.Next; // para el siguiente registro
// limpio las variables que van cambiando
vf_reportes_comprobantes.lre_sem_pend.Caption :='';
vf_reportes_comprobantes.lre_dias_pend.Caption :='';
End; // fin del while
pero que pasa me muestra uno por uno los reportes y ademas no los agrega al mismo documento.
Si pongo el vf_reportes_comprobantes.lqr_reporte_comprobante1.Preview fuera del while solo me muestra el ultmio registro que es el generado
DE ANTEMANO GRACIAS
pero ahora quiero a ese reporte agregarle otra pagina y que se vaya acumulando, es decir que todas las veces que vaya consultando la información me genere reporte y se acumule en el mismo docuemnto pero en diferente pagina.
el codigo mas o menos esta de la siguiente manera:
vf_reportes_comprobantes.ling_s_maestro.Active := False;
vf_reportes_comprobantes.ling_s_maestro.Active := True;
// activo el query
WHILE NOT vf_reportes_comprobantes.ling_s_maestro.Eof DO
Begin // CONSULTO LA INFORMACIÓN REGISTRO X REGISTRO
emp_tmp := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('empleado').AsString;
li_sem_anual := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('lc_sem_anual').AsInteger;
li_dias_anual := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('lc_dia_anual').AsInteger;
li_sem_acum := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('li_sem_acum').AsInteger;
li_dias_acum := vf_reportes_comprobantes.ling_s_maestro.fieldbyname('li_dias_acum').AsInteger;
// calculando los dias pendientes - aqui hay una funcion y modifico dos valores y se los envio al reporte
vf_reportes_comprobantes.lre_sem_pend.Caption := inttostr(li_semanas_pend);
vf_reportes_comprobantes.lre_dias_pend.Caption := inttostr(li_dias_pend);
// muestro el reporte
vf_reportes_comprobantes.lqr_reporte_comprobante1.Preview;
vf_reportes_comprobantes.ling_s_maestro.Next; // para el siguiente registro
// limpio las variables que van cambiando
vf_reportes_comprobantes.lre_sem_pend.Caption :='';
vf_reportes_comprobantes.lre_dias_pend.Caption :='';
End; // fin del while
pero que pasa me muestra uno por uno los reportes y ademas no los agrega al mismo documento.
Si pongo el vf_reportes_comprobantes.lqr_reporte_comprobante1.Preview fuera del while solo me muestra el ultmio registro que es el generado
DE ANTEMANO GRACIAS
Valora esta pregunta


0