Código
Hola caral, no veo ningun dataset en mi codigo... pero en el form del reporte tengo mi dataset... porque debiera de utilizarlo... mira el codigo de llamado de mi Reporte... algo más y me avisa... vale.
procedure TImprimirFactura.BitBtn1Click(Sender: TObject);
begin
UniFactura.querFactura.Close;
UniFactura.querFactura.SQL.Text := 'select top 1 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
If RadioGroup1.ItemIndex = 0 then FImprimirFactura.QuickRep1.Preview
else FImprimirFactura.QuickRep1.Print;
finally
FImprimirFactura.Free;
end;
end;
end;
|