Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Problema con tipo de datos FLOAT y Delphi
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Problema con tipo de datos FLOAT y Delphi

Publicar nuevo tema Responder al tema
Foros de discusión » MySQL Server, MySQL Client, motor de bd gratuito   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Problema con tipo de datos FLOAT y Delphi Responder citando

Tengo una aplicación de facturación que creía que funcionaba bien, la realicé en Delphi, utilizando MySQL 4.0 como base de datos.
El problema me surge con los campos que utilizo para almacenar candides monetarias. En MySQL, puesto que no tiene el tipo Currency, he utilizando el tipo de datos FLOAT. En el programa, cuando un usuario pone una cantidad pequeña, por ejemplo 24,24 funciona bien, pero si pone 10.223,24, no me muestra el ..,24, sino que muestra 10.223,20.

Y lo que es peor, en la base de datos, en MySQL también aparece sin los cuatro céntimos, con lo cual se está guardando mal o estoy haciendo algo mal.
MensajePublicado:
Mar Nov 04, 2008 12:32 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



varios escribió:
Tengo una aplicación de facturación que creía que funcionaba bien, la realicé en Delphi, utilizando MySQL 4.0 como base de datos.
El problema me surge con los campos que utilizo para almacenar candides monetarias. En MySQL, puesto que no tiene el tipo Currency, he utilizando el tipo de datos FLOAT. En el programa, cuando un usuario pone una cantidad pequeña, por ejemplo 24,24 funciona bien, pero si pone 10.223,24, no me muestra el ..,24, sino que muestra 10.223,20.

Y lo que es peor, en la base de datos, en MySQL también aparece sin los cuatro céntimos, con lo cual se está guardando mal o estoy haciendo algo mal.


Efectivamente, el problema lo tienes en el tipo de datos que has utilizado para guardar importes monetarios. Es mejor o más conveniente utilizar el tipo DECIMAL, con DECIMAL(19,4). El propio MySQL lo recomienda así.

De esta forma evitarás los posibles problemas que suele acarrear el tipo FLOAT, por motivos de precisión y demás, cuanto mayor sea la cantidad más decimales perderás.
MensajePublicado:
Mar Nov 04, 2008 12:36 pm
Top of PageVer perfil de usuario
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



alonsojpd escribió:
Efectivamente, el problema lo tienes en el tipo de datos que has utilizado para guardar importes monetarios. Es mejor o más conveniente utilizar el tipo DECIMAL, con DECIMAL(19,4). El propio MySQL lo recomienda así.

De esta forma evitarás los posibles problemas que suele acarrear el tipo FLOAT, por motivos de precisión y demás, cuanto mayor sea la cantidad más decimales perderás.


Ok, intentaré modificar el tipo de datos, pero me surgen algunas dudas:

¿perderé la información que tengo en los campos con FLOAT al cambiarlos a DECIMAL(19,4)?
¿puedo hacerlo con una sentencia SQL o tengo que utilizar MySQL Administrator?
¿Tendré que cambiar algo en Delphi, en el código fuente de la aplicación?
MensajePublicado:
Mar Nov 04, 2008 12:38 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



varios escribió:
Ok, intentaré modificar el tipo de datos, pero me surgen algunas dudas:

¿perderé la información que tengo en los campos con FLOAT al cambiarlos a DECIMAL(19,4)?
¿puedo hacerlo con una sentencia SQL o tengo que utilizar MySQL Administrator?
¿Tendré que cambiar algo en Delphi, en el código fuente de la aplicación?


En principio no perderás información, aunque siempre es recomendable que hagas una copia de seguridad antes de cambiar el tipo de datos, por lo que pudiera pasar. En teoría te lo convertirá sin problemas de FLOAT a DECIMAL.

Sí puedes utilizar una sentencia SQL similar a esta:
Código:

ALTER TABLE factura
  MODIFY COLUMN importetotal DECIMAL(19,4),
  MODIFY COLUMN baseimponible DECIMAL(19,4),
  MODIFY COLUMN importedescuento DECIMAL(19,4);


* "factura" será el nombre de tu tabla MySQL donde guardes las facturas.
* "importetotal", "baseimponible", "importedescuento" será el nombre del campo que quieras modificar.

Por último, lo que nos comentas de si hay que cambiar algo en Delphi, esto dependerá de qué componentes hayas utilizado y cómo lo hayas programado. En principio, si has utilizado para acceso a MySQL los componentes ZeosDBO para conexión a MySQL con Delphi y el TDBEdit normal de Delphi, en teoría no tendrás que cambiar nada. Porque para Delphi el DECIMAL es un TFloatField, al igual que el FLOAT.
MensajePublicado:
Mar Nov 04, 2008 12:53 pm
Top of PageVer perfil de usuario
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



