Actualizar datos en un Qreport

[[BlueSteel]]

hola.. a mi tambien me pasa algo parecido... para que me entiendan, tengo lo sigte;

el form de tipo data mudule llamado Datos, en donde tengo un IBDatabase, 6 IBQuerry y 6 IBTransacction.

en el Form Ordenes, genero un listado de Ordenes, lo que funciona muy bien...

cuando selecciono un registro de Orden... este se puede imprimir, al presionar el boton imprimir se ejecuta el sgte código:

Código Delphi [-]
     OCompra.Num_Orden := Datos.IBQ_Select['Ord_Numero'];
     OCompra.Orden.Preview;

el Formulario OCompra (que tiene el Informe en QReport) ejecuta lo sgte:

bueno, tiene

banda title proceso before

Código Delphi [-]
procedure TOCompra.TitleBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
     Datos.IBQ_Orden.SQL.Clear;
     Datos.IBQ_Orden.SQL.Add('Select * From "Orden","Proveedor"');
     Datos.IBQ_Orden.SQL.Add('Where "Orden"."Pro_Rut"="Proveedor"."Pro_Rut"');
     Datos.IBQ_Orden.SQL.Add('And "Ord_Numero"=:Var1');
     Datos.IBQ_Orden.Params[0].AsString := Num_Orden;
     Datos.IBQ_Orden.Open;
     Datos.IBQ_Cargos.SQL.Clear;
     Datos.IBQ_Cargos.SQL.Add('Select * From "Cargos","Centro"');
     Datos.IBQ_Cargos.SQL.Add('Where "Cargos"."Cen_Codigo"="Centro"."Cen_Codigo"');
     Datos.IBQ_Cargos.SQL.Add('And "Ord_Numero"=:Var1');
     Datos.IBQ_Cargos.Params[0].AsString := Num_Orden;
     Datos.IBQ_Cargos.Open;
     Datos.IBQ_Cargos.First;
     sCargos.Lines.Clear;
     While Datos.IBQ_Cargos.Eof = False Do
     Begin
          sCargos.Lines.Add(Concat(Datos.IBQ_Cargos['Cen_Detalle'],' $',FormatFloat('#',Datos.IBQ_Cargos['Car_Monto'])));
          Datos.IBQ_Cargos.Next;
     End;
     sRaz.Caption    := Datos.IBQ_Orden['Pro_Razon'];
     sAte.Caption    := Datos.IBQ_Orden['Ord_Atencion'];
     sDir.Caption    := Concat(Datos.IBQ_Orden['Pro_Direccion'],' ',Datos.IBQ_Orden['Pro_Comuna']);
     sSol.Caption    := Datos.IBQ_Orden['Ord_Solicitado'];
     sPag.Caption    := 'CONTADO - 30 DÍAS';
     sFax.Caption    := Datos.IBQ_Orden['Pro_Fax'];
     sOrden.Caption  := FormatFloat('000#',Datos.IBQ_Orden['Ord_Numero']);
     sFec.Caption    := Concat('Talcahuano, ', FormatDateTime('dd "de" mmmm "de" yyyy', Datos.IBQ_Orden['Ord_Fecha']));
     sObs.Caption    := Datos.IBQ_Orden['Ord_Observacion'];
     sDescto.Caption := FormatFloat('0,',Datos.IBQ_Orden['Ord_Descuento']);
     sNeto.Caption   := FormatFloat('#,',Datos.IBQ_Orden['Ord_Total_Neto']);
     sIVa.Caption    := FormatFloat('0,',Datos.IBQ_Orden['Ord_Iva']);
     sTotal.Caption  := FormatFloat('#,',Datos.IBQ_Orden['Ord_Total']);
end;

proceso After - Aqui es donde selecciono todos los registros que deben mostrarse en la banda detail

Código Delphi [-]
procedure TOCompra.TitleBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
     With Datos Do
     Begin
          IBQ_Items.Close;
          IBQ_Items.SQL.Clear;
          IBQ_Items.SQL.Add('Select * From "DOrden"');
          IBQ_Items.SQL.Add('Where "Ord_Numero"=:Var1');
          IBQ_Items.Params[0].AsString := Num_Orden;
          IBQ_Items.Open;
          IBQ_Items.First;
     End;
end;

banda detail / proceso Before

Código Delphi [-]
procedure TOCompra.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
     sCtd.Caption  := FormatFloat('#,',Datos.IBQ_Items['Dor_Cantidad']);
     sDes.Caption  := Datos.IBQ_Items['Dor_Descripcion'];
     sUnit.Caption := FormatFloat('#,',Datos.IBQ_Items['Dor_Valor_Unitario']);
     sTot.Caption  := FormatFloat('#,',Datos.IBQ_Items['Dor_Valor_Total']);
end;

bueno, y eso es todo el código...

mi problema es que cuando muestro el informe por primera vez la banda detail solo muestra el primer registro, pero si salgo e ingreso nuevamente (sin salir del sistema), me muestra todo... trate de cambiar los IBQuerry e IBTransacction al Formulario ... pero sucede lo mismo....

a alguien se le ocurre que puede ser