Produto:

RMS

Ocorrência:

Criação da PROC_IMPORTACAO_AUTO na PC_RMS_PDV_IMPORTACAO para ser chamada via JOB.

Script:

DECLARE
  id       INTEGER; -- Id do job criado
  v_job_id NUMBER; -- Retorno da função PC_RMS_JOBS.job_existe
  
  v_parametros_pc varchar2(500) := 'PC_RMS_PDV_IMPORTACAO.PROC_IMPORTACAO_AUTO(1,dateto_rms7(sysdate),0);';
  v_intervalo_job varchar2(30) := 'SYSDATE+1';
  --   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(v_parametros_pc);

  IF v_job_id = 0 THEN
    id := 0;
    dbms_job.submit(id, v_parametros_pc, to_date('20-05-2021 12:30:00', 'dd-mm-yyyy hh24:mi:ss'), v_intervalo_job, false, dbms_job.ANY_INSTANCE);
    commit;
  ELSE
    DBMS_JOB.REMOVE(v_job_id);
    dbms_job.submit(id, v_parametros_pc, to_date('20-05-2021 12:30:00', 'dd-mm-yyyy hh24:mi:ss'), v_intervalo_job, false, dbms_job.ANY_INSTANCE);
  END IF;
end;