Script: | DECLARE
ID INTEGER; -- ID DO JOB CRIADO
V_JOB_ID NUMBER; -- RETORNO DA FUNÇÃO PC_RMS_JOBS.JOB_EXISTE
-- SE =0, JOB NÃO EXISTE
-- SE <>0, ARMAZENA ID DO JOB
-- PARAMETROS DA CHAMADA DA (PC_RMS_PDV_IMPORTACAO.PROC_IMPORTACAO_AUTO)
-- 1 - FILIAL (SEM DIGITO)
-- 2 - DATA IMPORTACAO (PADRAO RMS OU 0)
-- 3 - DIA ANTERIOR (0 OU 1)
-- REGRA:
-- SE A DATA DA IMPORTAÇÃO VIER PREENCHIDA, ESTA SERÁ CONSIDERADA
-- CASO A DATA DE IMPORTAÇÃO VIER 0, SERÁ TESTADO O PARÂMETRO DO DIA ANTERIOR.
-- CASO O DIA ANTERIOR SEJA DIFERENTE DE 0, ENTÃO O SISTEMA IRÁ CONSIDERAR SYSDATE-1, CASO CONTRÁRIO SERÁ SYSDATE.
BEGIN
V_JOB_ID := 0;
V_JOB_ID := PC_RMS_JOBS.JOB_EXISTE('PC_RMS_PDV_IMPORTACAO.PROC_IMPORTACAO_AUTO(1,DATETO_RMS7(SYSDATE),0)');
IF V_JOB_ID > 0 THEN
DBMS_JOB.REMOVE(V_JOB_ID);
COMMIT;
END IF;
ID:=0;
DBMS_JOB.SUBMIT(ID,'PC_RMS_PDV_IMPORTACAO.PROC_IMPORTACAO_AUTO(1,DATETO_RMS7(SYSDATE),0);', TO_DATE('17-11-2020 23:30:00', 'DD-MM-YYYY HH24:MI:SS'),'TRUNC(SYSDATE + 1)',FALSE,DBMS_JOB.ANY_INSTANCE);
COMMIT;
END; | Observações: | O comando 'copy' realiza backup do arquivo origem e renomeia o destino. Acrescentamos ao arquivo destino hora e minuto exportado, para que possa realizar diversos backups no dia. |