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 05744 Data: 24/01/2008 Hora: 10:22:36

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

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

Nota Número              : 05744

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 IMPRESSÃO NOTAS FISCAIS

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

Palavras Chave:

CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO,

IMPRESSÃO NOTA FISCAL

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

Objetos da nota:

DOCU NA/PWS/ZYCEM022

REPS /PWS/ZYCER018

REPT /PWS/ZYCER018

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

Modificações efetuadas em DOCU NA/PWS/ZYCEM022

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

Modificações efetuadas em REPS /PWS/ZYCER018

REPORT /pws/zycer018 MESSAGE-ID /pws/zycem.

TABLES : /pws/zycet009, j_1bnfdoc.

DATA :

    it_zycet009 LIKE /pws/zycet009 OCCURS 10 WITH HEADER LINE,

    it_j1bnfdoc LIKE j_1bnfdoc OCCURS 10 WITH HEADER LINE.

DATA : BEGIN OF it_zycet009_aux OCCURS 10.

        INCLUDE STRUCTURE /pws/zycet009.

DATA :  linha.

DATA : END OF it_zycet009_aux.

* >> Início da exclusão:

DATA : BEGIN OF it_relat OCCURS 10,

         nrseq   LIKE /pws/zycet002-nrseq,

         docnum  LIKE /pws/zycet009-docnum2,

         msg(100) TYPE c,

      END OF it_relat.

* << Fim da exclusão

DATA: BEGIN OF itab_lista OCCURS 100,

        linha,

        nrseq   LIKE /pws/zycet009-nrseq,

        docnum2 LIKE /pws/zycet009-docnum2,

      END OF itab_lista.

DATA: it_zycet004     LIKE /pws/zycet004 OCCURS 10 WITH HEADER

 LINE,

      it_zycet005     LIKE /pws/zycet005 OCCURS 10 WITH HEADER

 LINE,

      it_zycee005     LIKE /pws/zycee005 OCCURS 10 WITH HEADER

* >> Início da exclusão:

 LINE,

      it_zycee005_aux LIKE /pws/zycee005 OCCURS 10 WITH HEADER

 LINE,

      it_zycee006     LIKE /pws/zycee006 OCCURS 10 WITH HEADER

* << Fim da exclusão

 LINE.

* >> Início da exclusão:

DATA: BEGIN OF it_erro OCCURS 0,

        nrseq    LIKE /pws/zycet002-nrseq,

        branch   LIKE j_1bnfdoc-branch,

        prctr    LIKE /pws/zycet002-prctr,

        gsber    LIKE /pws/zycet002-gsber,

        belnr5   LIKE /pws/zycet002-belnr5,

        msg(100) TYPE c,

      END OF it_erro.

* << Fim da exclusão

DATA: BEGIN OF it_modo OCCURS 0.

* >> Início da exclusão:

DATA: modo  LIKE /pws/zycbt039-modo,

      descr LIKE /pws/zycbt039-descr.

* << Fim da exclusão

        INCLUDE STRUCTURE spopli.

DATA: END OF it_modo.

DATA : v_check,

       v_modo_bi.

* >> Início da exclusão:

SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-006.

* << Fim da exclusão

* >> Início da inclusão:

SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE text-006.

* << Fim da inclusão

SELECT-OPTIONS: s_filial   FOR /pws/zycet009-branch OBLIGATORY.

SELECT-OPTIONS: s_emb      FOR /pws/zycet009-nrseq.

SELECT-OPTIONS: s_nfdoc    FOR /pws/zycet009-docnum2.

* >> Início da exclusão:

SELECTION-SCREEN END OF BLOCK 1.

* << Fim da exclusão

* >> Início da inclusão:

SELECTION-SCREEN END OF BLOCK A1.

* << Fim da inclusão

START-OF-SELECTION.

...

...

        it_zycet009_aux-linha = itab_lista-linha.

        APPEND it_zycet009_aux.

      ENDIF.

    ENDIF.

  ENDLOOP.

  CLEAR it_zycet009.

  REFRESH it_zycet009.

  LOOP AT it_zycet009_aux.

    it_zycee005-tcode  = text-002.

    it_zycee005-tabela = text-003.

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

    MOVE-CORRESPONDING it_zycet009_aux TO it_zycee005_aux.

