FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Error en Get con Picture
alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Error en Get con Picture
Posted: Mon Feb 06, 2012 01:41 PM

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
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Error en Get con Picture
Posted: Mon Feb 06, 2012 04:30 PM

Hol谩,

Cambia el recurso para esto:

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

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Error en Get con Picture
Posted: Mon Feb 06, 2012 06:11 PM

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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Error en Get con Picture
Posted: Mon Feb 06, 2012 11:26 PM

Alvaro,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Error en Get con Picture
Posted: Tue Feb 07, 2012 12:14 AM

Uso Harbour

Harbour 1.0.1dev Intl. (Rev. 9361)

Ven铆a con Fw 806

Alvaro

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Error en Get con Picture
Posted: Wed Feb 08, 2012 07:50 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Error en Get con Picture
Posted: Wed Feb 08, 2012 08:01 PM
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 (fw): Select all Collapse
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.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions