topic-32611

Board index FiveWin para Harbour/xHarbour ACTIVA O DESACTIVAR COMBOBOX

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

ACTIVA O DESACTIVAR COMBOBOX
Posted: Mon Jun 20, 2016 09:57 PM

-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

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: ACTIVA O DESACTIVAR COMBOBOX
Posted: Mon Jun 20, 2016 10:49 PM

prueba esto:

Code (fw): Select all Collapse

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
//-------------------

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: ACTIVA O DESACTIVAR COMBOBOX
Posted: Mon Jun 20, 2016 10:58 PM

perfecto muchas gracias

saludos

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: ACTIVA O DESACTIVAR COMBOBOX
Posted: Wed Jun 22, 2016 02:22 PM

Hola,

prueba también

Code (fw): Select all Collapse

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

FiveTech Support Forums

Continue the discussion