Ok imprimo mediante reporteador Fast Report
Uso Mysql
me conecto con MyDac
y este es el codigo que uso para generar la factura
Código Delphi
[-]
procedure TformTotalizar.btn4Click(Sender: TObject);
var
pfactura,npfactura:Integer;
begin
with datos.sqsetup do
begin
SQL.Clear;
SQL.Add('Select * From setup');
ExecSQL;
pfactura:= FieldByName('pfactura').AsInteger;
end;
npfactura:= pfactura+1;
with datos.sqsetup do
begin
SQL.Clear;
SQL.Add('Update setup');
SQL.Add('set pfactura=:npfactura');
ParamByName('npfactura').AsInteger:=npfactura;
ExecSQL; end; with datos.tfacturas do
begin
Close;
if Active=False then Active:=True;
Insert;
Append;
FieldByname('fact_numero').AsInteger := pfactura;
FieldByname('fact_fecha').AsDateTime := Now;
FieldByname('fact_ncontrol').AsString := edtncontrol.Text;
FieldByname('fact_codigohistoria').AsString := edthistoria.Text;
FieldByname('fact_nombre').AsString := edtrazonsocial.Text;
FieldByname('fact_codigocliente').AsString := codigocliente;
FieldByname('fact_rif').AsString := edtrif.Text;
FieldByname('fact_exento').AsCurrency := totalfactura;
FieldByname('fact_total').AsCurrency := totalfactura;
FieldByname('fact_direccion').AsString:= edtdireccion.Text;
FieldByname('fact_paciente').AsString:= edtpaciente.Text;
Post;
end;