FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda Con la clase TGet (Solucionado)
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM
Ayuda Con la clase TGet (Solucionado)
Posted: Sat May 10, 2008 08:42 PM

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 :)

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Ayuda Con la clase TGet (Solucionado)
Posted: Sat May 10, 2008 09:33 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM
Ayuda Con la clase TGet (Solucionado)
Posted: Mon May 12, 2008 03:47 PM
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 :-)
Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Ayuda Con la clase TGet (Solucionado)
Posted: Mon May 12, 2008 04:23 PM

PICTURE "@R 999,999.9999"

ó

PICTURE "@E 999,999.9999"

Intente ahora.

saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM
Ayuda Con la clase TGet (Solucionado)
Posted: Mon May 12, 2008 04:29 PM

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

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Ayuda Con la clase TGet (Solucionado)
Posted: Mon May 12, 2008 07:08 PM
Blessed wrote: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
manuelmercado at prodigy dot net dot mx
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM
Solucionado
Posted: Mon May 12, 2008 07:50 PM
Gracias a todos:

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 :-)
Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Continue the discussion