Hola.
Necesito que el usuario al querer MARCAR un checkbox solo pueda hacerlo si antes se comprobo que los datos se hallan ingresado,
intent茅 asi pero la marca queda...
DEFINE DIALOG oDlg resource "DLGLOGUEO"
REDEFINE checkbox oGets[3] VAR ::vGets[3] ID 102 OF oDlg
oGets[3]:bchange:={ || iif(!Comprobado(), (::vGets[3]:=.F., oGets[3]:refresh()), msginfo("se comprob贸")) }
ACTIVATE DIALOG oDlg CENTERED
gracias.
DEFINE DIALOG oDlg resource "DLGLOGUEO"
REDEFINE checkbox oGets[3] VAR ::vGets[3] ID 102 OF oDlg WHEN Comprobado()
ACTIVATE DIALOG oDlg CENTERED 聽 oGets[3]:bWhen:= {|| ::habilitarCambio(oDlg)}
聽 聽ACTIVATE DIALOG oDlg CENTERED ON INIT (oGets[4]:disable())
聽 聽RETURN (lValue)
//------------------------------------------------------------------------------
METHOD habilitarCambio(oDlg) CLASS TLogueo
聽 聽IF (Empty(AllTrim(::vGets[1])) .or. Empty(AllTrim(::vGets[2])))
聽 聽 聽 MsgStop("No se ingreso usuario y/o contrase帽a.", ".:Atenci贸n:.")
聽 聽 聽 ::vGets[3]:= .F.
聽 聽 聽 oDlg:AEvalWhen()
聽 聽ENDIF
聽 聽RETURN (nil)
LOCAL oThis := // aca debes poner la variable que contiene al objeto TLogueo
...
oGets[3]:bWhen:= {|| oThis:habilitarCambio(oDlg)}
...
METHOD habilitarCambio(oDlg) CLASS TLogueo
IF (Empty(AllTrim(::vGets[1])) .or. Empty(AllTrim(::vGets[2])))
MsgStop("No se ingreso usuario y/o contrase帽a.", ".:Atenci贸n:.")
::vGets[3]:= .F.
oDlg:AEvalWhen()
ENDIF
RETURN (nil)Hola. Podr铆as deshabilitar el check y que se habilite solo cuando todos los gets que te interesen est茅n con datos.
