Error al calcular una factura

[Yensis22]

el campo comentario es que no estoy insertando

[[Delphius]]

Empezado por Caral

Hola
Perdona amigo, pensé que habías bajado el programa que puso Yensis22.
Si no lo bajaste no puedes ver el error.
Fue error mio creer que lo hiciste.
Disculpa.
Saludos

Lo he descargado pero no lo he visto con demasiada atención.
Si lo dices amigo, es posible que haya algo más que el error del separador decimal.

A ver... ya mi fijo de que se trata esto.

Saludos,

[[Delphius]]

Empezado por Caral

Hola
Voy a tratar de ser mas especifico:
Hay dos formas de insertar en una tabla.
1- La forma que ya tienes:
De esta manera la sentencia sql interpreta que se hará una inserción completa a la tabla, osea que contendrá TODOS los campos y ademas se insertaran en el mismo ORDEN en que están en la tabla.
2- Cuando se quieren insertar solo en algunos campos de la tabla:
En este caso se tendrá que indicar en cuales de los campos se querrá hacer la inserción.
Como ves hay una diferencia, ese es el error o por lo menos uno de ellos.
Saludos

Muy cierto Carlos!
Tienes razón. En caso de no insertar todos los campos se debe indicar que campos en la sentencia SQL:

Código SQL [-]
insert into tabla (listado_de_campos) values (tus_datos)

Y disculpen que sea pesadito, que vea el asunto del separador decimal.

Saludos,

[Yensis22]

rea

Le argue el campo comentario pero que lo inserte en la tabla pero , no me da resultado por

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.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)+')', '+QuotedStr(DBMemo1.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;

end;

[Yensis22]

cual es la solucion
de pues de cambio me da error
en la line que esta rojo

[Yensis22]

Que es que tengo que ententrgar
este tarea mañana
en la mañana

[[maeyanes]]

Hola...

La línea debería ser:

Código Delphi [-]
QuotedStr(EDescuento.Text)+', '+QuotedStr(EImpuesto.Text)+', '+QuotedStr(DBMemo1.Text)+')';

[[Caral]]

Hola
Aparte de lo dicho acertadamente por maeyanes:
1:

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.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)+', '+QuotedStr(DBMemo1.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;

end;

2-

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.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)+', '+h+', '+QuotedStr(EImp.Text)+', '+
 QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ', '+c+ ', '+
 e+', '+g+', '+QuotedStr(DBMemo1.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;

end;

Tu escoges.
Saludos

[[Caral]]

Hola
Me da la impresión de que ayudar a Yensis22 es mas difícil que esto:
Saludos

[Yensis22]

Cambio relizados

Gracias

Ya realice la corrección de codigo, pero me esta mandando otro error (errror de sintaxis (falta operación) en la expresión de consulta "?") y marca la ultima línea de la operación de calculo (Qfacturacion.ExecSQL

[[Caral]]

Hola
Cual de las dos opciones as puesto 1 o 2?
Saludos