* << Fim da exclusão

    CONCATENATE it_zycet009_aux-nrseq it_zycet009_aux-branch

                                        INTO v_cpochv.

    it_zycee005-cpochv = v_cpochv.

    PERFORM verify_null_field USING it_zycet009_aux-docnum2

                                   'DOCNUM2'

                                    text-004.

    it_zycee005-docnum = it_zycet009_aux-docnum2.

    APPEND it_zycee005.

  ENDLOOP.

  LOOP AT it_zycet004.

...

...

                                       tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        PERFORM z_print_relat_final.

      ELSE.

        READ TABLE it_zycet005 WITH KEY  tcode  = text-002

                                         tabela = text-005

                                         cpochv = v_cpochv

                                         tpmsg  = 'E'.

        MESSAGE i016 WITH it_zycet005-msg+0(50)

                          it_zycet005-msg+50(50).

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

        it_erro-nrseq  = it_zycet009-nrseq.

        it_erro-branch = it_zycet009-branch.

        it_erro-msg = it_zycet005-msg.

        APPEND it_erro.

* << Fim da exclusão

      ENDIF.

      SELECT SINGLE * FROM j_1bnfdoc

             WHERE docnum = it_zycet009_aux-docnum2.

      IF sy-subrc EQ 0.

        UPDATE /pws/zycet009 SET   nfnum  = j_1bnfdoc-nfnum

                              WHERE nrseq    =

 it_zycet009_aux-nrseq

                               AND  docnum2  =

 it_zycet009_aux-docnum2.

      ENDIF.

    ENDLOOP.

  ENDIF.

  PERFORM limpa_tabelas.

ENDFORM.

FORM limpa_tabelas.

  CLEAR: it_zycee005,

         it_zycet005,

         it_zycet004,

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

         it_zycee005,

         it_zycee005_aux.

  REFRESH: it_zycee006,

* << Fim da exclusão

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

         it_zycee005.

  REFRESH:

* << Fim da inclusão

           it_zycet005,

           it_zycet004,

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

           it_zycee005,

           it_zycee005_aux.

* << Fim da exclusão

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

           it_zycee005.

* << Fim da inclusão

ENDFORM.

...

...

    IF sy-subrc EQ 0.

      WRITE : /02 v_check AS CHECKBOX,

               05 it_zycet009-nrseq ,

               22 it_zycet009-branch,

               30 it_zycet009-docnum2,

               43 it_j1bnfdoc-pstdat.

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM z_print_relat_final.

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

  WRITE : /00 text-012,

* << Fim da exclusão

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

  WRITE : /00 text-012,"#EC

* << Fim da inclusão

           13 text-013,

           25 text-014.

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

  WRITE : /00 it_zycet009_aux-nrseq,

* << Fim da exclusão

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

  WRITE : /00 it_zycet009_aux-nrseq,"#EC

* << Fim da inclusão

           13 it_zycet009_aux-docnum,

           25 text-011.

ENDFORM.

FORM popup.

  CLEAR: v_modo_bi.

  SELECT * FROM /pws/zycbt039

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

           INTO CORRESPONDING FIELDS OF TABLE it_modo.

* << Fim da exclusão

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

           INTO CORRESPONDING FIELDS OF TABLE it_modo."#EC CI_NOWHERE

* << Fim da inclusão

  SORT it_modo DESCENDING.

  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'

       EXPORTING

            textline1          = text-016

            textline2          = text-017

            titel              = text-018

       IMPORTING

            answer             = v_modo_bi

       TABLES

            t_spopli           = it_modo

       EXCEPTIONS

            not_enough_answers = 1

            too_much_answers   = 2

            too_much_marks     = 3

            OTHERS             = 4.

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

   IF sy-subrc <> 0.

 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

   ENDIF.

* << Fim da inclusão

  IF v_modo_bi EQ '3'.

    v_modo_bi = 'A'.

  ELSEIF v_modo_bi EQ '2'.

    v_modo_bi = 'E'.

  ELSEIF v_modo_bi EQ '1'.

    v_modo_bi = 'N'.

  ENDIF.

ENDFORM.

FORM verifica_autorizacao USING p_bukrs LIKE /pws/zycet001-bukrs

                                p_actvt TYPE n.

...

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

Modificações efetuadas em REPT /PWS/ZYCER018

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 001

Texto: (2 caracteres)

"EN"

Comprimento máximo: 2