Error en Get con Picture

[alvaro533]

Un cliente me acaba de reportar un error con los decimales. A ver si alguien puede reproducirlo.

Tengo un get definido así.

redefine get lget[7] var lat_g picture "9999.999999" id IDC_EDIT4 of oDlg

El dato que queremos poner es, por ejemplo 40.123456

Si lo tecleo directamente funciona perfectamente. Pero si lo cojo de un fichero de texto con "copiar" y hago pegar sobre el campo del get inicialmente es get pone

40.123456

Es decir, correcto, pero cuando cambio el foco a otro control, bien sea con el ratón o pulsando TAB, el número se cambia automáticamente a:

40.134560

Es decir, se como el segundo decimal y pone un cero al final. Esto sucede con cualquier número que pongas, siempre que lo peges en lugar de teclearlo.

¿Le ha pasado a alguien?
Gracias
Alvaro

[karinha]

Holá,

Cambia el recurso para esto:

redefine get lget[7] var lat_g ID 104 of oDlg PICTURE "@R 9999.999999"

[alvaro533]

Gracias Karinha,

Acabo de probarlo y sigue fallando. Es curioso, cuando pegas lo ves bien, es decir

40.123456

pero en cuanto pinchas con el ratón en otro lado fuera del get se cambia a:

40.134560

Alguien lo puede probar por si fuera un fallo de la versión de Harbour que tengo. La clase TGet es de Harbour, no de fivewin.
Gracias.

Alvaro

[Antonio Linares]

Alvaro,

Que versión de FWH y de Harbour/xHarbour usas ?

[alvaro533]

Uso Harbour

Harbour 1.0.1dev Intl. (Rev. 9361)

Venía con Fw 806


Alvaro

[Antonio Linares]

Alvaro,

Te podemos proporcionar la clase TGet más reciente de FWH pero no podemos asegurarte que funcione bien con la versión de FWH que usas

[alvaro533]

Gracias Antonio, si puedes dámela y lo pruebo. De todas formas lo he solucionado haciendo un get the una variable de texto y haciendo una pequeña función que la valida .
Alvaro

Code: Select all  Expand view

static function valida_cNum(cNum)
local nFor
local ll

   cNum:= alltrim(cNum)
   for nFor= 1 to  len(cNum)
      if !subs(cNum,nFor,1)$"0123456789.-"
         return .f.
      endif
   next nFor
      if subs(cNum,len(cNum),1)=="."
      return .f.
      endif
      if "-"$cNum
         if subs(cNum,1,1)!="-"
           return .f.
         endif
      cNum:= subs(cNum,2)
         if "-"$cNum
            return .f.
         endif
      endif
      cNum= strtran(cNum,".","",,1)
      if "."$cNum
      return .f.
      endif
   
return .t.