Sintoma

Programa com instruções obsoletas ou que apresentam erros/alertas ao executar a verificação ampliada

do programa ou o Code Inspector.

Solução

Implementação de ajustes no código do programa de forma a eliminar os erros e alertas encontrados na

verificação ampliada e ao executar o Code Inspector.

Informações Complementares

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

Nota Número 05947 Data: 19/02/2008 Hora: 09:46:03

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

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

Nota Número              : 05947

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA EXPORTAÇÕES EFETUADAS

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

Palavras Chave:

CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO, EXPORTAÇÕES

/PWS/ZYCER282

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

Objetos da nota:

REPS /PWS/ZYCER282

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

Modificações efetuadas em REPS /PWS/ZYCER282

...

  PERFORM seleciona_parametros.

  PERFORM verifica_centros.

  IF NOT itab_j1bt001wv[] IS INITIAL.

    SELECT nrseqre

           nrre

    FROM /pws/zycet116

    INTO TABLE itab_zycet116

    FOR ALL ENTRIES IN itab_j1bt001wv

    WHERE bukrs EQ itab_j1bt001wv-bukrs

      AND bukrs EQ p_bukrs

* >> Início da exclusão: FORM SELECIONA_DADOS

      AND werks EQ itab_j1bt001wv-werks.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

      AND werks EQ itab_j1bt001wv-werks.                "#EC CI_NOFIELD

* << Fim da inclusão

    IF sy-subrc IS INITIAL.

      SELECT nrseq

             nrseqre

       FROM /pws/zycet003

       INTO TABLE itab_zycet003

       FOR ALL ENTRIES IN itab_zycet116

       WHERE nrseqre EQ itab_zycet116-nrseqre.          "#EC CI_NOFIRST

    ENDIF.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

      EXPORTING

...

...

    PERFORM tratamento_registros_siscomex.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

      EXPORTING

        percentage = 100

        text       = text-004.

  ELSE.

    SELECT nrseqre

           nrre

    FROM /pws/zycet116

    INTO TABLE itab_zycet116

* >> Início da exclusão: FORM SELECIONA_DADOS

    WHERE bukrs EQ p_bukrs.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

    WHERE bukrs EQ p_bukrs.                             "#EC CI_NOFIELD

* << Fim da inclusão

    IF sy-subrc IS INITIAL.

      SELECT nrseq

             nrseqre

       FROM /pws/zycet003

       INTO TABLE itab_zycet003

       FOR ALL ENTRIES IN itab_zycet116

       WHERE nrseqre EQ itab_zycet116-nrseqre.          "#EC CI_NOFIRST

    ENDIF.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

      EXPORTING

...