Problemas con QReport en OnNeedData

[[BlueSteel]]

Hola

Tengo un problemilla que me ha estado pasando con el QReport al tratar de imprimir los datos que poseeo en un StringGrid...(Delphi 7)

puse el sgte codigo en la columna del OnNeedData...del QReport

Código Delphi [-]
    if ItemIndex < Abonos.Asientos.RowCount then
    begin
         sFil_1.Caption := Abonos.Asientos.Cells[0, ItemIndex];
         sFil_2.Caption := Abonos.Asientos.Cells[1, ItemIndex];
         sFil_3.Caption := Abonos.Asientos.Cells[2, ItemIndex];
         sFil_4.Caption := Abonos.Asientos.Cells[3, ItemIndex];
         sFil_5.Caption := Abonos.Asientos.Cells[4, ItemIndex];
         sFil_6.Caption := Abonos.Asientos.Cells[5, ItemIndex];
         sFil_7.Caption := Abonos.Asientos.Cells[6, ItemIndex];
         sFil_8.Caption := Abonos.Asientos.Cells[7, ItemIndex];
    end;
    Inc(ItemIndex);
    MoreData := ItemIndex <= Abonos.Asientos.RowCount;

tambien digo que tengo declarado esto

Código Delphi [-]
 
  ItemIndex : Integer;

Vamos al Problema

Si bien el contenido del StringGrid cuando presione Imprimir lo realiza super bien... si despues cambio el contenido del StringGrid y presiono Imprimir nuevamente.. (sin salir del sistema)... me muestra el informe pero sin datos ???

Por que puede pasar esto ???

será que tengo que destruir el QReport y volver a crearlo ??? si es así.. como lo debo realizar ???

Salu2

[Nati1]

Crear y destruir QReport.

Código Delphi [-]
 begin
      try
         QReport1:= TQReport1.Create(self);
         QReport1.Preview; // o Print
      finally
         QReport1.Free;
      end;

[[BlueSteel]]

Empezado por Nati1

Crear y destruir QReport.

Código Delphi [-]
begin
try
QReport1:= TQReport1.Create(self);
QReport1.Preview; // o Print
finally
QReport1.Free;
end;

que raro.. pero esto no funciona...

lo otro... despues de imprimir los datos.. se me borran todos los datos que tengo en el StringGrid...

se que puede ser que en el evento onactivate del Form...tengo un proceso limpiar, pero no he salido del form.. solo he realizado la sentencia

Código Delphi [-]
 Form13.Reporte.Print;

Salu2

[Nati1]

¿No cabe la posibilidad de que le evento OnNeedData no sea el adecuado?.
Probando con el evento BeforePrint debería de enviar la información antes de imprimirla.
Tambien se podría hacer este proceso fuera del QReport, asi se controlaría mejor la adquisición de datos.

[[eduarcol]]

a ver creo que ya sabemos del problema, el evento onactivate segun tengo entendido se ejecuta a lo que el formulario pierde el foco y vuelve a entrar, prueba colocando ese codigo en el onshow.

Otra cosa a manera de consejo, me parece mas practico utilizar una tabla de memoria en lugar de llenar los datos de manera manual.

[[BlueSteel]]

Empezado por eduarcol

a ver creo que ya sabemos del problema, el evento onactivate segun tengo entendido se ejecuta a lo que el formulario pierde el foco y vuelve a entrar, prueba colocando ese codigo en el onshow.

Tanks...

Gracias por lo del OnShow... no lo sabia...

me parece que tengo casi arreglado el problema del Reporte... según yo.. estoy usando un contador...que es ItemIndex .... lo que estoy haciendo en el evento BeforePrint del Reporte... lo estoy dejando en 0... al parecer se ha solucionado....

lo otro.. como se realizaria esto ???

Otra cosa a manera de consejo, me parece mas practico utilizar una tabla de memoria en lugar de llenar los datos de manera manual