FoxPro/Visual FoxPro - ¿COMO EVITAR QUE APAREZCA UN MSG EN EL LOTFOCUS?

   
Vista:

¿COMO EVITAR QUE APAREZCA UN MSG EN EL LOTFOCUS?

Publicado por HELDER MARTINEZ (Coundy) (710 intervenciones) el 03/10/2008 22:12:16
HOLA AMIGOS DE LA LWP

ESTOY CREANDO UN FORM DE MODIFICACION DE CLAVES DE USUARIO.

ESCRIBO ESTE CODIGO EN EL EVENTO LOSTFOCUS DE UN TXT,

PUBLIC cClave
cClave= ALLTRIM(thisform.txtClave.Value)

thisform.revela_clave
SELECT usuarios
IF ALLTRIM(cClave) == ALLTRIM(cRevela_clave)
thisform.txtClave_nueva.SetFocus
ELSE
m=MESSAGEBOX("Usuario no encontrado", 0+16, "Datos incorrectos")
thisform.txtClave.SetFocus
ENDIF

CUANDO LE DOY CLIC EN OTRA PARTE, ALGUNAS VECES ME LANZA UN MSG DE LA CONDION "Usuario no encontrado",

COMO HAGO PARA EVITAR ESTO, EN QUE METODO PODRE HACERLO MEJOR, O ALGUNA FORMA PARA HACERLO ASI MISMO, PERO QUE NO LANZE LO MISMO?

SALUDES Y 1000 GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿COMO EVITAR QUE APAREZCA UN MSG EN EL LOTFOCUS

Publicado por enrique (1041 intervenciones) el 03/10/2008 23:54:55
Prueba lo siguiente

en el Init del Form pon una variable publica ejemplo

vEntro= .f.

luego en el GostFocus del TXT

vEntro=.t.

luego en el LostFocus del TXT

PUBLIC cClave
cClave= ALLTRIM(thisform.txtClave.Value)

thisform.revela_clave
SELECT usuarios
IF ALLTRIM(cClave) == ALLTRIM(cRevela_clave)
thisform.txtClave_nueva.SetFocus
ELSE
if vEntro
m=MESSAGEBOX("Usuario no encontrado", 0+16, "Datos incorrectos")
endif
thisform.txtClave.SetFocus
ENDIF


Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿COMO EVITAR QUE APAREZCA UN MSG EN EL LOTFOCUS

Publicado por HELDER MARTINEZ (710 intervenciones) el 04/10/2008 00:21:46
muchas gracias Enrique, voy a probar luego te aviso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿COMO EVITAR QUE APAREZCA UN MSG - NO FUNCIONO

Publicado por HELDER MARTINEZ (710 intervenciones) el 04/10/2008 00:25:53
No funciona aun.

Saludes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

¿COMO EVITAR QUE APAREZCA UN MSG EN EL LOTFOCUS?

Publicado por Mauricio (1367 intervenciones) el 04/10/2008 03:29:28
Helder, haz parte de tu codigo en el evento VALID.
Es una sugerencia nada mas!!!!!!!!!!!!!!
Saludos amigo!!!!!!!!!1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿COMO EVITAR QUE APAREZCA UN MSG EN EL LOTFOCUS

Publicado por HELDER MARTINEZ (710 intervenciones) el 04/10/2008 18:42:05
GRACIAS AMIGOS, EVITE PONER EL MSG MEJOR, PARA QUE NO ME LANZE EL MSG.

SALUDES
GRACIAS A TODOS!!!!!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Helder revisa esto...

Publicado por neo (1601 intervenciones) el 05/10/2008 01:02:53
Yo siempre cuando escribo un codigo en el Valid u otro Evento...siempre antes de cualquier cosa escribo un Empty() para que si el usuario decide no escribir nada, no se ejecute algun codigo..

Ejemplo:

If empty(Thisform.txtClave.value)
else

PUBLIC cClave
cClave= ALLTRIM(thisform.txtClave.Value)


thisform.revela_clave
SELECT usuarios
IF ALLTRIM(cClave) == ALLTRIM(cRevela_clave)
thisform.txtClave_nueva.SetFocus
ELSE
m=MESSAGEBOX("Usuario no encontrado", 0+16, "Datos incorrectos")
thisform.txtClave.SetFocus
ENDIF
endif


Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar