8193032 TMN-1814 - Importação de Venda via JOB

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Criação de rotina de importação de venda via JOB.

03. SOLUÇÃO

Criada a PROC_IMPORTACAO_AUTO na PC_RMS_PDV_IMPORTACAO para ser chamada via JOB.

04. Script de Criação do JOB

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;