CREATE OR REPLACE PROCEDURE USR_LIMPEZA_DADOS(
   P_DTREFERENCIA IN LOGLIMPEZA.DTLIMPDADOS%TYPE)

AS

   V_NRLISTA    NOVOCODIGO.NRSEQUENCIAL%TYPE;

BEGIN

   NOVO_CODIGO('LISTA', V_NRLISTA);
   V_NRLISTA := SUBSTR(V_NRLISTA,11,10);

   INSERT INTO LISTA
   (NRLISTA, CDLISTA)
   (SELECT V_NRLISTA, CDFILIAL
    FROM FILIAL);

   LIMPA_TABELAS_PLA(V_NRLISTA, P_DTREFERENCIA, 'Planejamento', 'Agendamento de Tarefas');
   LIMPEZA_DADOEST(V_NRLISTA, P_DTREFERENCIA, 'Estoque', 'Agendamento de Tarefas');
   LIMPEZA_CMPSUP(V_NRLISTA, P_DTREFERENCIA, 'Compras/Suprimentos', 'Agendamento de Tarefas');

   DELETE FROM LISTA
   WHERE NRLISTA = V_NRLISTA;

   COMMIT;

END;
/


-- VERSAO --
BEGIN ATUVEROBJ('USR_LIMPEZA_DADOS','4.09.084'); END;
/

