Procedure

Inicial - Banco de Códigos

Procedure / Função Valida PF/CGC

Data de Inclusão: 02/09/2006 | Última Alteração: 02/09/2006
Tipo:Procedure | Enviada por: Moderador Oracle_br (moderador@oraclebr.com.br)

/*
Arquivo: CPF_CGC.sql
Funcao de calculo do C.P.F.
*/

create or replace function cpf
(p_cpf IN CHAR)
RETURN BOOLEAN
IS
m_total NUMBER := 0;
m_digito NUMBER := 0;
BEGIN
FOR i IN 1..9 LOOP
m_total := m_total + substr(p_cpf,i,1) * (11 - i);
END LOOP;

m_digito := 11 - mod(m_total,11);

IF m_digito > 9 THEN
m_digito := 0;
END IF;

IF m_digito != substr(p_cpf,10,1) THEN
RETURN FALSE;
END IF;

m_digito := 0;
m_total := 0;

FOR i IN 1..10 LOOP
m_total := m_total + substr(p_cpf,i,1) * (12 - i);
END LOOP;

m_digito := 11 - mod(m_total,11);

IF m_digito > 9 THEN
m_digito := 0;
END IF;

IF m_digito != substr(p_cpf,11,1) THEN
RETURN FALSE;
END IF;

RETURN TRUE;

end;
/

/*
Calculo do C.G.C.
*/

create or replace function cgc
(p_cgc IN CHAR)
RETURN BOOLEAN
IS
m_total NUMBER := 0;
m_digito NUMBER := 0;
BEGIN
FOR i IN 1..4 LOOP
m_total := m_total + substr(p_cgc,i,1) * (6 - i);
END LOOP;

FOR i IN 5..12 LOOP
m_total := m_total + substr(p_cgc,i,1) * (14 - i);
END LOOP;

m_digito := 11 - mod(m_total,11);

IF m_digito > 9 THEN
m_digito := 0;
END IF;

IF m_digito != substr(p_cgc,13,1) THEN
RETURN FALSE;
END IF;

m_digito := 0;
m_total := 0;

FOR i IN 1..5 LOOP
m_total := m_total + substr(p_cgc,i,1) * (7 - i);
END LOOP;

FOR i IN 6..13 LOOP
m_total := m_total + substr(p_cgc,i,1) * (15 - i);
END LOOP;

m_digito := 11 - mod(m_total,11);

IF m_digito > 9 THEN
m_digito := 0;
END IF;

IF m_digito != substr(p_cgc,14,1) THEN
RETURN FALSE;
END IF;

RETURN TRUE;
end;
/
create or replace procedure chama(NUM in NUMBER) is
begin
if cgc(num) then
raise_application_error(-20001,'CGC valido ! ');
else
raise_application_error(-20001,'CGC invalido ! ');
end if;
end;
/