Função que valida CPF. Por : Douglas Freire "MADMAX"

FUNCTION val_cpf(CPF  VARCHAR2 ) RETURN VARCHAR2 IS    cpf_c                number      := lpad(cpf,11,'0');     tam                   number(2):= length(substr(cpf,-2,2));     tot1                  number(4) := 0;     tot2                  number(4) := 0;     multiplicador number(2) := 9;     digito               number(1) := 0;     resto1             number(2) := 0;     resto2             number(2) := 0;     dc1_cpf          number(1) := 0;     dc2_cpf          number(1) := 0;     digito_dig      char(2)        := substr(cpf,-2,2);     cpf_x              number      := substr(lpad(to_char(cpf_c),11,'0'),1,9);     tamanho           number(2) := length(to_char(cpf_x));     dc_cpf                  char(2); BEGIN       for i in reverse 1..tamanho loop         tot1 := tot1 + multiplicador *                     (substr(to_char(cpf_x),i,1));                      multiplicador  := multiplicador - 1;       end loop;       resto1 := mod(tot1,11);       if resto1 = 10 then         dc1_cpf := 0;       else         dc1_cpf := resto1;       end if;       digito := dc1_cpf;       tot2    := tot2 + 9 * digito;       multiplicador := 8;       for i in reverse 1..tamanho loop         tot2 := tot2 + multiplicador *                     (substr(to_char(cpf_x),i,1));         multiplicador := multiplicador - 1;       end loop;       resto2 := mod(tot2,11);       if resto2 = 10 then         dc2_cpf := 0;       else         dc2_cpf := resto2;       end if;       dc_cpf := to_char(dc1_cpf) || to_char(dc2_cpf);       if dc_cpf = digito_dig then          return 'TRUE';       else          return 'FALSE';       end if; END val_cpf; DOUGLAS FREIRE  - "MADMAX"

Quebra-Linha

Colaborador..: Douglas Freire
Categoria(s).: Oracle;
Versão.......: 8,8i,9i
Data.........: 10/09/2004 11:39:09
Visualizado..: 1470 vezes
Fonte........: DOUGLAS FREIRE - "MADMAX"