Video 4044 - windev webdev Mobile - Validar Cpf

Video 4044 - windev webdev Mobile - Validar Cpf

Repositorio

https://repository.windev.com/resource.awp?file_id=281474976711932;windev-29-check-cpf

Video 4044 - windev webdev Mobile - Validar Cpf

00:00:00 Introducao

00:00:07 no Windev criar window para pedir o cpf 

00:00:22 Criando a procedure e codigo valida cpf 

00:02:39 Voltando a window digita cpf e chamar a procedure 

00:03:48 Executando e testando cpf 

00:04:02 fazer cpf dentro do windev mobile 

00:05:35 fazer cpf dentro do webdev 

00:07:02 Propaganda wxsolucoes

00:07:24 Progranda Erpmatos 

00:07:33 Representantes erpmatos 

00:07:36 Video encerramento 

=======================================================

validar_cpf(pCpf is string)

_CPF is string

_Peso is 2-byte unsigned int

_Resto is 1-byte int

_Digito is 1-byte int

FOR i=1 _TO_ Length(pCpf)

IF 47 < Asc(pCpf[[i]]) < 58 THEN 

_CPF+=pCpf[[i]]

END

END

IF Length(_CPF) <> 11 THEN RESULT False

FOR i=1 TO 10

_Peso = _Peso + (Asc(_CPF[[1 TO 10]][[i]]) -48)  * (10-i+2)

END

_Resto = modulo(_Peso,11)

IF _Resto < 2 THEN 

_Digito = 0 

ELSE 

_Digito = 11 - _Resto

END

IF Val(_CPF[[11]]) <> _Digito THEN

RESULT False 

ELSE 

RESULT True

END

====================================

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

Matos Função - Cpf Validar

VIDEO - PROCEDURE CPF PARA VALIDAR

Aqui vou mostrar com fazer uma rotina/procedure para validar um cpf
e usar isso em outros programas apenas chamando a funcao

------------------------------------------------------------------------------------------------------------------
IF matos_f_cpf_validar(EDT_Id_inscricao_cnpj_cpf)=0 THEN
            Info("Cpf Invalido")
            SetFocus(EDT_Id_inscricao_cnpj_cpf)
        ELSE
            SetFocus(EDT_CAD_Id_razao_social_nome)
        END 

------------------------------------------------------------------------------------------------------------------
PROCEDURE matos_f_cpf_validar(pCPF is string)
_CPF    is string
_Peso     is 2-byte unsigned int
_Resto     is 1-byte int
_Digito is 1-byte int
FOR i=1 _TO_ Length(pCPF)
    IF 47 < Asc(pCPF[[i]]) < 58 THEN
        _CPF+=pCPF[[i]]
    END
END
IF Length(_CPF) <> 11 THEN RESULT False
FOR i=1 TO 10
    _Peso = _Peso + (Asc(_CPF[[1 TO 10]][[i]]) -48)  * (10-i+2)
END
_Resto = modulo(_Peso,11)
IF _Resto < 2 THEN
    _Digito = 0
ELSE
    _Digito = 11 - _Resto
END
//Trace(pCPF)   // Trace Para Conferencia
//Trace("Val(tmpCPF[[11]])["+_CPF[[11]]+"]")
//Trace("tmpDigito9["+_Digito+"]")
IF Val(_CPF[[11]]) <> _Digito THEN
    RESULT False
ELSE
    RESULT True
END

 ------------------------------------------------------------------------------------------------------------------