Activar/descativar ON CHANGE en tiempo de ejecucion

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Activar/descativar ON CHANGE en tiempo de ejecucion
Posted: Mon Sep 28, 2009 09:53 PM

Compañeros:

Tengo la clausula ON CHANGE en un GET pero necesito activarlo o desactivarlo en tiempo de ejecución en función del valor que tome un radiobutton.

Tengo el siguiente código

Code (fw): Select all Collapse

 
  redefine get     otexto var texto id 4004 of obuscar on change ( CONTEUDO( otexto, nKey, obuscar, olistbox, texto ) )
  otexto:bkeydown := {|nKey| iif(nKey==13, msginfo('buscando...'),) }
  redefine radio   oradio var opcion id 4011,4014,4012 of obuscar on change (tex:='Teclee el '+iif(opcion=1,'nombre del USUARIO',iif(opcion=2,'CÓDIGO @PLICA','nombre del PROYECTO'))+iif(opcion=1 .or. opcion=3,'. No es necesario teclear todo el nombre completo.',''),osay:refresh(),otexto:setfocus())

¿ Como sería ?

Con gracias anticipadas, saluda
LORENZO

RenOmaS

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

Re: Activar/descativar ON CHANGE en tiempo de ejecucion
Posted: Mon Sep 28, 2009 10:34 PM

Podria ser

Code (fw): Select all Collapse

Local bChange[ 1 ] := { || CONTEUDO( otexto, nKey, obuscar, olistbox, texto ) }
Local bChange[ 2 ] := { || Otrafun() }
Local bChange[ 3 ] := { || Nil }
....
redefine get     otexto var texto id 4004 of obuscar
     oTexto:bChange := bChange[ 1 ]

  otexto:bkeydown := {|nKey| iif(nKey==13, msginfo('buscando...'),) }
  redefine radio   oradio var opcion id 4011,4014,4012 of obuscar ;
                         on change ( oGet:bChange := bChange[ nOpcion ] )

Saludos/regards

RenOmaS

skype: americo.balboa

FiveTech Support Forums

Continue the discussion