quarta-feira, 26 de agosto de 2015

WebDev_Curso_017_Cpf_Validar_Ajax








Video - WebDev_Curso_017_Cpf_Validar_Ajax


















//Clicar em Ajax na Procedure

IF AJAXExecute(cpf_Valida,MySelf) = True THEN
    ToastDisplay("Cpf Válido")
ELSE
    ToastDisplay("Cpf Inválido")
END



PROCEDURE cpf_Valida(paramCpf)
cpf is string = paramCpf
cpf = Replace(cpf,".","")
cpf = Replace(cpf,"-","")
//exemplode de cpf valido 81776736885
// Caso coloque todos os numeros iguais
SWITCH cpf
    CASE "00000000000"
        cpf = ""
        RESULT(False)  
    CASE "11111111111"
        cpf = ""
        RESULT(False)  
    CASE "2222222222"
        cpf = ""
        RESULT(False)  
    CASE "33333333333"
        cpf = ""
        RESULT(False)  
    CASE "44444444444"
        cpf = ""
        RESULT(False)  
    CASE "55555555555"
        cpf = ""
        RESULT(False)  
    CASE "66666666666"
        cpf = ""
        RESULT(False)  
    CASE "77777777777"
        cpf = ""
        RESULT(False)  
    CASE "88888888888"
        cpf = ""
        RESULT(False)  
    CASE "99999999999"
        cpf = ""
        RESULT(False)  
END

// calcula o primeiro digito
Soma   is int
Resto  is int
Digito_1, Digito_2 is int

Soma = (Val(Middle(cpf,1,1)) * 10) + ...
(Val(Middle(cpf,2,1)) * 09) + ...
(Val(Middle(cpf,3,1)) * 08) + ...
(Val(Middle(cpf,4,1)) * 07) + ...
(Val(Middle(cpf,5,1)) * 06) + ...
(Val(Middle(cpf,6,1)) * 05) + ...
(Val(Middle(cpf,7,1)) * 04) + ...
(Val(Middle(cpf,8,1)) * 03) + ...
(Val(Middle(cpf,9,1)) * 02)

Resto = modulo(Soma, 11)

IF   Resto = 0 OR Resto = 1 THEN
    Digito_1 = 0
ELSE
    Digito_1 = 11 - Resto
END

// calculoa o segundo dígito
Soma =  (Val(Middle(cpf,01,1))  * 11) + ...
(Val(Middle(cpf,02,1))  * 10) + ...
(Val(Middle(cpf,03,1))  * 09) + ...
(Val(Middle(cpf,04,1))  * 08) + ...
(Val(Middle(cpf,05,1))  * 07) + ...
(Val(Middle(cpf,06,1))  * 06) + ...
(Val(Middle(cpf,07,1))  * 05) + ...
(Val(Middle(cpf,08,1))  * 04) + ...
(Val(Middle(cpf,09,1))  * 03) + ...
(Val(Middle(cpf,10,1))  * 02)

Resto = modulo(Soma, 11)

IF   Resto = 0 OR Resto = 1 THEN
    Digito_2 = 0
ELSE
    Digito_2 = 11 - Resto
END

Resultado is string

Resultado = NumToString(Digito_1) + NumToString(Digito_2)

//info(Val(Middle(cpf,10,2)) , Resultado)
//999.999.999-99

IF Val(Middle(cpf,10,2)) = Resultado THEN
    RESULT(True)
ELSE
    RESULT(False)  
END


Blog - Webdev - Curso 1/... Primeira Pagina
Blog - Webdev - Curso 2/... Edit Mostrar
Blog - Webdev - Curso 3/... Template
Blog - Webdev - Curso 4/... Pagina Chama / Imagen
Blog - Webdev - Curso 5/... Menu
Blog - Webdev - Curso 6/... Palete Skin
Blog - Webdev - Curso 7/... - Colocar Analise
Blog - Webdev - Curso 8/... Rad - Cadastro Tecnico
Blog - Webdev - Curso 9/... - Menu Chamando Sistema 
Blog - Webdev - Curso 10/... - Tabela com Query 
Blog - Webdev - Curso 11/... - Inclui Altera Exclui Sistema
Blog - Webdev - Curso 12 /.. - Relatorio Como Gerar
Blog - Webdev - Curso 13/... - Rad Cliente Atendimento Combox 
Blog - Webdev - Curso 14/... Agenda Incluir Fotos / Imagens
Blog - Webdev - Curso 15/... - Jquery - Baixar Site /Instalar
Blog - Webdev - Curso 16/... - Jquery - Webdev Configurar Telefone
Blog - Webdev - Curso 17/.. - Ajax - Cpf Validar
Blog - Webdev - Curso 18/... Jquery Enter nos Campos
Blog - Webdev - Curso 19/... - Graficos
Blog - Webdev - Curso 20/... - Timer

Teste

Teste
teste