CE PLUS - Nota 011161
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 17/05/2011 00:00:00
Data/Hora Última Alteração: 19/05/2011 09:11:23
Descrição da Nota: TEXTO PRÉ-CONFIGURADO NA TABELA /PWS/ZYCIT104
Sintoma
Quando é utilizado um texto pré-configurado na tabela /PWS/ZYCIT104, o texto trazido para as
mensagens complementares da DI fica desconfigurado.
Solução
Atualizado programa para configurar as linhas de mensagem conforme parametrizadas
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11161 Data: 17/05/2011 Hora: 14:35:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11161
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00071
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
TEXTO PRÉ-CONFIGURADO NA TABELA /PWS/ZYCIT104
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM COMPLEMENTAR DA DI DESCONFIGURADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCIGF1OBS
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF1OBS
...
DATA: BEGIN OF ittxt OCCURS 50,
* >> Início da exclusão:
line(72),
* << Fim da exclusão
* >> Início da inclusão:
line(65),
* << Fim da inclusão
END OF ittxt.
...
...
PERFORM txt_editor_to_itab.
READ TABLE top_txtitab INDEX from_line.
IF sy-subrc EQ 0.
txt1 = 73 - from_pos.
txt2 = from_pos - 1.
txt5 = from_line + 1.
txt7 = strlen( dinitens-ftext ).
txt6 = 71 - txt7.
IF from_pos > txt6.
* >> Início da exclusão: FORM ADD_TEXT
IF from_pos GE 72.
* << Fim da exclusão
* >> Início da inclusão: FORM ADD_TEXT
IF from_pos GE 65.
* << Fim da inclusão
top_txtitab-tdline = dinitens-ftext.
ELSE.
CONCATENATE dinitens-ftext
top_txtitab-tdline+txt2(txt1) INTO
txtline.
top_txtitab-tdline = top_txtitab-tdline(txt2).
MODIFY top_txtitab INDEX from_line.
top_txtitab-tdline = txtline.
ENDIF.
top_txtitab-tdformat = '*'.
...
...
IF txt2 = 0.
CONCATENATE dinitens-ftext
top_txtitab-tdline+txt2(txt1) INTO
txtline.
ELSE.
CONCATENATE top_txtitab-tdline(txt2) dinitens-ftext
top_txtitab-tdline+txt2(txt1) INTO
txtline.
ENDIF.
txt3 = strlen( txtline ).
* >> Início da exclusão: FORM ADD_TEXT
top_txtitab-tdline = txtline(72).
* << Fim da exclusão
* >> Início da inclusão: FORM ADD_TEXT
top_txtitab-tdline = txtline(65).
* << Fim da inclusão
MODIFY top_txtitab INDEX from_line.
* >> Início da exclusão: FORM ADD_TEXT
IF txt3 > 72.
* << Fim da exclusão
* >> Início da inclusão: FORM ADD_TEXT
IF txt3 > 65.
* << Fim da inclusão
txt4 = 100 - txt3.
top_txtitab-tdformat = '*'.
* >> Início da exclusão: FORM ADD_TEXT
top_txtitab-tdline = txtline+72(txt4).
* << Fim da exclusão
* >> Início da inclusão: FORM ADD_TEXT
top_txtitab-tdline = txtline+65(txt4).
* << Fim da inclusão
INSERT top_txtitab INDEX txt5.
ENDIF.
ENDIF.
ENDIF.
PERFORM txt_itab_to_editor.
CALL METHOD editor->set_text_as_r3table EXPORTING
table = ittxt[].
ENDIF.
ENDFORM.
...
...
SET PF-STATUS 'ALV_STATUS'.
SET TITLEBAR '909' WITH <name>.
WRITE sy-repid TO vrepid.
CREATE OBJECT editcontainer EXPORTING
container_name = 'CC_EDITOR'
repid = vrepid
dynnr = '9099'.
CREATE OBJECT editor EXPORTING
parent = editcontainer
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
* >> Início da exclusão: MODULE STATUS_9099
wordwrap_position = 72
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_9099
wordwrap_position = 65
* << Fim da inclusão
max_number_chars = 100000.
PERFORM txt_itab_to_editor.
CALL METHOD editor->set_text_as_r3table EXPORTING
table = ittxt[].
CALL METHOD editor->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ENDIF.
...
...
loc_txthead-tdname = extract(loc_contar).
SELECT SINGLE tdobject FROM ttxob INTO loc_obj WHERE
tdobject = p_module.
IF sy-subrc NE 0.
DATA: loc_ttxob LIKE ttxob,
loc_ttxid LIKE ttxid.
loc_ttxob-tdobject = p_module.
loc_ttxob-tdsavemode = 'D'.
* >> Início da exclusão: FORM ZDHO_ALV_TEXT
loc_ttxob-tdlinesize = 72.
* << Fim da exclusão
* >> Início da inclusão: FORM ZDHO_ALV_TEXT
loc_ttxob-tdlinesize = 65.
* << Fim da inclusão
ENDIF.
SELECT SINGLE tdobject FROM ttxid INTO loc_obj WHERE
tdobject = p_module AND
tdid = loc_txthead-tdid.
IF sy-subrc NE 0.
loc_ttxid-tdobject = p_module.
loc_ttxid-tdid = loc_txthead-tdid.
loc_ttxid-tdshowname = 'X'.
ENDIF.
...
...
FORM gera_programa_opendataset.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
DATA: t_prog(65) TYPE c OCCURS 1000 WITH HEADER LINE.
* << Fim da inclusão
DATA: w_prog LIKE trdir-name,
idmemory1 LIKE indx-srtfd VALUE 'IDTXT',
v_string TYPE string .
...
...
APPEND 'TOOLBAR TYPE REF TO CL_GUI_TOOLBAR,' TO t_prog.
APPEND 'edfcode TYPE ui_func,' TO t_prog. "#EC NOTEXT
APPEND 'v_submenu type ref to cl_ctmenu,' TO t_prog.
CLEAR v_string.
CONCATENATE 'TOOL_CONTAINER TYPE SCRFNAME VALUE ' text-002 INTO
v_string SEPARATED BY space.
APPEND v_string TO t_prog.
APPEND 'data: begin of dinitens occurs 0,' TO t_prog.
APPEND 'fcode(70), fdesc(40), ftext(15), end of dinitens.' TO t_prog.
APPEND 'data: begin of ittxt occurs 50, ' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND 'line(72),' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND 'line(65),' TO t_prog.
* << Fim da inclusão
APPEND 'end of ittxt.' TO t_prog.
APPEND 'data: top_txtitab like tline occurs 50 with header line,' TO
t_prog.
CLEAR v_string.
CONCATENATE 'idmemory1 LIKE indx-srtfd VALUE ' text-008 ',' INTO
v_string SEPARATED BY space. "#EC NOTEXT
APPEND v_string TO t_prog.
CLEAR v_string.
CONCATENATE 'idmemory2 LIKE indx-srtfd VALUE ' text-009 ',' INTO
v_string SEPARATED BY space. "#EC NOTEXT
...
...
APPEND 'TABLE = ittxt[].' TO t_prog. "#EC NOTEXT
APPEND ' perform txt_editor_to_itab.' TO t_prog.
APPEND ' read table top_txtitab index from_line.' TO t_prog.
APPEND ' if sy-subrc eq 0.' TO t_prog.
APPEND ' txt1 = 73 - from_pos.' TO t_prog.
APPEND ' txt2 = from_pos - 1.' TO t_prog.
APPEND ' txt5 = from_line + 1.' TO t_prog.
APPEND ' txt7 = strlen( dinitens-ftext ).' TO t_prog.
APPEND ' txt6 = 71 - txt7.' TO t_prog.
APPEND ' if from_pos > txt6.' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' if from_pos ge 72.' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' if from_pos ge 65.' TO t_prog.
* << Fim da inclusão
APPEND ' top_txtitab-tdline = dinitens-ftext.' TO t_prog.
APPEND ' else.' TO t_prog.
APPEND ' concatenate dinitens-ftext' TO t_prog.
APPEND ' top_txtitab-tdline+txt2(txt1) into' TO t_prog.
APPEND ' txtline.' TO t_prog.
APPEND ' top_txtitab-tdline = top_txtitab-tdline(txt2).' TO t_prog.
APPEND ' modify top_txtitab index from_line.' TO t_prog.
APPEND ' top_txtitab-tdline = txtline.' TO t_prog.
APPEND ' endif.' TO t_prog.
CLEAR v_string.
...
...
APPEND ' if txt2 = 0.' TO t_prog.
APPEND ' concatenate dinitens-ftext' TO t_prog.
APPEND ' top_txtitab-tdline+txt2(txt1) into' TO t_prog.
APPEND ' txtline.' TO t_prog.
APPEND ' else.' TO t_prog.
APPEND ' concatenate top_txtitab-tdline(txt2) dinitens-ftext' TO t_prog.
APPEND ' top_txtitab-tdline+txt2(txt1) into' TO t_prog.
APPEND ' txtline.' TO t_prog.
APPEND ' endif.' TO t_prog.
APPEND ' txt3 = strlen( txtline ).' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' top_txtitab-tdline = txtline(72).' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' top_txtitab-tdline = txtline(65).' TO t_prog.
* << Fim da inclusão
APPEND ' modify top_txtitab index from_line.' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' if txt3 > 72.' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' if txt3 > 65.' TO t_prog.
* << Fim da inclusão
APPEND ' txt4 = 100 - txt3.' TO t_prog.
CLEAR v_string.
CONCATENATE 'top_txtitab-tdformat = ' text-005 INTO v_string
SEPARATED BY space.
APPEND v_string TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' top_txtitab-tdline = txtline+72(txt4).' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' top_txtitab-tdline = txtline+65(txt4).' TO t_prog.
* << Fim da inclusão
APPEND ' INSERT top_txtitab index txt5.' TO t_prog. "#EC NOTEXT
APPEND ' endif.' TO t_prog.
APPEND ' endif.' TO t_prog.
APPEND ' endif.' TO t_prog.
APPEND ' perform txt_itab_to_editor. ' TO t_prog.
APPEND 'CALL METHOD EDITOR->SET_TEXT_AS_R3TABLE EXPORTING' TO t_prog.
APPEND 'TABLE = ittxt[].' TO t_prog.
APPEND 'endif.' TO t_prog.
APPEND 'endform.' TO t_prog.
APPEND 'FORM txt_editor_to_itab.' TO t_prog. "#EC NOTEXT
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
APPEND ittxt2.
ENDLOOP.
ELSE.
LOOP AT it_words.
CONCATENATE v_txta it_words-word INTO v_txta
SEPARATED BY space.
ENDLOOP.
v_lena = strlen( v_txta ).
ittxt2-line = v_txta(66).
APPEND ittxt2.
* >> Início da exclusão: FORM FILL_TEXT_COMPL
IF v_lena > 65.
ittxt2-line = v_txta+65(35).
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_TEXT_COMPL
IF v_lena > 66.
ittxt2-line = v_txta+66(34).
* << Fim da inclusão
APPEND ittxt2.
ENDIF.
ENDIF.
ELSE.
LOOP AT it_words_app.
ittxt2-line = it_words_app-word.
APPEND ittxt2.
ENDLOOP.
ENDIF.
ENDLOOP.
...