CE PLUS - Nota 003696
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: CE Reports
Data/Hora da Publicação: 17/05/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 17:34:50
Descrição da Nota: LEITURA DE TEXTOS NOS REPORTS EM EXCEL
Sintoma
Não havia nenhuma rotina para facilitar a leitura dos textos SAPScript.
Solução
Foi incluído um form, comum a todos os reports, para realizar a leitura de um texto.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03696 Data: 17/05/2007 Hora: 08:56:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03696
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03268 - 00001 - 6.0 - 00026 - GERADOR DE REPORTS EM EXCEL
----------------------------------------------------------------------------------------------------
LEITURA DE TEXTOS NOS REPORTS EM EXCEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
TEXTO REPORT EXCEL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCRI002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRI002
...
* >> Início da inclusão: (no final do include)
FORM get_text_edit_as_field
USING
p_object TYPE thead-tdobject
p_name TYPE thead-tdname
p_id TYPE thead-tdid
p_language TYPE thead-tdspras
CHANGING
p_text TYPE c.
DATA: it_lines TYPE STANDARD TABLE OF tline,
wa_lines LIKE LINE OF it_lines.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = p_id
language = p_language
name = p_name
object = p_object
TABLES
lines = it_lines[]
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
CLEAR p_text.
LOOP AT it_lines INTO wa_lines.
IF p_text IS INITIAL.
p_text = wa_lines-tdline.
CONTINUE.
ENDIF.
CONCATENATE p_text wa_lines-tdline
INTO p_text
SEPARATED BY space.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
sy-subrc = 0.
ENDIF.
ENDFORM.
* << Fim da inclusão