[[BlueSteel]]

Este es el código que tengo... y se ejecuta en el Evento BeforePrint de la Banda Title

Utilizo 2 IBQuery y 2 IBTrasaction...

IBQ_Factura e IBT_Factura, con la que hago referencia a la factura propiamente tal e imprimo los datos correspondientes a cliente y totales...

IBQ_Items e IBT_Items, con la que hago el filtro correspondiente a los items de la factura (detalle)

lo más raro es que cuando veo la factura por primera vez no lo muestra , salgo de la vista previa y vuelvo a ingresar y ahí si los muestra ...(solo sucede 1 vez,, despues muestra todo bien.. independiente de la factura que se haya seleccionado )

Código Delphi [-]
     IBQ_Factura.SQL.Clear;
     IBQ_Factura.SQL.Add('Select * From "Factura","Cliente"');
     IBQ_Factura.SQL.Add('Where "Factura"."Cli_Rut"="Cliente"."Cli_Rut"');
     IBQ_Factura.SQL.Add('And "Fac_Numero"=:Var1');
     IBQ_Factura.Params[0].AsString := NumFactura;
     IBQ_Factura.Open;

     sRaz.Caption   := IBQ_Factura['Cli_Razon'];
     sRut.Caption   := IBQ_Factura['Cli_Rut'];
     sDir.Caption   := Concat(IBQ_Factura['Cli_Direccion'],' ',IBQ_Factura['Cli_Poblacion']);
     sCiu.Caption   := IBQ_Factura['Cli_Comuna'];
     sFon.Caption   := IBQ_Factura['Cli_Fono'];
     sGir.Caption   := IBQ_Factura['Cli_Giro'];
     sNum.Caption   := Concat('FACT. Nº ',FormatFloat('000000#',IBQ_Factura['Fac_Numero']));
     sDia.Caption   := FormatDateTime('dd', IBQ_Factura['Fac_Fecha_Emision']);
     sMes.Caption   := FormatDateTime('mmmm', IBQ_Factura['Fac_Fecha_Emision']);
     sAno.Caption   := FormatDateTime('y', IBQ_Factura['Fac_Fecha_Emision']);
     sGui.Caption   := IBQ_Factura['Fac_Guia_Despacho'];
     sOrd.Caption   := IBQ_Factura['Fac_Orden_Compra'];
     sPag.Caption   := IBQ_Factura['Fac_Forma_Pago'];
     sNeto.Caption  := FormatFloat('#,',IBQ_Factura['Fac_Neto']);
     sIVa.Caption   := FormatFloat('0,',IBQ_Factura['Fac_Iva']);
     sTotal.Caption := FormatFloat('#,',IBQ_Factura['Fac_Total']);
     sMon.Caption   := Concat('Son: ',NumeroPala(IBQ_Factura['Fac_Total']));
 
     IBQ_Items.SQL.Clear;
     IBQ_Items.SQL.Add('Select * From "DFactura","Producto"');
     IBQ_Items.SQL.Add('Where "DFactura"."Pro_Codigo"="Producto"."Pro_Codigo"');
     IBQ_Items.SQL.Add('And "Fac_Numero"=:Var1');
     IBQ_Items.Params[0].AsString := NumFactura;
     IBQ_Items.Open;
     IBQ_Items.First;