FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Sumar edits e ir actualizando
Bueno amigos! Se que se podria hacer de manera mas sencilla, pero se me ocurrio hacerlo asi y queria compartir con uds el problema jaa.
Tengo en un form el pago de un cliente. coloque entonces los siguientes edits(en la imagen): Y la idea era que en el campo total dentro de "efectivo" se sumen los pesos que representan los dolares mas los pesos entregados por el cliente. A esto se le sumarian los cheque ingresados(hasta cuatro), esto se mostraria en el campo total haber, y el campo nueva deuda estaria la deuda de la base de datos al entrar al form y se le resta el haber. Pero el caso es que quise hacerlo con eventos, y me lie jaja. Es decir si el usuario va cambiando los ars o dls cambia el total al igual que al agregar un cheque. Y el algoritmo termino siendo mas complejo de lo que parecia iba a ser. Me acorde del foro aja y quiero compartirlo Última edición por giulichajari fecha: 21-11-2014 a las 23:52:18. Razón: me olvide la imagen |
#2
|
||||
|
||||
Yo para trabajar con importes monetarios uso el tipo currency. Podes hacer algo como esto:
Luego quedaria a gusto tuyo el como tratar las excepciones, no se si realizas alguna validacion en otro evento, ahi se asume que "esta todo bien" El CurrToStrF es para decirle a Delphi que ademas de convertir a string un valor monetario, que le de formato. En el ejemplo que puse yo trunca el valor mostrando solamente 2 decimales y le agrega el signo de la moneda configurada ($, U$S, etc) Tranquilamente podes usar tambien CurrToStr o mandarle otros parametros (revisa los posibles valores ademas del ffCurrency) Eso lo podes poner en el OnExit de los edit, o en el OnChange. Saludos! |
#3
|
||||
|
||||
En realidad la forma que a la larga termina siendo la mas sencilla y clara es que encapsules todo ese comportamiento en una clase
Por ejemplo, algo super sencillo
E implementar los getter y setter asi
Aca el secreto esta en utilizar propiedades para obtener y acceder a los valores, en el atributo FDirty (Sucio) y el metodo Recalcular (todo esto es de un ejemplo que lei del viejo maestro Ian Marteens) De esta manera nos aseguramos que cuando obtenemos un valor, este esta "actualizado" porque la clase sabe calcular el total. Imaginate si tenes que aplicar tasas de interes, impuestos, descuentos.. etc. Asi te quedaria todo el calculo del total en el metodo Recalcular (en un solo lugar) y podrias consultar y setear valores libremente sabiendo que siempre estaran ajustados dependiendo de los valores que setees. Luego siguiendo la logica de lo que queres hacer, en el OnExit de los edit podrias validar que el importe efectivo es valido (por ejemplo) y mandarselo a la clase. La clase setea el valor y FDirty pasaria a True, por lo tanto la proxima lectura de algun valor llama a Recalcular y los montos son actualizados. Entonces el OnExit de los edit quedaria
Donde refrescar seria un proceso de tu form que se encarga de asignar a cada edit el valor correspondiente de la instancia de la clase Pago Última edición por AgustinOrtu fecha: 22-11-2014 a las 00:51:58. |
#4
|
|||
|
|||
Gracias
Bueno gracias por responder.
Un problema que tenia antes de publicar el mensaje con el evento onchange, es que el valor se sumaba mal, por ejemplo, si escribo 1 y luego 2 me queda 12 que se suma al 1 anterior. Osea la funcion recalcular deberia restar lo anterior. Y ademas el evento onexit no es suficiente porque el usuario puede retornar al edit. Pero lo voy a intentar. |
#5
|
||||
|
||||
1 + 2 te dio 12 porque sumaste sirings, el String '1' concatenado con el String '2' = '12'
Tenés que convertirlo a moneda para que te de 3 con la función StrToCurr |
#6
|
|||
|
|||
El usuario se para en el edit ARS y escribe 1. entonces el total ARS es 1, pero si luego escribe 2, se forma el 12 que se suma al 1 en total ARS y da 12+1=13 cuando deberia ser 12, osea cada vez que cambia se vuelve a sumar, es como que se deberia sumar la "diferencia".
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
sumar edits | Kamael | OOP | 17 | 12-03-2015 19:18:55 |
Actualizando AdoQuery | Nathan | Conexión con bases de datos | 3 | 05-05-2006 20:07:19 |
Actualizando un campo... | StartKill | Firebird e Interbase | 5 | 05-03-2004 20:50:54 |
Actualizando los TImage | Magneto | Varios | 4 | 05-12-2003 07:40:55 |
Actualizando Firebird | hgiacobone | Conexión con bases de datos | 5 | 09-06-2003 22:35:02 |
|