Valida��o de CNPJ com PLSQL

28/04/2019

Boa Noite, tenho que solucionar um exerc�cio de PL/SQL ,onde devo encontrar um algor�timo/c�digo para poder analisar um CNPJ ,que sera informado pelo usu�rio,o SQL Developer deve realizar o c�lculo para pegar os d�gitos validadores desse CNPJ, e por fim analisar se ele � v�lido ou inv�lido e no console apresentar o texto : Valido ou inv�lido dependendo do resultado obtido com o calculo!

Nesse exerc�cio sera aberta uma "tela" que vai pedir pro usu�rio digitar o numero do CNPJ,esse CNPJ sera capturado e analisado atrav�s de um calculo de valida��o de CNPJ (ira analisar os d�gitos verificadores) e com o resultado ele ira informar ao usu�rio se o numero � VALIDO ou INVALIDO!

Enunciado :

CRIE UM BLOCO AN�NIMO PL/SQL ORACLE QUE IR� SOLICITAR PARA O USU�RIO O N�MERO DO: CNPJ - BLOCO AN�NIMO-D�GITO VERIFICADOR

Eu rodei o c�digo abaixo o SQL informou que a fun��o foi compilada,por�m n�o aparece a mensagem dizendo se o numero informado � v�lido ou inv�lido...Ser� que poderiam me ajudar ?

set serveroutput on

ACCEPT CNPJ PROMPT 'Digite o numero do CNPJ'
CREATE OR REPLACE FUNCTION CNPJ
      (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;
     
     
    IF CNPJ(14) = TRUE
  THEN 
      DBMS_OUTPUT.PUT_LINE('VERDADEIRO');
  ELSE 
     
      DBMS_OUTPUT.PUT_LINE('FALSO');
  END IF;

END;
/

Carolina Medeiros

Curtir t�pico + 0

Responder