Page 1 of 1
Como saber si un control cambio.. updated()
Posted: Sun Oct 23, 2016 11:02 pm
by Adolfo
Hola fivewinners
Para una aplicacion debo saber si alguno de los controles cambio de su valor inicial, sea Get, checkbox, combobox.
Donde le puedo hechar una mirada, es para informar al usuario que no grabo las modificaciones hechas... ya sea con una alerta visual, mensajes, msgyesno(), aun no decido como, mi primer paso es averiguar que hay un control que cambio.
Cualquier consejo sera bienvenido.
Gracias de antemano.
Desde Chile
Adolfo
Re: Como saber si un control cambio.. updated()
Posted: Mon Oct 24, 2016 7:38 am
by Antonio Linares
Adolfo,
Declaramos un array en donde se guardarán los valores iniciales:
local aInitValues := {}
y antes de llamar a ACTIVATE DIALOG, hacemos:
AEval( oDlg:aControls, { | oCtrl | AAdd( aInitValues, If( oCtrl:bSetGet != nil, Eval( oCtrl:bSetGet ), nil ) ) } )
Para comprobar si han habido cambios hacemos:
AEval( oDlg:aControls, { | oCtrl, n | If( oCtrl:bSetGet != nil .and. Eval( oCtrl:bSetGet ) != aInitValues[ n ], MsgInfo( "cambio" ),) } )
Re: Como saber si un control cambio.. updated()
Posted: Mon Oct 24, 2016 7:44 am
by Antonio Linares
Usando AScan() buscamos el primer control que sea distinto:
AScan( oDlg:aControls, { | oCtrl, n | oCtrl:bSetGet != nil .and. Eval( oCtrl:bSetGet ) != aInitValues[ n ] } ) != 0
un valor .T. significa que han habido cambios
Re: Como saber si un control cambio.. updated()
Posted: Mon Oct 24, 2016 11:43 am
by Adolfo
Gracias Master...
Probamos y comento como me fue..
Saludos desde Chile
Adolfo
Re: Como saber si un control cambio.. updated()
Posted: Mon Oct 24, 2016 12:41 pm
by Adolfo
Antonio...
En las pruebas que realice, funciono sin problemas..
Me falta probar en dialogos con folder.
Mi pregunta ahora es, podrá ponerse una DATA en la Clase tDialog, que asuma el valor de si cambio o no algún control, como para ser automático
...algo así como 'lChanged'
Saludos y gracias nuevamente