FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Se quitan los ceros al multiplicar y dividir Variant BCD (TFmtBCDField) y Currency
Hola, para compartirles esto y de paso indagar más.
Me topé con cierto error de cálculo matemático en algo que estoy programando. Cuando el resultado tiene que ser 50, me arroja 5, cuando tiene que ser 800, me arroja 8, pero si tiene que ser 51 u 802, entonces sí lo respeta: Código:
Debe ser Resulta 50 5 (incorrecto) 800 8 (incorrecto) 51 51 (correcto) 802 802 (correcto) X = (A * B) / B Siendo A el número 50, 800, 51, 802, etcétera, y B una cantidad indeterminada. Si Multiplico A por B y al resultado le hago la operación inversa (dividirlo entre B), el resultado final será nuevamente en A, ¿cierto? Pero no sucede así en la versión 7 de Delphi cuando:
Lo he probado en Delphi 2007 también, con la fortuna de que ahí no ocurre el error de cálculo, por lo cual creo que se trata de un defecto corregido en alguna de las versiones posteriores a la 7. Les agradecería si me ayudan ha probar este sencillo código con la versión de la que ustedes dispongan: Desconozco si este problema fue reportado en su momento, ya que no tuve suerte de encontrar información sobre ello. Pero puede que esta discusión del año 1902 (con razón dicen por ahí que Delphi está viejo ) tenga alguna relación. Algunos usuarios de versiones anteriores a la corrección (por lo menos desde la aparición de la unidad FmtBCD hasta la 7) se han de sentir despreocupados por esto al ver que el variante es obtenido con la función VarFmtBCDCreate, pues quizá no la usan. Pero ojo avizor, porque ese mismo tipo de variante es el que devuelve un típico campo monetario Numeric que en Delphi suele representarlo un objeto de clase TFmtBCDField. La recomendación entonces creo que sería usar siempre su propiedad AsCurrency en las versiones de Delphi que presenten ese problema. Además de la 7, ¿cuál otra? Para mi caso actual implicaría cambiar muchas referencias tipo "ConjuntoDeDatos ['Campo']" por "ConjuntoDeDatos.FieldByName ('Campo').AsCurrency", pero creo lo mejor va a ser derivar una clase interpuesta de TFmtBCDField y redefinir su método virtual GetAsVariant, de manera que éste devuelva un variante Currency en lugar de un variante BCD. Cuando suba el proyecto a Delphi 2010 o XE2 (que les tengo tantas ganas como escasez de dinero) desecharé la clase interpuesta. Un abrazo sin-cero. Al González. Última edición por Al González fecha: 30-03-2012 a las 20:55:47. Razón: Poner un código más completo |
#2
|
||||
|
||||
Vaya, sí que es viejo delphi
No puedo ayudar mucho, ahora tengo esas mismas versiones. |
#3
|
|||
|
|||
Hola Al: Testeado en Delphi XE
Muestra 50
muestra 50
Muestra 51
Muestra 800 Muestra 802 Saludos |
#4
|
||||
|
||||
Gracias Casi, gracias MartinS.
Por lo dicho anteriormente suena lógico que tras Delphi 2007 no ocurra el problema, pero si alguien tiene alguna versión entre la 7 y la 2007, exclusive, o bien anterior a Delphi 7, con la que compile ese código, sería importante conocer los resultados. Saludos. Al González. P.D. * La palabra exclusive es nueva para mí, quizá sea más correcto decir "excluyendo ambas". * Si alguien se anima a hacer más pruebas, evite los cabezazos. |
#5
|
||||
|
||||
Hola Al.
No respondí antes por que al igual que vos tengo Delphi 7 y había entendido que sobre él hiciste las pruebas; con Delphi 7 obtuve los mismos resultados erróneos. Lamento no tener otra versión disponible para aportarte una información más amplia. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#6
|
||||
|
||||
No te preocupes, ecfisa. Al menos se va perfilando que esto viene de fábrica.
Saber en qué versiones ocurre será útil para quien pueda enfrentarse al mismo problema en el futuro y encuentre este hilo. |
#7
|
||||
|
||||
Hola. Con D6 se obtiene:
5 50 51 8 802 Creo que esto confirma de que hay un problema con las versiones D7 e inferiores con dicha función. Por cierto, en lo posible hay que evitar mezclar las operaciones con diferentes tipos. Aún cuando se suponga que éstos son los "más precisos". Saludos, |
#8
|
|||
|
|||
Hola Alberto
Resultados con Turbo Delphi (D2006) Saludos |
#9
|
|||
|
|||
Alberto
¿Te interesa saber lo que resulta en Delphi4 ? Si te interesa, lo instalo para hacer la prueba. Saludos |
#10
|
||||
|
||||
¿Y no será que el problema está en la traducción de un TBCD al Variant? De la ayuda leo que existen estas funciones sobrecargadas:
Pero en tu código tu haces simplemente esto:
Por lo que utilizas esta:
Si tu idea es tener una representación TBCD desde un Double, ¿porqué no directamente emplear DoubleToBCD?. Nos evitamos trabajar con el Variant en formato TBCD:
En el TFMTBCDField cuando uno trabaja con el AsCurrency internamente hace las conversiones desde el Double. Por ejemplo, al leer la propiedad se invoca a GetAsCurrency:
Lo que se vé que utiliza al tipo Double para hacer el trabajo:
Por tanto. Hasta el momento yo no he utilizado Variant. Me manejo con las propiedades AsTipoConcreto, como en este caso el que tu dices, AsCurrency. De todas formas a tener en cuenta esto. Saludos, |
#11
|
||||
|
||||
Aunque también se ha de tener ciertos cuidados si resulta ser que el problema estuviera en todas las funciones sobrecargadas que listé antes.
Si uno escribe en la propiedad AsCurrency tiene lugar esto:
Como se ve, si para el el campo se ha definido un rango se va a intentar comparar el valor contra el máximo y mínimo variant TBCD. Si esta versión sobrecargada sufre del mismo problema se nos viene abajo todo. Al, Ya me hiciste poner en true mi propiedad ModeParanoid. Saludos, |
#12
|
||||
|
||||
Eliseo: No es tan urgente averiguar si pasa lo mismo en Delphi 4.
Marcelo: Miraré de nuevo esas funciones y comento luego. Muchas gracias a ambos. |
#13
|
||||
|
||||
Cita:
Menos mal que abriste el hilo porque estoy utilizando justamente la clase TFMTBDCDField que internamente todo pasa por el AsCurrency y ese SetAsCurrency ya me dio cosa. Que yo recuerde no tuve problemas, pero si el defecto está presente en todo el uso del Variant TBDC es posible que truene en cualquier lado y momento. Mantenos informados. Saludos, |
#14
|
||||
|
||||
¿Al, tuviste tiempo como para ver a que va el error o algunas novedades?
Saludos, |
#15
|
||||
|
||||
Hola Marcelo.
No he tenido tiempo de ver a detalle el problema (hoy se me fue la mitad del día buscando una casa de empeños que aceptara relojes Relic). En su momento, para salir del paso, redefiní el método GetAsVariant en una clase interpuesta:
Eso me basta para el proyecto en cuestión, dado que todos los campos FmtBCD que utilizo son para cantidades monetarias. En otros casos, quizá podría añadirse a ese mismo If una verificación de la propiedad Currency (de tipo Boolean y que solamente tiene impacto en el formato de despliegue). De todas formas, tengo los fuentes de Delphi 7 y 2007, así que sólo es cosa de encontrar un hueco de tiempo (un hueco sin preocupaciones "primitivas") para echar una mirada en las funciones involucradas y encontrar la diferencia, es decir, esa corrección que evidentemente trae Delphi al menos desde la versión 2007. ¿Los demás han podido adelantarse a ver algo de esto? Saludos. |
#16
|
||||
|
||||
Hola Al,
Yo tampoco puedo sacar tiempo como para estudiarlo. Hasta el momento yo me valgo del .AsCurrency y no he tenido problema; pero de todas formas no estoy totalmente confiado y me hace dudar hasta donde es bueno y certero el tener una mezcla de Double, Currency y TBCD porque son variables a las que utilizamos más que seguido. Saludos, |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Premium, A mi me lo quitan tambien? | poliburro | La Taberna | 16 | 06-01-2009 00:00:52 |
Currency to float | david duarte | Varios | 2 | 14-11-2006 16:53:22 |
Error dando formato a un TFMTBCDField | HiroProtagonist | Conexión con bases de datos | 7 | 18-05-2006 00:46:04 |
Error de Currency | Epunamun | OOP | 2 | 05-12-2005 23:41:25 |
Como cambiar TBcdField a TFMTBcdField | Ricardo Alfredo | Varios | 0 | 31-12-2004 16:07:55 |
|