CE PLUS - Nota 006071

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Outros

Data/Hora da Publicação: 29/02/2008 00:00:00

Data/Hora Última Alteração: 05/03/2010 10:28:06

Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR NO REPORT EXCEL

Sintoma

 

Erros/Warnings no Code Inspector e na Verificação Ampliada nos Programas  /PWS/SAPMZYCER003,

/PWS/SAPMZYCER004 e /PWS/SAPMZYCER000.

 

Solução

 

Correção dos Erros e Warnings Apresentados no Code Inspector e na Verificação Ampliada.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 06071 Data: 29/02/2008 Hora: 11:01:29

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

 

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

Nota Número              : 06071

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 NO REPORT EXCEL

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

Palavras Chave:

PADRONIZAÇÃO, CODE INSPECTOR, REPORT EXCEL

 

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

Objetos da nota:

REPS /PWS/MZYCR003F02

REPS /PWS/MZYCR003TOP

REPS /PWS/MZYCR004F01

 

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

Modificações efetuadas em REPS /PWS/MZYCR003F02

 

...

       AND /pws/zycrt011~report_id     = /pws/zycrt010~report_id.

  SORT p_t_reports[] BY reports_l-report_module

                        reports_l-report_id.

  IF NOT wa_selected_report IS INITIAL.

    wa_selected_report-mark = 'X'.

    MODIFY TABLE p_t_reports[] FROM wa_selected_report

                               TRANSPORTING mark.

  ENDIF.

  SELECT *

      INTO TABLE p_t_rep_param[]

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

      FROM /pws/zycrt013.

* << Fim da exclusão

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

      FROM /pws/zycrt013."#EC CI_NOWHERE

* << Fim da inclusão

  IF NOT wa_selected_grid IS INITIAL.

    wa_selected_grid-mark = 'X'.

    MODIFY TABLE p_t_rep_param[] FROM wa_selected_grid

                                 TRANSPORTING mark.

  ENDIF.

  SELECT *

      INTO TABLE p_t_matrix

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

      FROM /pws/zycrt014.

* << Fim da exclusão

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

      FROM /pws/zycrt014."#EC CI_NOWHERE

* << Fim da inclusão

  SORT p_t_matrix[] BY matrix_l-report_module

                       matrix_l-report_id

                       matrix_l-matrix

                       matrix_l-sheet

                       matrix_l-row_position

                       matrix_l-column_position.

  PERFORM load_fields_per_report

          CHANGING

            p_t_rep_fields[].

ENDFORM.

...

 

...

  ENDIF.

  IF NOT it_reports_delete[] IS INITIAL.

    DELETE /pws/zycrt010 FROM TABLE it_reports_delete[].

    IF sy-subrc <> 0.

      p_subrc = 3.

      EXIT.

    ENDIF.

    LOOP AT it_reports_delete[] INTO wa_zycrt010.

      DELETE FROM /pws/zycrt011

          WHERE report_module = wa_zycrt010-report_module

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

            AND report_id     = wa_zycrt010-report_id.

* << Fim da exclusão

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

            AND report_id     = wa_zycrt010-report_id. "#EC CI_NOFIRST

* << Fim da inclusão

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM save_grid

     USING

        p_t_rep_param TYPE t_rep_param

     CHANGING

        p_subrc       TYPE sy-subrc.

  DATA: wa_rep_param LIKE LINE OF p_t_rep_param.

  DATA: it_rep_param_insert TYPE STANDARD TABLE OF /pws/zycrt013,

...

 

...

       p_reload_data TYPE abap_bool.

  STATICS: it_sections TYPE t_report_sheets.

  DATA: it_vrm_values TYPE vrm_values,

        wa_vrm_values LIKE LINE OF it_vrm_values,

        wa_rep_param  LIKE LINE OF p_t_rep_param,

        wa_sections   LIKE LINE OF it_sections.

  IF it_sections[] IS INITIAL OR p_reload_data = abap_true.

    SELECT file_id sheet

        INTO TABLE it_sections[]

        FROM /pws/zycrt017

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

        WHERE row_index = 0.

* << Fim da exclusão

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

        WHERE row_index = 0. "#EC CI_NOFIRST

* << Fim da inclusão

    IF sy-subrc = 0.

      DELETE it_sections[] WHERE sheet = c_report_sheet_name.

      p_reload_data = abap_false.

    ENDIF.

  ENDIF.

  READ TABLE p_t_rep_param[]

       INTO wa_rep_param

       WITH KEY mark = 'X'

       TRANSPORTING rep_param-file_id.

  IF sy-subrc = 0.

    LOOP AT it_sections[] INTO wa_sections

         WHERE file_id   = wa_rep_param-rep_param-file_id.

      wa_vrm_values-key  = wa_sections-sheet.

      wa_vrm_values-text = wa_sections-sheet.

      APPEND wa_vrm_values TO it_vrm_values[].

    ENDLOOP.

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

SORT it_sections BY file_id.

* << Fim da inclusão

  ENDIF.

  CALL FUNCTION 'VRM_SET_VALUES'

       EXPORTING

            id     = '/PWS/ZYCRE014-SHEET'

            values = it_vrm_values[].

ENDFORM.

FORM validate_file

     USING

        p_file_name     TYPE c

        p_file_spras    TYPE /pws/zycrt017-spras

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCR003TOP

 

