procedure TFFacturacion.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h :real;
begin
a:= StrTofloat(Editcantidad.Text);
b:= StrTofloat(EMonto.Text);
d:= StrTofloat(EDesc.Text);
f:= StrTofloat(EImp.Text);
c:= a * b;
e:= c * d / 100;
g:= (c - e) * f / 100;
h:= c - e + g;
ESTotal.Text:= floatToStr(c);
EDescuento.Text:=floatToStr(e);
EImpuesto.Text:=floatToStr(g);
ETotal.Text:= floatToStr(Round(h));
QFacturacion.Append;
QFacturacion.FieldValues['NumeroFactura'] := ECodFactura.Text;
QFacturacion.FieldValues['Cliente'] :=EdiCliente.Text;
QFacturacion.FieldValues['Direccion'] :=LabDireccion.Caption;
QFacturacion.FieldValues['FechaFactura'] := Datetimepicker1.Date;
QFacturacion.FieldValues['Equipos'] :=Editequipo.Text;
QFacturacion.FieldValues['NCF'] :=EditRNC.Text;
QFacturacion.FieldValues['Tecnico'] :=DBComboBox2.Text;
QFacturacion.FieldValues['Monto'] :=EMonto.Text;
QFacturacion.FieldValues['Cantidad'] :=Editcantidad.Text;
QFacturacion.FieldValues['Total'] :=ETotal.Text;
QFacturacion.FieldValues['ITBIS'] :=EImp.Text;
QFacturacion.FieldValues['Descuento'] :=EDesc.Text;
QFacturacion.FieldValues['FormaPago'] :=DBComboBox3.Text;
QFacturacion.FieldValues['SubTotal'] :=ESTotal.Text;
QFacturacion.FieldValues['Desctotal'] :=EDescuento.Text;
QFacturacion.FieldValues['ITBIStotal'] :=EImpuesto.Text;
QFacturacion.FieldValues['Comentario'] :=DBMemo1.Text;
Qfacturacion.Post;
end;
end.