Error en la clase GET

[Marcelo Via Giglio]

Holas,

no se si es un bug en la clase get, pero la siguiente definicion no funciona

REDEFINE GET f1 ;
ID 111 ;
OF oDlg ;
PICTURE "@d" ;
WHEN nRango = 2 ;
UPDATE ;
ON CHANGE oDlg:update()

no permite editar correctamenrte el get, sin el ON CHANGE todo sales OK, le aumente .T. al final del on change e igual, sera un bug, estoy utilizando
FWH 2.6 xHb 99.5 Bcc 55

saludos

Marcelo

[Manuel Valdenebro]

Marcelo,

El pasado dia 12/05/2006, ante otra duda con UPDATE, te contesté diciendote que yo habia tenido ese problema y que lo habia solucionado modificando la clase TGET, según una idea de Luis Krause. Te acompaño la contestación por si te sirviera de ayuda:

"Si el código anterior no funciona, estoy casi seguro, que el problema está en la clase TGET. Yo lo tuve hace tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate():

METHOD EditUpdate() CLASS TGet

if ::oGet:HasFocus
::DispText()
::oGet:Assign() //LKM actualiza buffer actual
endif

::SetPos( ::oGet:Pos )

return nil

[horacio]

Manuel
Gracias por el aporte. Tenía problemas con la cláusula on change y esto lo solucionó. Ahora me encuentro que siempre me devuelve un caracter menos, es decir si pongo 'Hola' on change me devuelve 'hol'. Sé que esta patología estaba presente en fw24 de 16 bits y en un post daban solución a esto. Alguien sabe donde puedo encontrar este arreglo. Gracias por todo