CE PLUS - Nota 003840
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: CE Reports
Data/Hora da Publicação: 04/06/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 17:36:20
Descrição da Nota: EXIBIR TEXTOS NOS REPORTS EXCEL
Sintoma
----------------------------------------------------------------------------------------------------
Nota Número 03840 Data: 04/06/2007 Hora: 15:44:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03840
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00169
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03696 - 00001 - 7.0 - 00001 - LEITURA DE TEXTOS NOS REPORTS EM EXCEL
----------------------------------------------------------------------------------------------------
EXIBIR TEXTOS NOS REPORTS EXCEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
INCLUDES, REPORT EXCEL, READ TEXT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCRI002
REPS /PWS/ZYCRI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRI002
...
CONCATENATE p_text wa_lines-tdline
INTO p_text
SEPARATED BY space.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
sy-subrc = 0.
ENDIF.
ENDFORM.
* >> Início da inclusão:
*&---------------------------------------------------------------------*
*& Form read_text_report
*&---------------------------------------------------------------------*
* -->P_OBJECT text
* -->P_NRSEQ text
* -->P_ID text
* -->V_LANGU text
* -->P_POSICAO text
* <--P_TEXT text
*----------------------------------------------------------------------*
FORM read_text_report
USING
p_object TYPE thead-tdobject
p_codigo TYPE thead-tdname
p_id TYPE thead-tdid
v_langu
p_posicao
CHANGING
p_text TYPE c.
DATA: p_codigo_aux TYPE thead-tdname,
p_name LIKE sy-repid.
MOVE p_codigo TO p_codigo_aux.
SHIFT p_codigo_aux LEFT DELETING LEADING '0'.
CASE p_posicao.
WHEN 'A'.
CONCATENATE p_codigo_aux 'A' INTO p_codigo_aux.
WHEN 'D'.
CONCATENATE p_codigo_aux 'D' INTO p_codigo_aux.
WHEN OTHERS.
WRITE p_codigo TO p_codigo_aux.
ENDCASE.
CLEAR p_text.
PERFORM get_text_edit_as_field
USING
p_object
p_codigo_aux
p_id
v_langu
CHANGING
p_text.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form format_codigo
*&---------------------------------------------------------------------*
* --> p_documento text
* --> p_item text
* --> p_matnr text
* --> p_vkorg_auft text
* --> p_tweg_auft text
* --> p_nrseqtr text
* --> p_nrrota_tr text
* --> p_tipo text
* <-- p_codigo text
*----------------------------------------------------------------------*
FORM format_codigo
USING
p_documento TYPE /PWS/ZYCRE018-vbeln_vf
p_item TYPE /PWS/ZYCRE018-posnr
p_matnr TYPE /PWS/ZYCRE018-matnr
p_vkorg_auft TYPE /PWS/ZYCRE018-vkorg_auft
p_vtweg_auft TYPE /PWS/ZYCRE018-vtweg_auft
p_nrseqtr TYPE /PWS/ZYCET046-nrseqtr
p_nrrota_tr TYPE /PWS/ZYCET046-nrrota_tr
p_tipo TYPE c
CHANGING
p_t_codigo TYPE t_format_codigo.
DATA: wa_codigo LIKE LINE OF p_t_codigo[].
CASE p_tipo.
WHEN 'FAT'.
MOVE: p_documento TO wa_codigo-vbeln_vf,
p_item TO wa_codigo-posnr.
WHEN 'FOR'.
MOVE: p_documento TO wa_codigo-vbeln_vl,
p_item TO wa_codigo-posnl.
WHEN 'VND'.
MOVE: p_documento TO wa_codigo-vbeln_va,
p_item TO wa_codigo-aupos.
WHEN 'MVKE'.
MOVE: p_matnr TO wa_codigo-matnr,
p_vkorg_auft TO wa_codigo-vkorg_auft,
p_vtweg_auft TO wa_codigo-vtweg_auft.
WHEN 'MATERIAL'.
MOVE p_matnr TO wa_codigo-matnr.
WHEN '/PWS/CE101'.
MOVE p_nrseqtr TO wa_codigo-nrseqtr.
WHEN '/PWS/CE102'.
MOVE p_nrrota_tr TO wa_codigo-nrrota_tr.
ENDCASE.
APPEND wa_codigo TO p_t_codigo[].
ENDFORM.
*&---------------------------------------------------------------------*
*& Form concatenar_campos
*&---------------------------------------------------------------------*
* --> p_t_codigo text
* --> p_tipo text
* <-- p_codigo text
*----------------------------------------------------------------------*
FORM concatenar_campos
USING
p_t_codigo TYPE t_format_codigo
p_tipo TYPE c
CHANGING
p_codigo TYPE thead-tdname.
DATA: wa_codigo LIKE LINE OF p_t_codigo[].
READ TABLE p_t_codigo[] INTO wa_codigo INDEX 1.
IF sy-subrc = 0.
CASE p_tipo.
WHEN 'FAT'.
MOVE wa_codigo(16) TO p_codigo.
WHEN 'FOR'.
MOVE wa_codigo+16(16) TO p_codigo.
WHEN 'VND'.
MOVE wa_codigo+32(16) TO p_codigo.
WHEN 'VND_VBBK'.
MOVE wa_codigo+32(10) TO p_codigo.
WHEN 'MVKE'.
MOVE wa_codigo+48(24) TO p_codigo.
WHEN 'MATERIAL'.
MOVE wa_codigo+48(18) TO p_codigo.
WHEN '/PWS/CE101'.
MOVE wa_codigo+72(10) TO p_codigo.
WHEN '/PWS/CE102'.
MOVE wa_codigo+82(06) TO p_codigo.
ENDCASE.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRI003
...
WITH NON-UNIQUE KEY sheet
row
column.
TYPES: BEGIN OF s_rows_height_adjust,
row TYPE i,
height TYPE f,
adjust TYPE f,
END OF s_rows_height_adjust,
t_rows_height_adjust TYPE STANDARD TABLE OF s_rows_height_adjust
WITH NON-UNIQUE KEY row.
* >> Início da inclusão: FORM GET_OCCUPIED_ROWS
TYPES: BEGIN OF s_format_codigo,
vbeln_vf TYPE /PWS/ZYCRE018-vbeln_vf,
posnr TYPE /PWS/ZYCRE018-posnr,
vbeln_vl TYPE /PWS/ZYCRE018-vbeln_vl,
posnl TYPE /PWS/ZYCRE018-posnl,
vbeln_va TYPE /PWS/ZYCRE018-vbeln_va,
aupos TYPE /PWS/ZYCRE018-aupos,
matnr TYPE /PWS/ZYCRE018-matnr,
vkorg_auft TYPE /PWS/ZYCRE018-vkorg_auft,
vtweg_auft TYPE /PWS/ZYCRE018-vtweg_auft,
nrseqtr TYPE /PWS/ZYCET046-nrseqtr,
nrrota_tr TYPE /PWS/ZYCRE018-nrrota_tr,
END OF s_format_codigo,
t_format_codigo TYPE STANDARD TABLE OF s_format_codigo.
* << Fim da inclusão
FORM get_occupied_rows
USING
p_string TYPE c
p_width TYPE i
CHANGING
p_row_count TYPE i.
DATA: string_length TYPE i,
string_index TYPE i,
char_lenght TYPE i,
current_char(1) TYPE c,
...
Solução
Criar Forms para buscar os Read texts para exibição nos reports Excel.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03840 Data: 04/06/2007 Hora: 15:44:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03840
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00169
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03696 - 00001 - 7.0 - 00001 - LEITURA DE TEXTOS NOS REPORTS EM EXCEL
----------------------------------------------------------------------------------------------------
EXIBIR TEXTOS NOS REPORTS EXCEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
INCLUDES, REPORT EXCEL, READ TEXT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCRI002
REPS /PWS/ZYCRI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRI002
...
CONCATENATE p_text wa_lines-tdline
INTO p_text
SEPARATED BY space.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
sy-subrc = 0.
ENDIF.
ENDFORM.
* >> Início da inclusão:
*&---------------------------------------------------------------------*
*& Form read_text_report
*&---------------------------------------------------------------------*
* -->P_OBJECT text
* -->P_NRSEQ text
* -->P_ID text
* -->V_LANGU text
* -->P_POSICAO text
* <--P_TEXT text
*----------------------------------------------------------------------*
FORM read_text_report
USING
p_object TYPE thead-tdobject
p_codigo TYPE thead-tdname
p_id TYPE thead-tdid
v_langu
p_posicao
CHANGING
p_text TYPE c.
DATA: p_codigo_aux TYPE thead-tdname,
p_name LIKE sy-repid.
MOVE p_codigo TO p_codigo_aux.
SHIFT p_codigo_aux LEFT DELETING LEADING '0'.
CASE p_posicao.
WHEN 'A'.
CONCATENATE p_codigo_aux 'A' INTO p_codigo_aux.
WHEN 'D'.
CONCATENATE p_codigo_aux 'D' INTO p_codigo_aux.
WHEN OTHERS.
WRITE p_codigo TO p_codigo_aux.
ENDCASE.
CLEAR p_text.
PERFORM get_text_edit_as_field
USING
p_object
p_codigo_aux
p_id
v_langu
CHANGING
p_text.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form format_codigo
*&---------------------------------------------------------------------*
* --> p_documento text
* --> p_item text
* --> p_matnr text
* --> p_vkorg_auft text
* --> p_tweg_auft text
* --> p_nrseqtr text
* --> p_nrrota_tr text
* --> p_tipo text
* <-- p_codigo text
*----------------------------------------------------------------------*
FORM format_codigo
USING
p_documento TYPE /PWS/ZYCRE018-vbeln_vf
p_item TYPE /PWS/ZYCRE018-posnr
p_matnr TYPE /PWS/ZYCRE018-matnr
p_vkorg_auft TYPE /PWS/ZYCRE018-vkorg_auft
p_vtweg_auft TYPE /PWS/ZYCRE018-vtweg_auft
p_nrseqtr TYPE /PWS/ZYCET046-nrseqtr
p_nrrota_tr TYPE /PWS/ZYCET046-nrrota_tr
p_tipo TYPE c
CHANGING
p_t_codigo TYPE t_format_codigo.
DATA: wa_codigo LIKE LINE OF p_t_codigo[].
CASE p_tipo.
WHEN 'FAT'.
MOVE: p_documento TO wa_codigo-vbeln_vf,
p_item TO wa_codigo-posnr.
WHEN 'FOR'.
MOVE: p_documento TO wa_codigo-vbeln_vl,
p_item TO wa_codigo-posnl.
WHEN 'VND'.
MOVE: p_documento TO wa_codigo-vbeln_va,
p_item TO wa_codigo-aupos.
WHEN 'MVKE'.
MOVE: p_matnr TO wa_codigo-matnr,
p_vkorg_auft TO wa_codigo-vkorg_auft,
p_vtweg_auft TO wa_codigo-vtweg_auft.
WHEN 'MATERIAL'.
MOVE p_matnr TO wa_codigo-matnr.
WHEN '/PWS/CE101'.
MOVE p_nrseqtr TO wa_codigo-nrseqtr.
WHEN '/PWS/CE102'.
MOVE p_nrrota_tr TO wa_codigo-nrrota_tr.
ENDCASE.
APPEND wa_codigo TO p_t_codigo[].
ENDFORM.
*&---------------------------------------------------------------------*
*& Form concatenar_campos
*&---------------------------------------------------------------------*
* --> p_t_codigo text
* --> p_tipo text
* <-- p_codigo text
*----------------------------------------------------------------------*
FORM concatenar_campos
USING
p_t_codigo TYPE t_format_codigo
p_tipo TYPE c
CHANGING
p_codigo TYPE thead-tdname.
DATA: wa_codigo LIKE LINE OF p_t_codigo[].
READ TABLE p_t_codigo[] INTO wa_codigo INDEX 1.
IF sy-subrc = 0.
CASE p_tipo.
WHEN 'FAT'.
MOVE wa_codigo(16) TO p_codigo.
WHEN 'FOR'.
MOVE wa_codigo+16(16) TO p_codigo.
WHEN 'VND'.
MOVE wa_codigo+32(16) TO p_codigo.
WHEN 'VND_VBBK'.
MOVE wa_codigo+32(10) TO p_codigo.
WHEN 'MVKE'.
MOVE wa_codigo+48(24) TO p_codigo.
WHEN 'MATERIAL'.
MOVE wa_codigo+48(18) TO p_codigo.
WHEN '/PWS/CE101'.
MOVE wa_codigo+72(10) TO p_codigo.
WHEN '/PWS/CE102'.
MOVE wa_codigo+82(06) TO p_codigo.
ENDCASE.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRI003
...
WITH NON-UNIQUE KEY sheet
row
column.
TYPES: BEGIN OF s_rows_height_adjust,
row TYPE i,
height TYPE f,
adjust TYPE f,
END OF s_rows_height_adjust,
t_rows_height_adjust TYPE STANDARD TABLE OF s_rows_height_adjust
WITH NON-UNIQUE KEY row.
* >> Início da inclusão: FORM GET_OCCUPIED_ROWS
TYPES: BEGIN OF s_format_codigo,
vbeln_vf TYPE /PWS/ZYCRE018-vbeln_vf,
posnr TYPE /PWS/ZYCRE018-posnr,
vbeln_vl TYPE /PWS/ZYCRE018-vbeln_vl,
posnl TYPE /PWS/ZYCRE018-posnl,
vbeln_va TYPE /PWS/ZYCRE018-vbeln_va,
aupos TYPE /PWS/ZYCRE018-aupos,
matnr TYPE /PWS/ZYCRE018-matnr,
vkorg_auft TYPE /PWS/ZYCRE018-vkorg_auft,
vtweg_auft TYPE /PWS/ZYCRE018-vtweg_auft,
nrseqtr TYPE /PWS/ZYCET046-nrseqtr,
nrrota_tr TYPE /PWS/ZYCRE018-nrrota_tr,
END OF s_format_codigo,
t_format_codigo TYPE STANDARD TABLE OF s_format_codigo.
* << Fim da inclusão
FORM get_occupied_rows
USING
p_string TYPE c
p_width TYPE i
CHANGING
p_row_count TYPE i.
DATA: string_length TYPE i,
string_index TYPE i,
char_lenght TYPE i,
current_char(1) TYPE c,
...