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

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