ACTIVA O DESACTIVAR COMBOBOX

[jbrita]

-amigos como puedo hacer Activar combobox según el valor de otro combobox
tengo esto:
lValue := .F.


REDEFINE COMBOBOX aGets[13] VAR oDetCosto ITEMS aCosto ID 103 OF oDlg UPDATE ON CHANGE ActivaGet(aGets,oDetCosto)
REDEFINE COMBOBOX aGets[14] VAR oPatente ITEMS aBus ID 104 OF oDlg WHEN lValue UPDATE


STATIC FUNCTION ActivaGet(aGets,oDetCosto)
*-----------------------------------------
If allTrim(oDetCosto)=="PETROLEO"
lValue:=.T.
Else
lValue:=.F.
Endif
aGets[14]:oJump:=aGets[13]

aGets[13]:Refresh()
aGets[14]:Refresh()

RETURN .T.

Pero no me funciona
algun ayudita

[armando.lagunas]

prueba esto:

Code: Select all  Expand view

aGet[13]:bChange := {|| IF( ActivaGet(oDetCosto), oGet[14]:Enable(), oGet[14]:Disable() ) }

STATIC FUNCTION ActivaGet(oDetCosto)
//------------------
If allTrim(oDetCosto)=="PETROLEO"
lValue:=.T.
Else
lValue:=.F.
Endif

RETURN lValue
//-------------------

 

[jbrita]

perfecto muchas gracias

saludos

[Marcelo Via Giglio]

Hola,

prueba también

Code: Select all  Expand view

REDEFINE COMBOBOX aGets[13] VAR oDetCosto ITEMS aCosto ID 103 OF oDlg UPDATE ON CHANGE oDlg:aEvalWhen()
REDEFINE COMBOBOX aGets[14] VAR oPatente ITEMS aBus ID 104 OF oDlg WHEN  allTrim(oDetCosto)=="PETROLEO" UPDATE
 

saludos

Marcelo