Comprobar segundo email con erro

Comprobar segundo email con erro

Postby karinha » Wed Jun 21, 2017 8:29 pm

Buenas foro, como hago para verificar el segundo email con erro?

...... correcto errado necesito verificar
Code: Select all  Expand view


Gracias, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Comprobar segundo email con erro

Postby karinha » Thu Jun 22, 2017 7:20 pm

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

   ENDIF

RETURN( lIsValid )
 


Obg. abs.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 18 guests