Cursor com exception

[julianaf024]

Por favor me falem onde estou errando.

Faça uma Função chamada fun_total_duplicata_RMnnnnn, para que faça uma totalização das duplicatas a partir do parametro do numero da nota fiscal. Crie os tratamentos de exceptions necessários. Cuidado não use
RAISE_APPLICATION_ERROR.

Selecionar tudo

CREATE OR REPLACE FUNCTION FUN_TOTAL_DUPLICATA_RM63016
(P_NR_NOTA IN LOC_DULICATA.NR_NOTA%TYPE) RETURN NUMBER IS

       CURSOR CUR IS
          SELECT  COUNT (*) TOTAL
            FROM LOC_DUPLICATA
              WHERE NR_NOTA = P_NR_NOTA;
                   
          V_RETURN NUMBER := 0;
BEGIN
FOR V_TOTAL IN C_TOTAL LOOP
V_RETURN := V_TOTAL.TOTAL;
END LOOP;
RETURN V_RETURN;
EXCEPTION
   WHEN NO_DATA_FOUND THEN 
      DBMS_OUTPUT.PUT_LINE('ERRO NO_DATA_FOUND ');
   WHEN TOO_MANY_ROWS THEN 
      DBMS_OUTPUT.PUT_LINE('ERRO TOO_MANY_ROWS ');
   WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('ERRO OTHERS ');
END;

[victorhugomuniz]

qual e o erro?

n entendi porque você precisa de cursor neste caso.. todo via segue um exemplo para você ter por base

Selecionar tudo

DECLARE 
    /* DECLARANDO O CURSOR DE PRODUTOS */
    CURSOR C_PRODUTOS IS 
        SELECT * FROM TB_PRODUTOS;
        
    /* DECLARANDO UMA VARIAVEL QUE SERA O REGISTRO DA TABELA */
    REG_PRODUTO C_PRODUTOS%ROWTYPE;
    
BEGIN
    /* ABRE CURSOR */
    OPEN C_PRODUTOS
    
    LOOP
        /* LÊ UM REGISTRO DO CURSOR */
        FETCH C_PRODUTOS INTO REG_PRODUTO;
        
        /* ABANDONA O LOOP CASO SEJA O FINAL DO CURSOR */
        EXIT WHEN C_PRODUTOS%NOTFOUND;
        
        /* 
        AQUI SERA INSERIDO O CODIGO QUE IRA MANIPULAR OS DADOS COMO: 
            - INSERIR EM OUTRA TABELA, 
            - FAZER ALGUM CALCULO, 
            - ETC. 
        */
    
    END LOOP;
    
    /* FECHA O CURSOR */
    CLOSE C_PRODUTOS
END;

[julianaf024]

já tentei com e sem cursor, mas ambos compilam com advertencia.
O que seria mais indicado para resolver o enunciado?

[SergioLBJr]

Pra que este cursor? tu nem abre ele.

E posta o erro para podermo entender o que esta acontecendo.

[victorhugomuniz]

vê ai se vai..

Selecionar tudo

CREATE OR REPLACE FUNCTION FUN_TOTAL_DUPLICATA_RM63016
       (P_NR_NOTA IN LOC_DULICATA.NR_NOTA%TYPE) 
RETURN NUMBER IS
       v_tot number;

BEGIN

           SELECT count(*) 
                  into v_tot 
           FROM LOC_DUPLICATA
           WHERE NR_NOTA = P_NR_NOTA;

RETURN v_tot;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
       DBMS_OUTPUT.PUT_LINE('ERRO NO_DATA_FOUND ');
  WHEN OTHERS THEN
       DBMS_OUTPUT.PUT_LINE('ERRO OTHERS ');
END FUN_TOTAL_DUPLICATA_RM63016; 
/

[julianaf024]

Debugando, deu esse erro:

Error(21,1): PLS-00103: Encountered the symbol "WHERE"

[victorhugomuniz]

estranho Juliana...

tenta com um alias LD para a tabela

Selecionar tudo

CREATE OR REPLACE FUNCTION FUN_TOTAL_DUPLICATA_RM63016
       (P_NR_NOTA IN LOC_DULICATA.NR_NOTA%TYPE)
RETURN NUMBER IS
       
       v_tot NUMBER;

BEGIN

 SELECT count(*)
        INTO v_tot
 FROM LOC_DUPLICATA LD
 WHERE LD.NR_NOTA = P_NR_NOTA;

RETURN v_tot;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
       DBMS_OUTPUT.PUT_LINE('ERRO NO_DATA_FOUND ');
  WHEN OTHERS THEN
       DBMS_OUTPUT.PUT_LINE('ERRO OTHERS ');
END FUN_TOTAL_DUPLICATA_RM63016;

