Menu de navegação

[Anônimo]

Olá, amigos! Estou com problemas na exception desta procedure, pois não está acontecendo nada. Gostaria que retornase uma mensagem quando o cursor não retornasse dados. Já tentei V_FORM_PGTO%NOTFOUND e tb não funcionou. Se alguém tiver alguma sugestão, agradeço.

PROCEDURE P_BUSCA_FORMA_PGTO(
V_FORM_PGTO OUT CURSOR_TYPE,
v_ERRO OUT VARCHAR2)
IS

BEGIN
OPEN V_FORM_PGTO FOR
SELECT CD_FORM_PGTO,DS_FORM_PGTO
FROM T4.TB_FORM_PGTO;

EXCEPTION
WHEN NO_DATA_FOUND THEN
V_ERRO:=’Sem retorno de dados’;
WHEN OTHERS THEN
V_ERRO:=SQLERRM;

CLOSE V_FORM_PGTO;

END P_BUSCA_FORMA_PGTO;

[FontalvaParticipante]

Olha, o que voce pode fazer é colocar o codigo abaixo. Deve resolver.


Open V_FORM_PGTO For
Select CD_FORM_PGTO,DS_FORM_PGTO
From T4.TB_FORM_PGTO;
---> Antes do fetch.
If v_form_pagto%Rowcount = 0 Then
Raise no_data_found;
End If;


Acontecera o seguinte: Se seu cursor retornar 0(zero) registros, então força exceção.

[Autor]

Posts