Eu tenho uma função de validação em um controle TEXTBOX que valida se o usuário pressionou ENTER ele verifica se o conteúdo é em branco se for vazio o conteúdo mostra uma mensagem para o usuário digitar novamente.
Mas isto não está acontecendo, pois ele não permanece no foco no TEXTBOX correspondente, ele está indo para o próximo TEXTBOX. O que pode ser isto?
DEFINE TEXTBOX Text_1
ROW 25
COL 7
WIDTH 132
HEIGHT 20
FONTNAME "Arial"
FONTSIZE 10
FONTBOLD .T.
ON ENTER {|| IF( ValidaCampo( This.Value) = .F. , Form_1.Texbox_1.SetFocus , Form_1.Textbox_2.SetFocus ) }
END TEXTBOX
FUNCTION ValidaCampo( cCampo )
LOCAL lRet
IF EMPTY( cCampo )
MSGBOX("Campo não pode ser em branco !")
lRet := .F.
ELSE
lRet := .T.
ENDIF
RETURN ( lRet )
Abraços,
Paulo - JacareÃ/SP