Error al calcular una factura

[[Delphius]]

Empezado por Caral

Hola
Por supuesto que me puedo equivocar y al ser novato con mas razón, pero casi podría asegurar que el código tiene un error y muy serio, mas sabiendo que esta sacado de un código que yo mismo hice.
Saludos

¿A que error te refieres amigo?

Para mi es muy claro y evidente que el error de invalid floating point value es que se trata de una confusión en el signo decimal.

Se está ingresando un punto y se espera una coma, o a la inversa... se está ingresando una coma y se espera un punto.

Fuera de eso no hay nada de malo. ¿O soy yo el que está equivocado y no veo donde está el error?

Saludos,

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

[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

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

[tcp_ip_es]

uhmmmm que raaaaaaaaaaro ok0510 ha escrito lo mismito que dec en su primera respuesta al hilo...

Por favor, edita tu mensaje de manera que no "rompa" la página del foro. ¿Y qué es eso de "facruta"? Quisiste decir factura, claro. Presta más atención al título de los hilos, porque, es importante a la hora de realizar búsquedas en el futuro, entre otras cosas. Gracias.

... y es el primer mensaje de ok0510 .... yo ya no entiendo nada

[[coso]]

es un bot, tcp_ip, para ganar clicks a las paginas de abajo

[tcp_ip_es]

uhmmm pero es un bot autorizado? ....uhmmm sigo sin entender...

[[coso]]

no, claro q no. ten en cuenta q los ops no leen todos los mensajes, y mas si son asi (texto .... firma) vamos, formalmente correctos...ya lo borraran