Thanks friends, aparentemente, problema resolvido.
- Code: Select all Expand view
FUNCTION CHECA_EMAIL_ERRADO
( cEmailCliente
) LOCAL cContaUsuario, cNomeUsuario
LOCAL cRegEx :=
"^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$" LOCAL lIsValid := .F., cRet
LOCAL cEmailErro, cEmail
IF EMPTY
( cEmailCliente
) MsgInfo( OemToAnsi
( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi
( "EMAIL DO CLIENTE ESTµ VAZIO NO PLENO" )+CRLF+ ;
OemToAnsi
( "DIGITE O NOME DA CONTA DE EMAIL. " )+CRLF+ ;
OemToAnsi
( "<Comercial>:<Clientes>:<Alteracoes>." )+CRLF+ ;
OemToAnsi
( "Exemplo: kapiabafwh@gmail.com " ), ;
OemToAnsi
( "EMAIL(Conta) NÇO INFORMADO. CUIDADO!" ) ) lIsValid := .F.
ENDIF IF ( ALLTRIM
(LOWER
( cEmailCliente
) ) LIKE cRegEx
) lIsValid := .T.
ELSE IF AT( ";", ALLTRIM
( cEmailCliente
) ) >
0 cEmail := ALLTRIM
( cEmailCliente
) cEmailErro := HB_aTokens
( cEmail,
";" ) IF ( ALLTRIM
(LOWER
( cEmailErro
[1] ) ) LIKE cRegEx
) lIsValid := .T.
ELSE IF EMPTY
( cEmailCliente
) // NAO MOSTRAR MENSAGEM, JA MOSTROU ACIMA ELSE MsgInfo( OemToAnsi
( "ATEN€ÇO USUµRIO: 1" )+CRLF+ ;
OemToAnsi
( "DIGITE UM EMAIL VÇLIDO... " )+CRLF+ ;
OemToAnsi
( "ESTA CONTA DE EMAIL ESTµ ERRADA... " )+CRLF+ ;
OemToAnsi
( "Exemplo: kapiabafwh@gmail.com " )+CRLF+ ;
OemToAnsi
( "VOCÒ DIGITOU: " + ALLTRIM
( cEmailCliente
) ), ;
OemToAnsi
( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) ) ENDIF lIsValid := .F.
ENDIF IF ( ALLTRIM
(LOWER
( cEmailErro
[2] ) ) LIKE cRegEx
) lIsValid := .T.
ELSE IF EMPTY
( cEmailCliente
) // NAO MOSTRAR MENSAGEM, JA MOSTROU ACIMA ELSE MsgInfo( OemToAnsi
( "ATEN€ÇO USUµRIO: 2" )+CRLF+ ;
OemToAnsi
( "DIGITE UM EMAIL VÇLIDO... " )+CRLF+ ;
OemToAnsi
( "ESTA CONTA DE EMAIL ESTµ ERRADA... " )+CRLF+ ;
OemToAnsi
( "Exemplo: kapiabafwh@gmail.com " )+CRLF+ ;
OemToAnsi
( "VOCÒ DIGITOU: " + ALLTRIM
( cEmailCliente
) ), ;
OemToAnsi
( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) ) ENDIF lIsValid := .F.
ENDIF ELSE IF EMPTY
( cEmailCliente
) // NAO MOSTRAR MENSAGEM, JA MOSTROU ACIMA ELSE MsgInfo( OemToAnsi
( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi
( "DIGITE UM EMAIL VÇLIDO... " )+CRLF+ ;
OemToAnsi
( "ESTA CONTA DE EMAIL ESTµ ERRADA... " )+CRLF+ ;
OemToAnsi
( "Exemplo: kapiabafwh@gmail.com " )+CRLF+ ;
OemToAnsi
( "VOCÒ DIGITOU: " + ALLTRIM
( cEmailCliente
) ), ;
OemToAnsi
( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) ) ENDIF lIsValid := .F.
ENDIF ENDIFRETURN( lIsValid
)
Obg. abs.