Sintoma

Padronização - Code Inspector

Solução

Padronização - Code Inspector

Informações Complementares

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

Nota Número 05977 Data: 20/02/2008 Hora: 13:17:28

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

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

Nota Número              : 05977

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

PADRONIZAÇÃO - CODE INSPECTOR

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

Palavras Chave:

PADRONIZAÇÃO - CODE INSPECTOR

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI040F02

REPS /PWS/ZYCIR099

REPS /PWS/ZYCIR327F01

REPS /PWS/ZYCIR999

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

           nrccred      = /pws/zycbt108-nrccred

           nrfinanc     = /pws/zycbt108-nrfinanc

           nrpantec     = /pws/zycbt108-nrpantec

           nrpfatura    = /pws/zycbt108-nrpfatura

           vlassoccc    = /pws/zycbt108-vlassoccc

           vlassocfi    = /pws/zycbt108-vlassocfi

           vlassocpa    = /pws/zycbt108-vlassocpa

           vlassocpf    = /pws/zycbt108-vlassocpf

           vlassoc      = /pws/zycbt108-vlassoc

          WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat

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

           AND belnr       = /pws/zycie006-nrseq.

* << Fim da exclusão

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

           AND belnr       = /pws/zycie006-nrseq.       "#EC CI_NOFIRST

* << Fim da inclusão

    IF sy-subrc NE 0.

      MODIFY /pws/zycbt108.

    ENDIF.

  ENDIF.

ENDFORM.

