Algo sobre Gets con Spinners y Valid

[fespinoza]

Tengo el siguiente codigo para dos gets, que se relacionan entre si:

Code: Select all  Expand view  RUN

   REDEFINE GET oGet[1] VAR m_INI ID 2308 OF oDlgRGE VALID m_INI >= 1957 ON CHANGE CambiaAno(oDlgRGE) SPINNER MIN 1957 PICTURE "####" UPDATE
   REDEFINE GET oGet[2] VAR m_FIN ID 2309 OF oDlgRGE VALID m_FIN >= m_INI SPINNER MIN m_INI PICTURE "####" UPDATE

.....

FUNCTION CambiaAno(VENT)
   m_FIN=m_INI
   VENT:UPDATE()
RETU .T.
*FDF CambiaAno


Cuando entro al oGet[1] no puedo modificar mediante el teclado el valor inicial que es 1957, todo lo que intento ingresar no se muestra en pantalla; lo único que funciona es haciendo click en el spinner, ahí si se modifica el valor de m_INI; con el oGet[2] en cambio todo marcha bien.

Saludos

Fernando Espinoza

[fespinoza]

Bueno, he seguido probando con este codigo, el problema esta en el llamado a la función CambiaAno con la clausla ON CHANGE, cuando se lo quita permite el ingreso de datos sin ningún problema, pero cuando lo incluyó no entiendo porque no deja ingresar nada, solo dando click sobre el spinner funciona, pero al intentar ingresar un número con el teclado nada que ver.

Si existe otro metodo para realizar la operación que realiza CambiaAno me gustaría me la describan.

Saludos

[daniel_halon]

Ola Fernando.

Eu faria assim

REDEFINE GET oGet[1] VAR m_INI ID 2308 OF oDlgRGE VALID IIF(m_INI >= 1957,CambiaAno(oDlgRGE),.f.) SPINNER MIN 1957 PICTURE "####" UPDATE

fiz um teste e funcionou.

Abraços...

[daniel_halon]

Opps, disculpame haber respondido en portugues, pense que estaba en el forum de Brasil.

[fespinoza]

Daniel

Gracias, gracias, gracias; efectivamente funciona muy bien

[daniel_halon]

Fernando, seria bueno que alteres el titulo del mensaje original y agregues RESUELTO, asi todos saben que ya solucionaste el problema.

Abrazos, Daniel