Error al calcular una factura

[[coso]]

Hola buenos dias, deberias hacer tal como te dice caral, con el mismo query:

en vez de usar el insert...

Código Delphi [-]
Qfacturacion.SQL.Text := 'Insert into Facturacion 
 Values ('+QuotedStr(ECodFactura.Text)+', '+QuotedStr(EdiCliente.Text)+ ', 
 '+ LabDireccion.Caption+ ' :FechaFactura, '+QuotedStr(Editequipo.Text)+ ', 
 '+QuotedStr(EditRNC.Text)+ ', '+QuotedStr(DBComboBox2.Text)+', 
 '+QuotedStr(EMonto.Text)+', '+
                        QuotedStr(Editcantidad.Text)+', '+QuotedStr(ETotal.Text)+', 
 '+QuotedStr(EImp.Text)+', '+QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ', 
'+QuotedStr(ESTotal.Text)+ ', '+QuotedStr(EDescuento.Text)+')', '+
                        QuotedStr(EImpuesto.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;

usar

Código Delphi [-]
QFacturacion.Append;
QFacturacion.FieldValues['CODIGO_FACTURA'] := ECodFactura.Text;
QFacturacion.FieldValues['DIREC_CLIENTE'] := LabDireccion.Caption;
...
QFacturacion.FieldValues['TOTAL'] := total; // siendo la variable total real
QFacturacion.FieldValues['FECHA'] := Datetimepicker1.Date;
Qfacturacion.Post;

para salir del paso este que te bloquea. saludos.

[[coso]]

Código Delphi [-]
 
'... Values ('+QuotedStr(ECodFactura.Text)+', ' 
+QuotedStr(EdiCliente.Text)+ ',  ' + 
LabDireccion.Caption + ' :FechaFactura, '+ // <--- con quotedstr, y falta una coma delante el :
QuotedStr(Editequipo.Text)+ ',' ...

otro fallo, esto deberia ser QuotedStr, y antes de :FechaFactura, tendria que haber una coma...

[[coso]]

bueno, a ver si sales del paso yensis, saludos. Procura escribir mas ordenadamente la proxima vez, de igual manera con tu codigo, que te ayudara mucho. venga, saludos.

[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.

[[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