FiveTech Support Forums

Buenas Tardes
Estimado amigos del foro

Estoy tratando de que mediante un on change de un get que es un valor numero , me actualice un dbcombo y no lo he conseguido si alguien me puede ayudar gracias de antemano.

adjjunto el codigo

REDEFINE GET ocl_dias VAR ccl_dias ID 4 OF oDlg UPDATE PICTURE "999" WHEN left(ccl_cod,5) <> '88888' ;
ON CHANGE (if(ccl_dias > 0,cca_tarje:='CR',cca_tarje ='EF'),oCbx4:refresh(),oDlg:refresh())
ocl_dias:bGotFocus = { || ocl_dias:setcolor(nRGB(0,0,0),nRGB( 231,226,141)) }
ocl_dias:bLostFocus = { || ocl_dias:setcolor(0, CLR_WHITE ) }

REDEFINE DBCOMBO oCbx4 VAR cca_tarje ID 101 OF oDlg ;
ALIAS "ttarje" ;
ITEMFIELD "ttcod" ;
LISTFIELD "ttdsc"

Antonio,

Gracias por la respuesta pero no funciono, sigo buscado la manera
si alguien sabe como por favor deme una mano

Gracias

Saludos Easysoft

el proble que tienes es que cuando se ejecuta el ON CHANGE la variable aun no tiene el valor asignado, ese valor esta dentro de un buffer, puedes solventarlo de 2 formas... obligas al GET a que la variable asuma el valor en el ON CHANGE o usas el buffer del objetto GET dentro de la clase... para mejor esplicacion un ejemplo

metodo 1...
REDEFINE GET ocl_dias VAR ccl_dias ID 4 OF oDlg UPDATE PICTURE "999" WHEN left(ccl_cod,5) <> '88888' ;
ON CHANGE ( ::Assign(), if(ccl_dias > 0,cca_tarje:='CR',cca_tarje ='EF'),oCbx4:refresh(),oDlg:refresh())

metodo 2...
REDEFINE GET ocl_dias VAR ccl_dias ID 4 OF oDlg UPDATE PICTURE "999" WHEN left(ccl_cod,5) <> '88888' ;
ON CHANGE ( if(::oGet:Buffer > 0,cca_tarje:='CR',cca_tarje ='EF'),oCbx4:refresh(),oDlg:refresh())