CREATE OR REPLACE PROCEDURE SP_LISTAR_QUANTIDADES_CARTOES (
    v_lista_cartoes IN RECTYPE_LOJASTAB_PK,
    v_data_inicial IN TIMESTAMP,
    v_data_final IN TIMESTAMP,
    v_retorno OUT SYS_REFCURSOR,
    vcodigoErro OUT NUMBER,
    vmensagemErro OUT VARCHAR2)
IS
BEGIN
   OPEN v_retorno FOR
   SELECT
      p.CORIGEVDACATAOPSSOAFIS,
      p.CTPOPTOVDA,
      p.NPTOVDACATAO,
      p.NPPSTACATAOPCERI,
      p.NPRODTPSSOACATAOPCERI,
      COUNT(1) AS qtdeCartoes
   FROM
      DBAPRD1.tProdtFincrCtaCataoPceri p
      JOIN
         TABLE (v_lista_cartoes) tab
         ON (p.cOrigeVdaCataoPssoaFis = tab.p_cOrigeVdaCataoPssoaFis
         AND p.cTpoPtoVda = tab.p_cTpoPtoVda
         AND p.nPtoVdaCatao = tab.p_nPtoVdaCatao
         AND p.NPPSTACATAOPCERI = tab.p_NPPSTACATAOPCERI
         AND p.NPRODTPSSOACATAOPCERI = tab.p_NPRODTPSSOACATAOPCERI)
   WHERE
      p.HINCLREG BETWEEN v_data_inicial AND v_data_final
      AND p.CEXTERPPSTASEGURCATAOPCERI IN (1,2,3,4,5)
   GROUP BY
      p.CORIGEVDACATAOPSSOAFIS,
      p.CTPOPTOVDA,
      p.NPTOVDACATAO,
      p.NPPSTACATAOPCERI,
      p.NPRODTPSSOACATAOPCERI;
EXCEPTION
WHEN
   NO_DATA_FOUND
THEN
DBMS_OUTPUT.PUT_LINE ('CODIGO ERRO ORACLE:' || SQLCODE);
DBMS_OUTPUT.PUT_LINE ('MENSAGEM ORACLE:' || SQLERRM);
vcodigoErro := SQLCODE;
vmensagemErro := SQLERRM;
WHEN
   OTHERS
THEN
DBMS_OUTPUT.PUT_LINE ('CODIGO ERRO ORACLE:' || SQLCODE);
DBMS_OUTPUT.PUT_LINE ('MENSAGEM ORACLE:' || SQLERRM);
vcodigoErro := SQLCODE;
vmensagemErro := SQLERRM;
END
SP_LISTAR_QUANTIDADES_CARTOES;
/