Suma de dos Edit precio + IVA
1 Archivos Adjunto(s)
Hola muy buenas noches ante todo saludo a toda esta comunidad… Bueno les cuento estoy creando un módulo de consulta el cual me muestra condigo, nombre, marca, imagen y precio sin impuesto, Hay esta mi problema quiero calcular el impuesto para que me lo muestre en un edit. Un pequeño ejemplo de cómo estoy trabajando
//En el edit código tengo esto ADOTableImpuesto.filter:= 'CodProd = ' + QuotedStr ( Codigo.Text ); ADOTableImpuesto.Filtered:= true; igv.Text:=ADOTableImpuesto.fieldbyname('Monto').asstring; ADOTableProductos.filter:= 'CodProd =' + QuotedStr ( Codigo.Text ); ADOTableProductos.Filtered:= true; SubTotal.Text:= ADOTableProductos.fieldbyname('Precio1').AsString; //Y en el edit subtotal tengo esto y lo estoy trabajando en SUBTOTALCHANGE var A: Real; B: Real; begin A :=strtofloat(subtotal.Text) ; B :=strtofloat(edit1.Text); total.text:=floattostr(a-b); Mi problema es que me arroja un error ( “is not a valid floating point value.) Pido por favor si me pueden ayudar soy muy novato en esto de echo sin mentir en mi primer proyecto |
Hola.
Ahí creo que te pueden pasar dos cosas: 1º- Que alguno de los valores sea superior a 999 y tenga un punto o coma en los miles y por eso te de error, para poder pasar el número de string a float deberías de quitarle los posibles puntos o comas de puntuación de los miles. 2º- Que el signo decimal lo tengas puesto como punto en vez de coma y al intentar convertirlo te de error, el punto decimal debe de ser una coma. Saludos |
Hola
Windows: Panel de control Configuracion regional y de idioma configuracion adicional Cambia simbolo decimal por un punto y simbolo de separacion de miles por coma. Aplicar Cierra todo reinicia windows Listo Saludos |
Hola Luis.Lapuente, bienvenido a Club Delphi :)
Como a todos los que se inician te invitamos a leer nuestra guía de estilo. Cita:
Saludos :) |
Greacias ante mano
Hola muchas gracias por dedicarme su preciado tiempo… revise cada uno de los punto que me dieron y aun me continua el error, pero también me percate que el error se me produce al momento que el edit subtotal está vacío. Por ejemplo si edit subtotal queda en blanco me sale el error o si edit iva (edit1) queda en blanco me sale el mismo error la cosa es que mientras busca por el edit código esos dos campo quedan en blanco… Me podrían decir que puedo hacer aquí. Por favor
|
Hola Luis.Lapuente.
Si alguno de los TEdit (Edit1 o subtotal) no tienen contenido, la función StrToFloat lanzará una excepción ya que la cadena vacía no es suceptible de ser convertida a número de punto flotante. Tres opciones que evitan la situación: A)
B)
C)
Saludos :) |
Gracias ecfisa
Muchas gracias amigo te agradezco mucho..... Muy bueno el foro de verdad que si agradezco a todos ustedes por su tiempo y compartir sus conocimientos con personas como yo que estamos comenzando en este mundo
^\||/ |
La franja horaria es GMT +2. Ahora son las 22:29:21. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi