Ayuda Con la clase TGet (Solucionado)

[Blessed]

Saludos amigos del Foro:

Tengo un problema con la clase TGet, que guiandome con la documentacion, ejemplos y revisado creo que algunas 15 paginas de temas relacionados no doy con la solucion, vean el problema es:

Tengo una ventana de dialogo con 5 Gets, al ingresar al primero, este modifica el valor de todos los demas desde el Valid, aqui se refresca el contenido con oget:refresh(), de los demas gets, antes del salir del Valid del primer Get, verifico el contenido de las variables de los otros gets y todo esta bien.
Al pasar al segundo Get, el valor es cero (o el asignado antes de ingresar al primer Get) pero los siguientes gets aparecen con los valores correctos al salir del Valid del primer Get.
No se que metodo usar para que al salir del Valid del primer Get, el segundo se actualice correctamente.
Pense en un metodo Init, pero no existe.

Estoy trabajando con FiveWin 8.01 y xHarbour

Saludos desde Honduras

[Antonio Linares]

Usa oGet:VarPut( <valor> ), oGet:Refresh()

[Blessed]

Saludos Antonio:

De manera rara, al quitar la clausula PICTURE me trabaja y muestra los datos pero enteros necesitando 4 decimales, y menciono raro, ya que esta clausula la uso mucho y precisamente aqui no quiere funcionar, he aqui el codigo:

REDEFINE GET oCt_Get[3] VAR sn_Precio ID 822 OF oDlg_Prod UPDATE PICTURE "999,999.9999" ;
VALID Val_Precio( nVal, @nPorcent, oCt_Get ) ON CHANGE oCt_Get[2]:Disable()

Alguna sugerencia?

Saludos

[karinha]

PICTURE "@R 999,999.9999"

ó

PICTURE "@E 999,999.9999"

Intente ahora.

saludos.

[Blessed]

Gracias João :

Probe con ambas sugerencias, y al cambiar del primer get al segundo, sigue en blanco es decir 0.
Y es mas en el valid del primer Get coloque lo siguiente:

oCt_Get[3]:VarPut( sn_Precio )
oCt_Get[3]:Refresh()

Como sugirio Antonio Linares, y probe sin el picture y me aparece el get con el contenido.

Saludos

[mmercado]

Y es mas en el valid del primer Get coloque lo siguiente:
oCt_Get[3]:VarPut( sn_Precio )
oCt_Get[3]:Refresh()
Como sugirio Antonio Linares, y probe sin el picture y me aparece el get con el contenido

Prueba con oCt_Get[3]:cText( sn_Precio )

Si el problema estuviera en el valid, también podrías probar:
oCt_Get[3]:bGotFocus := {|o| o:cText( sn_Precio ) }

Saludos.

Manuel Mercado

[Blessed]

Gracias a todos:

Code: Select all  Expand view  RUN

oCt_Get[3]:VarPut( sn_Precio )
oCt_Get[3]:Refresh()


Con la sugerencia de maestro Antonio solucione el problema, por un error al estar en dos proyectos a la vez, se me fue una como de mas, y no tomaba en cuenta los cambios.
Gracias por su tiempo.

Una abrazo desde