Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

...

;