CREATE OR REPLACE PROCEDURE DASHBOARD_PROCEDURES (
    P_DTFINAL IN DATE DEFAULT SYSDATE
)
AS
   V_IDUTILIZAFIN VARCHAR2(01);
   V_COMANDO      VARCHAR2(400);
   V_FORMATO      VARCHAR2(12) := 'DD/MM/YYYY';
BEGIN
   V_COMANDO := 'ALTER SESSION SET NLS_DATE_FORMAT = '||CHR(39)||V_FORMATO||CHR(39);
   EXECUTE IMMEDIATE V_COMANDO;
    DASHBOARD_FIS_COUNT;
    BEGIN
       SELECT MAX(ID)
         INTO V_IDUTILIZAFIN
         FROM (SELECT 'S' AS ID
                 FROM GERAL_REC
                UNION ALL
               SELECT 'S' AS ID
                 FROM GERAL_PAG)
        WHERE EXISTS (SELECT NRPRODUTO
                        FROM DADOS_COLETADOS
                       WHERE NRPRODUTO IN ('1078')
                         AND IDOPERACAO = 'LOGIN');
    EXCEPTION
       WHEN NO_DATA_FOUND THEN
          V_IDUTILIZAFIN := 'N';
    END;
  --  ROTINAS_FIN_CTB(P_DTFINAL);
    IF NVL(V_IDUTILIZAFIN,'N') = 'S' THEN

       DASHBOARD_FIN_SALDO_CONTAS(P_DTFINAL);

       DASHBOARD_FIN_TITULOS_REC;

       DASHBOARD_FIN_TITULOS_PAG;

       DASHBOARD_FIN_DIVISAO_RECEITAS;

       DASHBOARD_FIN_DIVISAO_DESPESAS;

       DASHBOARD_FIN_CLI_INAD;

       DASHBOARD_FIN_COUNT;

       DASHBOARD_FIN_FLUXO_CAIXA;

    END IF;
END;
/

