Muy buenas tardes.
Tengo un problema de validacion de 2 Get.
La Funcion Valida_usu() del Boton 604, debe validar que el Usuario y la Clave esten correcta, cuando existe error, las variables Cod_usu1, Cla_usu1, toman valor 1, cuando esta correcta, de lo contrario, devolvera valor 0.
Necesito que cuando Exista Error, muestre el Mensaje, de lo contrario, Cierre y deje el Dialog.
Asi como esta, se mantiene en los GETS, pidiendo datos.
Muchas gracias por su ayuda.
Atte. Antonio
Code: Select all
REDEFINE Get oCod_usu1 Var Cod_usu1 Id 110 Of oDlg Update Picture "@!" COLORS RGB( 9, 43, 47);
Valid (!empty(Cod_usu1))
REDEFINE Get oCla_usu1 Var Cla_usu1 Id 120 Of oDlg Update Picture "@!" COLORS RGB( 9, 43, 47);
Valid (!empty(Cla_usu1))
REDEFINE Button Id 605 Of oDlg Border ;
ACTION (Ing_1:=0,Ing_2:=0,oDlg:End()) // Boton Salida
REDEFINE Button Id 604 Of oDlg ;
ACTION (Valida_usu(Cod_usu1,Cla_usu1),IF((Ing_1=0.or.Ing_2=0),(MsgStop(Mensa),.F.),.T.)) // Aqui Boton Acepta