[dr_gori]

Hmm. Deveria funcionar.
Uma coisa no seu codigo original que não faz sentido é colocar todos aqueles exceptions pra um cursor.

Selecionar tudo

EXCEPTION
   WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE('ERRO NO_DATA_FOUND ');
   WHEN TOO_MANY_ROWS THEN
      DBMS_OUTPUT.PUT_LINE('ERRO TOO_MANY_ROWS ');
   WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('ERRO OTHERS '); 

Veja:
* Um cursor não gera NO_DATA_FOUND. Apenas em select normais.
* É esperado que um cursor possa retornar mais de uma linha, então o TOO_MANY_ROWS também não faz sentido aqui. (nunca vai cair nesses 2).

Tente ir no SQL*PLUS e compilar o código que victorhugomuniz mandou: (tirei também o no-data-found, pois um COUNT sempre vai retornar alguma coisa, nem que seja NULO). Se der erro, manda pra nos a resposta!

Selecionar tudo

CREATE OR REPLACE FUNCTION FUN_TOTAL_DUPLICATA_RM63016
       (P_NR_NOTA IN LOC_DULICATA.NR_NOTA%TYPE)
RETURN NUMBER IS
       v_tot number;

BEGIN

           SELECT count(*)
                  into v_tot
           FROM LOC_DUPLICATA
           WHERE NR_NOTA = P_NR_NOTA;

RETURN v_tot;
EXCEPTION
  WHEN OTHERS THEN
       DBMS_OUTPUT.PUT_LINE('ERRO OTHERS ');
END FUN_TOTAL_DUPLICATA_RM63016;
/ 

[victorhugomuniz]

e verdade..

a TOO_MANY_ROWS eu tinha visto que nunca aconteceria

agora a NO_DATA_FOUND eu não pensei .. e verdade o count retornara zero caso não haja registros e então sempre tera dados

valeuu dr_gori

[julianaf024]

Realmente não tem nada de dados na tabela.
Deve retornar null...

Da uma olhada nos erros:

Selecionar tudo

Error(19,8): PLS-00103: Encountered the symbol "DBMS_OUTPUT" 
*Error(19,44): PLS-00103: Encountered the symbol ";" when expecting one of the following:     . ( , * % & - + / at mod remainder rem <an identifier>    <a double-quoted delimited-identifier> <an exponent (**)> as    from into || multiset bulk 

[victorhugomuniz]

você quem criou esse banco? você esta tentando criar como usuario dba do banco?

tenta dar um

Selecionar tudo

set serveroutput on;

ou então troca esse teu tratamento para o mesmo da outra function sua

Selecionar tudo

EXCEPTION
    WHEN OTHERS THEN
      RAISE_APPLICATION_ERROR(-20011,'ERRO FUN_CONSULTA_NF_RM63016: ' || SQLERRM);

[julianaf024]

Esse ambiente é gerado por um scritp que a Faculdade fornece.
Posso criar esse ambiente onde eu quiser. Muitas tabelas não tem dados, mas o professor diz que o fato de não ter dados não impede o funcionamento da procedure ou função.

Com o SET SERVEROUTPUT ON continuou o mesmo erro.
Com o tratamento de exception sugerido, deu o erro de WHERE.

Error(20,1): PLS-00103: Encountered the symbol "WHERE"


Obs.: Vitor, te mandei um email, você recebeu?

[victorhugomuniz]

para esse erro do where você tentou colocar o alias LD conforme falei e uma resposta acima??


obs: vi sim e já te respondi!!

[julianaf024]

Sim, o erro continuou.

[JOPA]

julianaf024,

Entendendo o objetivo de se obter a totalização das duplicatas a partir do parametro do numero da nota fiscal, tente dessa forma:

Selecionar tudo

create or replace FUNCTION FUN_TOTAL_DUPLICATA_RM63016(P_NR_NOTA IN LOC_DUPLICATA.NR_NOTA%TYPE) RETURN NUMBER 
IS
   V_RETURN NUMBER;
BEGIN
   IF p_nr_nota IS NULL THEN
      v_return := 0;
   ELSE
     BEGIN
        SELECT COUNT(*)
        INTO   v_return
        FROM   LOC_DUPLICATA
        WHERE  NR_NOTA = p_nr_nota;
     EXCEPTION
        WHEN OTHERS THEN
           v_return := 0;
     END;
   END IF;
   
   RETURN v_return;
   
END FUN_TOTAL_DUPLICATA_RM63016;

[julianaf024]

Ficou perfeito João Paulo.
Não tinha pensado em fazer assim... Ta rodando certinnho.
Obrigada!!!!

[JOPA]

Por nada julianaf024, um forte abraço!!!