Detalles en Reporte de Facturas

[magnu9]

Caral un elojio sipppp... Eres muy pero muy efectivo... GRACIAS... Coloqué el dataset, quite el top 1 y listo. ... y no te preocupes mi otra duda esta al cruzar la esquina....

procedure TImprimirFactura.BitBtn1Click(Sender: TObject);
begin
UniFactura.querFactura.Close;
UniFactura.querFactura.SQL.Text := 'select numfac, fecfac, tipfac, condicion,codusu,fecvenc,codcli, impuestoTot, descuento, subtotal, totalfac from factura order by numfac desc';
uniFactura.querFactura.Open;
numfact := UniFactura.querFactura.Fields[0].AsInteger;

If RadioGroup2.ItemIndex = 0 then
begin
FImprimirFactura:=TFImprimirFactura.Create(self);
FImprimirFactura.querFactura.parameters[0].Value :=numfact;
FImprimirFactura.querFactura.Open;
try
FImprimirFactura.QuickRep1.DataSet:=FImprimirFactura.querFactura;
If RadioGroup1.ItemIndex = 0 then FImprimirFactura.QuickRep1.Preview
else FImprimirFactura.QuickRep1.Print;
finally
FImprimirFactura.Free;
end;
end;
end;