Sintoma

Ao exibir um listbox de planilhas (seções) disponíveis, na parametrização de matriz, aparecem

planilhas repetidas.

Solução

O programa passa a verificar o idioma e o ID do arquivo, na criação do listbox

Informações Complementares

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

Nota Número 07859 Data: 05/01/2009 Hora: 11:54:03

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

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

Nota Número              : 07859

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00080

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

Referência às notas relacionadas:

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

06071  - 00001 - 7.0    - 00004  - PADRONIZAÇÃO - CODE INSPECTOR NO REPORT EXCEL

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

LISTA DE PLANILHAS DISPONÍVEIS DUPLICADA

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

Palavras Chave:

REPORT EXCEL ZYCR003 PLANILHA DUPLICADA

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

Objetos da nota:

REPS /PWS/MZYCR003F02

REPS /PWS/MZYCR003TOP

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

Modificações efetuadas em REPS /PWS/MZYCR003F02

...

     USING

       p_t_rep_param TYPE t_rep_param

     CHANGING

       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.

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

    SELECT file_id sheet

* << Fim da exclusão

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

    SELECT spras file_id sheet

* << Fim da inclusão

        INTO TABLE it_sections[]

        FROM /pws/zycrt017

        WHERE row_index = 0.                            "#EC CI_NOFIRST

    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'

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

       TRANSPORTING rep_param-file_id.

* << Fim da exclusão

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

       TRANSPORTING rep_param-spras

                    rep_param-file_id.

* << Fim da inclusão

  IF sy-subrc = 0.

    LOOP AT it_sections[] INTO wa_sections

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

         WHERE file_id   = wa_rep_param-rep_param-file_id.

* << Fim da exclusão

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

         WHERE spras   = wa_rep_param-rep_param-spras

           AND file_id = wa_rep_param-rep_param-file_id.

* << Fim da inclusão

      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 exclusão: FORM LOAD_MATRIX_SHEET_LIST_BOX

    SORT it_sections BY file_id.

* << Fim da exclusão

  ENDIF.

  CALL FUNCTION 'VRM_SET_VALUES'

       EXPORTING

            id     = '/PWS/ZYCRE014-SHEET'

            values = it_vrm_values[].

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCR003TOP

...

TYPES: t_creation_mode(1) TYPE c.

TYPES: BEGIN OF s_key_priority,

         id(1)       TYPE c,

         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,

* >> Início da inclusão:

         spras   TYPE /pws/zycrt017-spras,

* << Fim da inclusão

         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 STANDARD TABLE OF s_report_sheets

                       WITH NON-UNIQUE KEY file_id.

* << Fim da exclusão

* >> Início da inclusão:

       t_report_sheets TYPE SORTED TABLE OF s_report_sheets

                       WITH NON-UNIQUE KEY spras file_id sheet.

* << Fim da inclusão

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.

CONSTANTS: c_show_mode TYPE t_operation_mode VALUE 'S',

...