FORM verifica_associacao.

  IF ( NOT itab_zycit132[] IS INITIAL AND /pws/zycie006-frpagto = 'P'

       AND  v_par NE 'X' AND NOT itab_zycit132_ini[] IS INITIAL )

       OR ( /pws/zycie006-frpagto = 'P' AND

       itab_zycit132[] IS INITIAL AND

...

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

               FOR ALL ENTRIES IN itab_zycet002

               WHERE docnum EQ itab_zycet002-docnum

                 AND itmnum EQ itab_zycet002-posnr.

        SELECT * FROM j_1bnfdoc INTO TABLE itab_j_1bnfdoc

               FOR ALL ENTRIES IN itab_zycet002

               WHERE docnum EQ itab_zycet002-docnum.

        SELECT * FROM /pws/zycet118 INTO TABLE itab_zycet118

         FOR ALL ENTRIES IN itab_zycet002

         WHERE vbeln_va EQ itab_zycet002-vbeln_va

           AND vbeln_vl EQ itab_zycet002-vbeln_vl

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

           AND posnl    EQ itab_zycet002-posnl.

* << Fim da exclusão

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

           AND posnl    EQ itab_zycet002-posnl.         "#EC CI_NOFIRST

* << Fim da inclusão

        IF NOT itab_zycet118[] IS INITIAL.

          SELECT * FROM /pws/zycet116 INTO TABLE itab_zycet116

                 FOR ALL ENTRIES IN itab_zycet118

                 WHERE nrseqre EQ itab_zycet118-nrseqre.

          IF NOT itab_zycet116[] IS INITIAL.

            SELECT * FROM /pws/zycet092 INTO TABLE itab_zycet092

                   FOR ALL ENTRIES IN itab_zycet116

                   WHERE nrseqre EQ itab_zycet116-nrseqre.

            SELECT * FROM /pws/zycet066 INTO TABLE itab_zycet066

                   FOR ALL ENTRIES IN itab_zycet116

...

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

Modificações efetuadas em REPS /PWS/ZYCIR099

...

                            USING value(pathname).

  DATA: filename LIKE rlgrap-filename.

  DATA: i_dict_html LIKE w3html OCCURS 0 WITH HEADER LINE.

  LOOP AT i_dict.

    MOVE-CORRESPONDING i_dict TO i_dict_minus_tabname.

    APPEND i_dict_minus_tabname.

    AT END OF tabname.

      CONCATENATE 'Converting table' i_dict-tabname 'to html'"#EC NOTEXT

                                     INTO mess SEPARATED BY space.

      PERFORM display_status USING mess 0.

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

      TRANSLATE i_dict-tabname TO LOWER CASE.

* << Fim da exclusão

      TRANSLATE p_hex TO LOWER CASE.

      CONCATENATE pathname '\' 'Dictionary-'                "#EC NOTEXT

                               i_dict-tabname '.'

                               p_hex INTO filename.

      PERFORM convert_dd_to_html TABLES i_dict_minus_tabname

                                        i_dict_html.

      PERFORM ws_download TABLES i_dict_html

                          USING filename.

      CLEAR i_dict_html. REFRESH i_dict_html.

      CLEAR i_dict_minus_tabname. REFRESH i_dict_minus_tabname.

...

...

                                    i_loc_includes-include

                                    0.

    APPEND i_loc_includes.

    PERFORM func_include_name USING i_func-pname

                                    i_func-include

                                    i_loc_includes-include

                                    1.

    APPEND i_loc_includes.

    LOOP AT i_loc_includes.

      READ REPORT i_loc_includes-include INTO content.

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

      TRANSLATE i_functions-stext TO LOWER CASE.

* << Fim da exclusão

      IF p_html = 'X'.

        IF i_loc_includes-include CS 'TOP'.

          CONCATENATE 'Global-' i_func-funcname             "#EC NOTEXT

                                      INTO html_name SEPARATED BY space.

        ELSE.

          html_name = i_func-funcname.

        ENDIF.

        PERFORM convert_table_to_html TABLES content

                                      USING html_name.

        file_ext = p_hex.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR327F01

...

    EXIT.

  ENDIF.

  itab_zycit282_apr[] = itab_zycit282[].

  SORT itab_zycit282_apr BY vbeln_va vbeln_vl posnl.

  DELETE ADJACENT DUPLICATES FROM itab_zycit282_apr COMPARING

                              vbeln_va vbeln_vl posnl.

  SELECT * FROM /pws/zycet118 INTO TABLE itab_zycet118_re

      FOR ALL ENTRIES IN itab_zycit282

      WHERE vbeln_va  EQ itab_zycit282-vbeln_va

        AND vbeln_vl  EQ itab_zycit282-vbeln_vl

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

        AND posnl     EQ itab_zycit282-posnl.

* << Fim da exclusão

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

        AND posnl     EQ itab_zycit282-posnl.           "#EC CI_NOFIRST

* << Fim da inclusão

  SELECT * FROM /pws/zycit247 INTO TABLE itab_zycit247

         FOR ALL ENTRIES IN itab_zycet002

         WHERE j_1bnbm  EQ itab_zycet002-steuc

           AND tipo EQ 'G'.                             "#EC CI_NOFIELD

  IF NOT itab_zycit247[] IS INITIAL.

    SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244

        FOR ALL ENTRIES IN itab_zycit247

        WHERE nrseqd EQ itab_zycit247-nrseqd

          AND status EQ 'D'.

  ENDIF.

...

...

  PERFORM show_progress USING '100' text-018.

  itab_zycit282_rel[] = itab_zycit282_apr[].

  SORT itab_zycit282_rel BY nrseqexp vbeln_va vbeln_vl posnl nrseqd.

  DELETE ADJACENT DUPLICATES FROM itab_zycit282_rel COMPARING

                              nrseqexp vbeln_va vbeln_vl posnl nrseqd.

  IF NOT itab_zycit282_rel[] IS INITIAL.

    SELECT * FROM /pws/zycet118 INTO TABLE itab_zycet118

        FOR ALL ENTRIES IN itab_zycit282_rel

        WHERE vbeln_va  EQ itab_zycit282_rel-vbeln_va

          AND vbeln_vl  EQ itab_zycit282_rel-vbeln_vl

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

          AND posnl     EQ itab_zycit282_rel-posnl.

* << Fim da exclusão

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

          AND posnl     EQ itab_zycit282_rel-posnl.     "#EC CI_NOFIRST

* << Fim da inclusão

    SELECT * FROM /pws/zycet116 INTO TABLE itab_zycet116

        FOR ALL ENTRIES IN itab_zycet118

        WHERE nrseqre EQ itab_zycet118-nrseqre.

  ENDIF.

  itab_zycit282_rel[] = itab_zycit282_apr[].

  itab_zycit282_sav[] = itab_zycit282_save[].

  IF NOT itab_zycit282_rel[] IS INITIAL.

    SELECT docnum docdat FROM j_1bnfdoc INTO TABLE itab_j_1bnfdoc

        FOR ALL ENTRIES IN itab_zycit282_rel

        WHERE docnum EQ itab_zycit282_rel-docnumimp.

  ENDIF.

  SORT itab_zycit282_sav BY nrseqexp vbeln_va vbeln_vl posnl nrseqd.

  DELETE ADJACENT DUPLICATES FROM itab_zycit282_sav COMPARING

                              nrseqexp vbeln_va vbeln_vl posnl nrseqd.

  IF NOT itab_zycit282_sav[] IS INITIAL.

    SELECT * FROM /pws/zycet118 INTO TABLE itab_zycet118a

        FOR ALL ENTRIES IN itab_zycit282_sav

        WHERE vbeln_va  EQ itab_zycit282_sav-vbeln_va

          AND vbeln_vl  EQ itab_zycit282_sav-vbeln_vl

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

          AND posnl     EQ itab_zycit282_sav-posnl.

* << Fim da exclusão

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

          AND posnl     EQ itab_zycit282_sav-posnl.     "#EC CI_NOFIRST

* << Fim da inclusão

    SELECT * FROM /pws/zycet116 INTO TABLE itab_zycet116a

        FOR ALL ENTRIES IN itab_zycet118a

        WHERE nrseqre EQ itab_zycet118a-nrseqre.

    SELECT * FROM /pws/zycet119 INTO TABLE itab_zycet119

        FOR ALL ENTRIES IN itab_zycet118a

        WHERE nrseqre EQ itab_zycet118a-nrseqre.

  ENDIF.

  REFRESH itab_zycet119b.

  LOOP AT itab_zycet118.

    CLEAR: itab_zycet116, v_somaf, v_nrre.

...