Problema TGet

[Mike Serra]

Buenas Tardes Foro:

Tengo un problema con un proyecto antíguo (FWH 2.4). Es el siguiente:

Tengo un get deshabilitado con un valor numerico, cuando pulso el boton que lo habilita y el get obtiene el foco, cuando escribo sobre dicha casilla el valor que hubiera antes lo borra (ese comportamiento para mi es el correcto). ¿Donde está el problema? pues que pulso intro y me voy a otro get, y si quiero volver al primero, cuando obtiene el foco, en vez de comportarse como al principio, si escribo, ya NO borra lo que hubiera en la casilla, sino que va machacando lo que hubiera. ¿Como puedo hacer para que siempre actue de esa manera, es decir, borrando lo que hubiera en el get?.

Espero haberme explicado bien

redefinición del get:

Code: Select all  Expand view  RUN

redefine get o:aoGet[1]  var (o:ctbfcos)->porcosant id 201 of o:odlg picture "9,999.99" when o:lActivo


Un Saludo,

[Daniel Garcia-Gil]

usa esto a ver si te sirve

o:aoGet[1]:bGotFocus = {|self| ::SelectAll() }

[Mike Serra]

Gracias mcfox por tu contestación.

El problema persiste, con la única diferencia que el efecto del ::Selectall solo se aprecia la 1ª vez, en los demas get's e incluso cuando vuelvo al primero ya no le aplica el efecto.

De todas formas MUCHAS GRACIAS por tu tiempo.

[MGA]

Mike, faça o seguinte teste

nTest:=(o:ctbfcos)->porcosant
redefine get o:aoGet[1] var nTest id 201 of o:odlg picture "9,999.99" when o:lActivo

[Mike Serra]

Exactamente igual,

Muchas Gracias.

[Antonio Linares]

Mike,

Estas usando un bucle for ... next para redefinir los GETs ?

[Mike Serra]

No Antonio, aunque las variables están en un array las creo línea a línea, no en un bucle.

De todas formas creo que el problema está en los get's que se le asignan un valid, es decir, si el get numerico no tiene valid, funciona siempre bien, pero si por el contrario el get tiene un valid, segun que caso, funcionará la primera vez que obtenga el foco y despues ya no funcionará, o tengo casos en los que nunca funciona.

Espero haberte dado alguna pista más, de todas formas, te recuerdo, que es un proyecto antiguo (FWH 2.4), sería muy laborioso pasarlo a una nueva versión.

Muchas Gracias por todo.