FoxPro/Visual FoxPro - tomar foco de un textbox

Estimados/as, en el evento lostfocus de un textbox valido los datos ingresado y si los datos son incorrectos necesito volver a hacer foco sobre el control para ingresar los datos nuevamente.

Este es mi codigo y es dentro del if donde quiero validar.

***Evento lost focus del textbox

IF LEN(strtran((thisform.txtexpediente.Text)," ",""))<>14
MESSAGEBOX("Verifique en número de licencia","Validación",16)
thisform.txtexpediente.text.gotFocus ()
ENDIF


Gracias.

Deberias hacerlo en el valid y no el lostfocus, cuando se produce una entrada invalida debe devolver falso y cuando es correcto debe devolver true es decir:
*THISFORM.CONTROL.VALID()

IF VALIDACION==.T.
*// pierde el foco
RETURN .T.
ENDIF

*// no pierde el foco
RETURN .F.

Saludos

***EventoValid del textbox
IF LEN(strtran((thisform.txtexpediente.Text)," ",""))<>14
MESSAGEBOX("Verifique en número de licencia","Validación",16)
return .f.
ELSE
* Seguir validando, si existen mas inconsistencias RETURN .F.
ENDIF

Amigo,

El evento que se usa para lo que deseas es el VALID. El LostFocus, el Valid no aceptan el evento .setfocus.

Por lo tanto en el Valid del textbox debes poner los siguiente:

IF LEN(strtran((thisform.txtexpediente.Text)," ",""))<>14
MESSAGEBOX("Verifique en número de licencia","Validación",16)
Return 0
ENDIF

De esta forma no avanzará hasta que se cumpla con la condicion.

Saludos,

Victor - Panama -

tu lo puedes hacer con el evento valid pero en lostfocus tambien sirve solo debes agregar NODEFAULT asi:


IF LEN(strtran((thisform.txtexpediente.Text)," ",""))<>14
MESSAGEBOX("Verifique en número de licencia","Validación",16)
NODEFAULT
ENDIF

&&LISTO