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. |