Windev21 Aulas,Estudos e Desenvolvimento: AULA 1279 WINDEV EMAIL 5 TRANSFORMA LINHAS EM PROCEDURE

terça-feira, 31 de outubro de 2017

AULA 1279 WINDEV EMAIL 5 TRANSFORMA LINHAS EM PROCEDURE

VIDEO NO YOUTUBE SOBRE PROCEDURE

// EXIT FROM EDT_EMAIL
// VOU CHAMAR A ROTINA QUE CRIEI DE VERIFICAR EMAIL
// ANTES VOU CRIAR UMA VARIAVEL RETORNO
bRETORNO_EMAIL is boolean=verifica_email_Cadastros(EDT_Email)
// AGORA VOU VERIFICAR SE EMAIL É VERDADEIRO
IF bRETORNO_EMAIL=True THEN
// VERDADEIRO
ELSE
ReturnToCapture(EDT_Email)
END

PROCEDURE verifica_email_Cadastros(sRecebe_email)
// AQUI NA PROCEDURE VOU ARRUMAR NAO VOU DIZER QUE TIPO DE VARIAVEL É
// VOU CRIAR UMA VARIAVEL DE RETORNO BOOLEAN
RETORNO_EMAIL is boolean=False
// EU COPIEI E COLEI
// AGORA VOU CRIAR UM PARAMETRO PARA RECEBER O EMAIL
EmailCheckAddress(sRecebe_email,emailValidateSyntax)
SWITCH EmailCheckAddress(sRecebe_email)
CASE emailAddressValid
// SE FOR VERDADEIRO VOU COLOCAR COMO RETORNO EMAIL IGUAL VERDADEIRO
RETORNO_EMAIL=True
CASE emailAddressIncorrectSyntax
Info("A sintaxe do endereço está incorreta")
CASE emailAddressRefused
Info("O endereço foi recusado pelo servidor de e-mail."+CR+ErrorInfo())
CASE emailAddressError
Info("Ocorreu um erro durante a checagem "+CR+ErrorInfo())
OTHER CASE
Info("Caso indefinido")
END
// VOU MANDAR O RETORNO COM RESULT
RESULT RETORNO_EMAIL