Sintoma

O programa está permitindo excluir RAS/RVS com status 'Em Processamento' mas ainda sem retorno do

número do lote gerado pelo Siscoserv

Solução

O programa foi ajustado para considerar também o Número de Lote na definição de permissão para

exclusão da RAS/RVS

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 13889 Data: 25/04/2014 Hora: 14:45:53

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 13889

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

13874  - 00001 - 9.0    - 00007  - SISCOSERV - CRIAÇÃO AUTOMÁTICA DE RAS/RVS

----------------------------------------------------------------------------------------------------

SISCOSERV - EXCLUSÃO DE RAS/RVS - STATUS EM PROCESSAMENTO

----------------------------------------------------------------------------------------------------

Palavras Chave:

SISCOSERV - EXCLUSÃO DE RAS/RVS - STATUS EM PROCESSAMENTO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCA011O01

REPS /PWS/MZYCA011F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA011O01

...

  IF NOT v_exibe IS INITIAL.

    wa_fcode-ucomm = 'SAVE'.

    APPEND wa_fcode TO itab_fcode.

  ENDIF.

  IF NOT v_cria IS INITIAL.

    wa_fcode-ucomm = 'LOG'.

    APPEND wa_fcode TO itab_fcode.

    wa_fcode-ucomm = 'LOG_TRILHA'.

    APPEND wa_fcode TO itab_fcode.

  ENDIF.

* >> Início da inclusão: MODULE STATUS_0100

  perform verifica_lote_inclusao.

* << Fim da inclusão

  SET PF-STATUS '0100' EXCLUDING itab_fcode.

  SET TITLEBAR '0100'.

  IF v_dynnr IS INITIAL.

    v_dynnr = '0101'.

  ENDIF.

  IF v_exibe IS INITIAL.

    IF v_cria IS INITIAL.

      LOOP AT SCREEN.

        IF screen-name EQ '/PWS/ZYCAT030-PROCESSAMENTO' OR

           screen-name EQ '/PWS/ZYCAT030-TP_PROCESSO' .

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA011F01

...

      clear wa_src.

      call method editor->set_text_as_r3table

                                    exporting table = itab_src[].

    endif.

  endloop.

  move: v_valor_soma   to  /pws/zycat030-valor,

        v_valor_soma   to  /pws/zycat030-saldo.

  clear:   r_filimp, r_embimp, r_forimp, r_moeimp.

  refresh: r_embimp, r_embimp, r_forimp, r_moeimp.

endform.

* >> Início da inclusão:

FORM verifica_lote_inclusao.

  DATA: itab_zycat034 TYPE TABLE OF /pws/zycat034,

        itab_zycat038 TYPE TABLE OF /pws/zycat038,

        wa_zycat034   TYPE /pws/zycat034,

        wa_zycat038   TYPE /pws/zycat038.

  CHECK /pws/zycat030-status = 'EP'.

  SELECT * FROM /pws/zycat034

    INTO TABLE itab_zycat034

    WHERE nrseq = /pws/zycat030-nrseq.

  IF NOT itab_zycat034[] IS INITIAL.

    SELECT * FROM /pws/zycat038

      INTO TABLE itab_zycat038

      FOR ALL ENTRIES IN itab_zycat034

      WHERE nrseq_arq = itab_zycat034-nrseq_arq.

  ENDIF.

  DELETE itab_zycat038 WHERE processo NE 'IRVS' AND

                             processo NE 'IRAS'.

  DELETE itab_zycat038 WHERE prot_transm IS initial.

  IF itab_zycat038[] IS INITIAL.

    wa_fcode-ucomm = 'DELE'.

    APPEND wa_fcode TO itab_fcode.

  ENDIF.

ENDFORM.

* << Fim da inclusão