Fecha actual Mar May 14, 2024 1:53 am

Todos los horarios son UTC + 1 hora [ DST ]




Nuevo tema Responder al tema  [ 2 mensajes ] 
Autor Mensaje
 Asunto: Coma flotante
NotaPublicado: Vie Nov 21, 2014 2:34 pm 

Registrado: Jue Nov 03, 2005 7:20 pm
Mensajes: 132
Ubicación: Teruel(España)
Hola

Otra pequeña diferencia entre la v2 y la v3, recojo el Numero de cliente y lo relleno a 0, si el cliente introduce 1 el programa guarda 000000000001, pero con mas de 10 cifras la lia
/*
* Evento OnExit.
*/
METHOD LabeledEdit1OnExit( oSender ) CLASS TTitular
Local buscar := ::labeledEdit1:caption
qout(buscar) //si tiene mas de 10 cifras por ejemplo 123456789012
if VAL(buscar)= 0
MessageDLG("Campo NUMERICO obligatorio",mtError, mbOk)
oSender:setfocus()
return
endif
SELE ftitu
DBSETORDER(1)

buscar := STRZERO(VAL(buscar),12)
qout(buscar) //con la versión 2 devolvía 123456789012 con la V3 aparece -

Creo que se trata de un problema de coma flotante pero no se por donde cogerlo

Saludos


Arriba
 Perfil  
Responder citando  
NotaPublicado: Vie Nov 21, 2014 11:25 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
amable escribió:
Hola

Otra pequeña diferencia entre la v2 y la v3, recojo el Numero de cliente y lo relleno a 0, si el cliente introduce 1 el programa guarda 000000000001, pero con mas de 10 cifras la lia
/*
* Evento OnExit.
*/
METHOD LabeledEdit1OnExit( oSender ) CLASS TTitular
Local buscar := ::labeledEdit1:caption
qout(buscar) //si tiene mas de 10 cifras por ejemplo 123456789012
if VAL(buscar)= 0
MessageDLG("Campo NUMERICO obligatorio",mtError, mbOk)
oSender:setfocus()
return
endif
SELE ftitu
DBSETORDER(1)

buscar := STRZERO(VAL(buscar),12)
qout(buscar) //con la versión 2 devolvía 123456789012 con la V3 aparece -

Creo que se trata de un problema de coma flotante pero no se por donde cogerlo

Saludos


Exactamente, pasa eso.

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 2 mensajes ] 

Todos los horarios son UTC + 1 hora [ DST ]


No puede abrir 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 enviar adjuntos en este Foro

Buscar:
Saltar a:  
cron