Error de Sintaxis en SQL

[feliz-58]

Código SQL [-]
with Qtemp do
 begin
  Close;
  SQL.Clear;
  SQL.Text := 'INSERT INTO Factura (CodFactura, fecha, CodCliente, Nombre, Terminos, CodVendedor, PorcDescuento, TasaImpuesto, ' + 
                      'Subtotal, Descuento, Impuesto, Total, MntContado, MntTarjeta, MntCheque, MntOtro, Pagado, Saldo) ' +
                      'Values (:CodFactura, :Fecha, :codCliente, :NombreCliente, :Tipo, :Vendedor, :PorcDescuento, :Impuesto, :SubTotal, escuento, '+ 
                      ':Impuesto, :Total, :Contado, :tarjeta, :Cheque, :Otro, :Pagado, :Saldo)';
Parameters.ParamByName('CodFactura').Value:= CODFact;
Parameters.ParamByName('Fecha').Value:= lfecha.Caption;
Parameters.ParamByName('CodCliente').Value:= Ecodigo.Text;
Parameters.ParamByName('NombreCliente').Value:= lnombrecliente.Caption;
Parameters.ParamByName('Tipo').Value:= CBtipo.Text;
Parameters.ParamByName('Vendedor').Value:= Lvendedor.Caption;
Parameters.ParamByName('PorcDescuento').Value:= FLEPorcDesc.Text;
Parameters.ParamByName('Impuesto').Value:= IntTosTr(18);
Parameters.ParamByName('SubTotal').Value:= FloatToStr(Subtotal);
Parameters.ParamByName('Descuento').Value:= FloatToStr(Descuent);
Parameters.ParamByName('Impuesto').Value:= FloatToStr(Impuesto);
Parameters.ParamByName('Total').Value := FloatToStr(Total);
Parameters.ParamByName('Contado').Value:= Mntcontado;
Parameters.ParamByName('Tarjeta').Value:= Mnttarjeta;
Parameters.ParamByName('Cheque').Value:= MntCheque;
Parameters.ParamByName('Otro').Value:= Mntotro;
Parameters.ParamByName('Pagado').Value:= MntPagado;
Parameters.ParamByName('Saldo').Value:= Mntsaldo;
  ExecSQL;
 end;

hay esta mis Hijos xD

[[AgustinOrtu]]

Lo bueno de usar parametros es que no hay que estar convirtiendo a string

Simplemente le pones "el valor que va" y el componente se las va a arreglar para mandar a la BD el parametro

Ahora funciona o da error? Cual?

[roman]

Empezado por feliz-58

Código SQL [-]
'Values (:CodFactura, :Fecha, :codCliente, :NombreCliente, :Tipo, :Vendedor, :PorcDescuento, :Impuesto, :SubTotal, escuento, '+

hay esta mis Hijos xD

¡Qué cambio! ¡Hasta el código se puso contento!

LineComment Saludos

[feliz-58]

Empezado por roman

¡Qué cambio! ¡Hasta el código se puso contento!

LineComment Saludos

jajajaja, cuando me llego el correo de tu respuesta, pensé que era Casimiro y de una pensé: "Hay viene el viejo con su sarcasmo xD (hay! si me lee xD)"

[[AgustinOrtu]]

Eso es porque falla la conversion de string vacio a Double

Revisa que FLEPorcDesc.Text <> EmptyStr

[Casimiro Noteví]

Empezado por feliz-58

jajajaja, cuando me llego el correo de tu respuesta, pensé que era Casimiro y de una pensé: "Hay viene el viejo con su sarcasmo xD (hay! si me lee xD)"

Estaré atento a tus futuros mensajes
.
.
.
.
.
.
.
.
.

[feliz-58]

Empezado por feliz-58

Código SQL [-]
with Qtemp do
 begin
  Close;
  SQL.Clear;
  SQL.Text := 'INSERT INTO Factura (CodFactura, fecha, CodCliente, Nombre, Terminos, CodVendedor, PorcDescuento, TasaImpuesto, ' + 
                      'Subtotal, Descuento, Impuesto, Total, MntContado, MntTarjeta, MntCheque, MntOtro, Pagado, Saldo) ' +
                      'Values (:CodFactura, :Fecha, :codCliente, :NombreCliente, :Tipo, :Vendedor, :PorcDescuento, :Impuesto, :SubTotal, escuento, '+ 
                      ':Impuesto, :Total, :Contado, :tarjeta, :Cheque, :Otro, :Pagado, :Saldo)';
Parameters.ParamByName('CodFactura').Value      := CODFact;
Parameters.ParamByName('Fecha').Value              := lfecha.Caption;
Parameters.ParamByName('CodCliente').Value       := Ecodigo.Text;
Parameters.ParamByName('NombreCliente').Value := lnombrecliente.Caption;
Parameters.ParamByName('Tipo').Value                 := CBtipo.Text;
Parameters.ParamByName('Vendedor').Value         := Lvendedor.Caption;
Parameters.ParamByName('PorcDescuento').Value := FLEPorcDesc.Text;
Parameters.ParamByName('Impuesto').Value         := 18;
Parameters.ParamByName('SubTotal').Value          :=Subtotal;
Parameters.ParamByName('Descuento').Value        := Descuent;
Parameters.ParamByName('Impuesto').Value         := Impuesto;
Parameters.ParamByName('Total').Value              := Total;
Parameters.ParamByName('Contado').Value           := Mntcontado;
Parameters.ParamByName('Tarjeta').Value            := Mnttarjeta;
Parameters.ParamByName('Cheque').Value            := MntCheque;
Parameters.ParamByName('Otro').Value                := Mntotro;
Parameters.ParamByName('Pagado').Value            := MntPagado;
Parameters.ParamByName('Saldo').Value               := Mntsaldo;
  ExecSQL;
 end;

hay esta mis Hijos xD

Arreglado sin las converciones, y el error