...

         field       TYPE dd03l-fieldname,

         description TYPE dd03t-ddtext,

         mark        TYPE xfeld,

       END OF s_key_priority,

       t_key_priority TYPE STANDARD TABLE OF s_key_priority

                           WITH NON-UNIQUE KEY id.

TYPES: BEGIN OF s_report_sheets,

         file_id TYPE /pws/zycrt017-file_id,

         sheet   TYPE /pws/zycrt017-sheet,

       END OF s_report_sheets,

* >> Início da exclusão:

       t_report_sheets TYPE SORTED TABLE OF s_report_sheets

* << Fim da exclusão

* >> Início da inclusão:

       t_report_sheets TYPE STANDARD TABLE OF s_report_sheets

* << Fim da inclusão

                       WITH NON-UNIQUE KEY file_id.

TYPES: t_sect_height TYPE STANDARD TABLE OF /pws/zycrt017.

TYPES: BEGIN OF s_bds_config,

         bds_classname   TYPE /pws/zycrt013-bds_classname,

         bds_classtype   TYPE /pws/zycrt013-bds_classtype,

         bds_object_key  TYPE /pws/zycrt013-bds_object_key,

         bds_description TYPE /pws/zycrt013-bds_description,

         bds_doc_type    TYPE /pws/zycrt013-bds_doc_type,

         bds_creation    TYPE /pws/zycrt013-bds_creation,

       END OF s_bds_config.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCR004F01

 

...

  MODIFY /pws/zycrt014 FROM TABLE it_zycrt014[].

  IF sy-subrc <> 0.

    ROLLBACK WORK.

    sy-subrc = 4.

    sy-msgv1 = '/PWS/ZYCRT014'.

    EXIT.

  ENDIF.

  LOOP AT it_abap_program[] INTO wa_abap_program.

    IF p_delete_first = 'X'.

      DELETE FROM /pws/zycrt015 WHERE abap_program = wa_abap_program.

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

      DELETE FROM /pws/zycrt016 WHERE abap_program = wa_abap_program.

* << Fim da exclusão

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

      DELETE FROM /pws/zycrt016

      WHERE abap_program = wa_abap_program."#EC CI_NOFIRST

* << Fim da inclusão

    ENDIF.

    LOOP AT p_parameters-zycrt015[] INTO wa_zycrt015

         WHERE abap_program = wa_abap_program.

      APPEND wa_zycrt015 TO it_zycrt015[].

    ENDLOOP.

    LOOP AT p_parameters-zycrt016[] INTO wa_zycrt016

         WHERE abap_program = wa_abap_program.

      APPEND wa_zycrt016 TO it_zycrt016[].

    ENDLOOP.

  ENDLOOP.

...

 

...

  FREE it_zycrt010_key[].

  CHECK sy-subrc = 0.

  p_parameters-version = '1.0'.

  p_parameters-date = sy-datum.

  IF NOT p_parameters-zycrt010[] IS INITIAL.

    SELECT *

        FROM /pws/zycrt011

        INTO TABLE p_parameters-zycrt011

        FOR ALL ENTRIES IN p_parameters-zycrt010[]

        WHERE report_module = p_parameters-zycrt010-report_module

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

          AND report_id     = p_parameters-zycrt010-report_id.

* << Fim da exclusão

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

     AND report_id     = p_parameters-zycrt010-report_id."#EC CI_NOFIRST

* << Fim da inclusão

  ENDIF.

  IF NOT p_parameters-zycrt010[] IS INITIAL.

    SELECT *

        FROM /pws/zycrt013

        INTO TABLE p_parameters-zycrt013

        FOR ALL ENTRIES IN p_parameters-zycrt010[]

        WHERE report_module = p_parameters-zycrt010-report_module

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

          AND report_id     = p_parameters-zycrt010-report_id.

* << Fim da exclusão

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

   AND report_id     = p_parameters-zycrt010-report_id."#EC CI_NOFIRST

* << Fim da inclusão

  ENDIF.

  IF NOT p_parameters-zycrt013[] IS INITIAL.

    SELECT *

        FROM /pws/zycrt014

        INTO TABLE p_parameters-zycrt014

        FOR ALL ENTRIES IN p_parameters-zycrt013[]

        WHERE report_module = p_parameters-zycrt013-report_module

          AND report_id     = p_parameters-zycrt013-report_id

          AND matrix        = p_parameters-zycrt013-matrix.

  ENDIF.

...

 

...

        FOR ALL ENTRIES IN it_zycrt010_program[]

        WHERE abap_program = it_zycrt010_program-table_line.

    FREE it_zycrt010_program[].

  ENDIF.

  IF NOT p_parameters-zycrt015[] IS INITIAL.

    SELECT *

        FROM /pws/zycrt016

        INTO TABLE p_parameters-zycrt016

        FOR ALL ENTRIES IN p_parameters-zycrt015[]

        WHERE abap_program = p_parameters-zycrt015-abap_program

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

          AND field        = p_parameters-zycrt015-field.

* << Fim da exclusão

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

          AND field     = p_parameters-zycrt015-field. "#EC CI_NOFIRST

* << Fim da inclusão

  ENDIF.

ENDFORM.

FORM build_tc_status

     USING

       p_top_line TYPE i

       p_lines    TYPE i

     CHANGING

       p_label    TYPE c.

  DATA: c_field_a(10) TYPE c,

        c_field_b(10) TYPE c.

...