...... correcto errado necesito verificar
- Code: Select all Expand view
Gracias, saludos.
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
ENDIF
RETURN( lIsValid )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 9 guests