sexta-feira, 1 de junho de 2018

Compilar a Function get_linhas

Quando a View AD_CONFIGAV e a Function GET_LINHAS não compilam, é necessário ciar o objeto abaixo no banco de dados:

OS 978262

CREATE OR REPLACE TYPE "T_VARCHAR2"  AS OBJECT (
  SEQ       NUMBER(5),
  TEXTO varchar2(100)
)
/

CREATE OR REPLACE TYPE "T_VARCHAR2_TYPE" aS TABLE OF T_VARCHAR2
/

CREATE OR REPLACE FUNCTION get_linhas(
   P_PARAMETRO  VARCHAR2
)
RETURN T_VARCHAR2_TYPE AS
  v_ret  T_VARCHAR2_TYPE;
  CURSOR RSLCD IS
  select TO_CHAR(regexp_substr((SELECT TEXTO FROM TSIPAR WHERE CHAVE = P_PARAMETRO AND CODUSU = 0),'[^,]+', 1, level))  testess from dual 
  connect by regexp_substr((SELECT TEXTO FROM TSIPAR WHERE CHAVE = P_PARAMETRO AND CODUSU = 0), '[^,]+', 1, level) is not null; 

BEGIN
   v_ret  := T_VARCHAR2_TYPE();
   FOR PES IN RSLCD LOOP
    v_ret.EXTEND;
     v_ret(v_ret.COUNT) := T_VARCHAR2(v_ret.COUNT ,TRIM(PES.testess));
   END LOOP;

  RETURN v_ret;
END;
/

Nenhum comentário:

Postar um comentário