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.
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.
...