Error al calcular una factura

[Yensis22]

Ya Realise los cambio

Pero me esta mandando este error “Raised exception class EDatabaseError with messege “”qfacturacion: Fild “cliente” not found.” Y se para en esta linea (QFacturacion.FieldValues['Direccion'] :=LabDireccion.Caption este es el nuevo codigo.

Código Delphi [-]
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.Active := false;
 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.

[[coso]]

antes de qfacturacion.append...

Código Delphi [-]
 
qfacturacion.active := false;
qfacturacion.sql.text := 'select * from facturacion';
qfacturacion.active := true;
 
qfacturacion.append;
...

[[coso]]

descuento, etc... ahora los debes poner tal cual como reales, tal y como te comentaron en otro mensaje...ahora cada variable que pongas debe estar en su tipo...

[[coso]]

antes se pasaban a string porque sql.text es una string, tambien, pero ahora no hace falta; de la misma manera se usa quotedstr para poner una cadena dentro de otra.

[[coso]]

otra cosa : veo q usas el texto normal para indicar lo que has hecho, el quoted para indicar lo que te ocurre o vas a hacer. Es muy confuso y molesto mejor no uses el quote a no ser q sea para referirte a algun mensaje anterior

[[Caral]]

Hola
Ademas de lo dicho por Coso:
Podria estar afectando los espacios, trata asi:

Código Delphi [-]
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.Active := false;
 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;

Saludos