Utilizo ZeosDBO como componente Delphi para acceso a MySQL.
He hecho los cambios que has comentado y me da este error conversión de tipo no válida.

El código que me da el error:

Código:

  md.tFacturaimporteiva.AsFloat :=
      (md.tFacturabaseimponible.AsFloat * md.tFacturaporcentajeiva.AsFloat) / 100;
  md.tFacturaimportedescuento.AsFloat :=
      (md.tFacturabaseimponible.AsFloat * md.tFacturaporcentajedescuento.AsFloat) / 100;
  md.tFacturaimportetotal.AsFloat:=
      md.tFacturabaseimponible.AsFloat - md.tFacturaimportedescuento.AsFloat +
      md.tFacturaimporteiva.AsFloat;


y también en este:
Código:

  //calcular la base imponible
  md.tc2.Close;
  md.tc2.SQL.Clear;
  md.tc2.SQL.Add('SELECT SUM(importe) imTotal');
  md.tc2.SQL.Add('FROM ' + vtTablaFacturaDetalle);
  md.tc2.SQL.Add('WHERE codigofactura = :pCodigo');
  md.tc2.SQL.Add('and importe is not null');
  md.tc2.ParamByName('pCodigo').DataType := ftInteger;
  md.tc2.ParamByName('pCodigo').AsInteger :=
      md.tFacturacodigo.AsInteger;
  md.tc2.open;
  if  not (tTabla.State in [dsedit, dsinsert]) then
    tTabla.Edit;

  md.tFacturabaseimponible.asFloat :=
      md.tc2.fieldbyname ('imTotal').AsFloat;
  calcularImporte;
MensajePublicado:
Mie Nov 05, 2008 11:43 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



¿Qué versión de Delphi utilizas?
¿Qué versión de ZeosDBO utilizas?
¿y de MySQL Server?
MensajePublicado:
Mie Nov 05, 2008 11:45 pm
Top of PageVer perfil de usuario
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



alonsojpd escribió:
¿Qué versión de Delphi utilizas?
¿Qué versión de ZeosDBO utilizas?
¿y de MySQL Server?


De Delphi la 6.
De ZeosDBO la Zeosdbo 6.5.1 alpha.
De MySQL Server la 5.0.45.

Aunque la versión de ZeosDBO 6.5.1 admite hasta el protocolo 4.1 de MySQL (libmysql41.dll), lo he utilizado desde hace tiempo con MySQL 5.0 y funciona perfectamente. Salvo este problema con los tipos de datos DECIMAL, que no sé si se deberá a la versión de ZeosDBO.
MensajePublicado:
Mie Nov 05, 2008 11:48 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



varios escribió:

De Delphi la 6.
De ZeosDBO la Zeosdbo 6.5.1 alpha.
De MySQL Server la 5.0.45.

Aunque la versión de ZeosDBO 6.5.1 admite hasta el protocolo 4.1 de MySQL (libmysql41.dll), lo he utilizado desde hace tiempo con MySQL 5.0 y funciona perfectamente. Salvo este problema con los tipos de datos DECIMAL, que no sé si se deberá a la versión de ZeosDBO.


Hemos simulado un escenario similar al que nos comentas en nuestro laboratorio y, efectivamente, parace ser que hay un problema con la versión 6.5.1 de ZeosDBO y la versión MySQL Server 5 con el tipo de datos DECIMAL.

Hemos realizado las mismas pruebas con Delphi 6, ZeosDBO 6.5.1 y MySQL 4.1 y funciona perfectamente con el tipo de datos DECIMAL. Por lo el problema está en la incompatibilidad de versiones: ZeosDBO 6.5.1 está desarrollado para MySQL 3 a 4.1, con esta versión te puedes conectar a MySQL 5, pero puede que te dé algunos problemas, como el de DECIMAL que nos comentas.
MensajePublicado:
Jue Nov 06, 2008 4:20 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con tipo de datos FLOAT y Delphi Responder citando



Anuncios



Tras varias investigaciones hemos comprobado que el problema se resuelve de forma "fácil", sin necesidad de modificar el código fuente de Delphi. Es suficiente con cambiar los tipos de datos FLOAT por FLOAT (16,4). La consulta SQL para actualizar sería:

Código:

ALTER TABLE factura MODIFY COLUMN `importedescuento` FLOAT (16,4);
MensajePublicado:
Jue Feb 19, 2009 7:59 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » MySQL Server, MySQL Client, motor de bd gratuito  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A