Skip to Content
0
Former Member
Apr 07, 2010 at 05:55 AM

Module Pool Text Editor Problem

81 Views

Hi

I have developed module pool program which has 3 tab strips. In the last (3rd) Tab Strip I need to input Long Text. I have the done the coding but when I go to the Last tab and then come back to any other tabs, the text editor is overwriting the other fields in the other tabs. Can any tell how to solve this problem

This is he code I have written

****90000******Screen

PROCESS BEFORE OUTPUT.

MODULE status_9000.

MODULE modify_screen9000.

  • module test_me.

LOOP AT t_operation INTO s_operation WITH CONTROL toperation.

MODULE move_data.

MODULE modiy_screentblctrl.

ENDLOOP.

CALL SUBSCREEN sub1 INCLUDING sy-repid '9001'.

CALL SUBSCREEN sub2 INCLUDING sy-repid '9002'.

CALL SUBSCREEN sub3 INCLUDING sy-repid '9003'.

PROCESS AFTER INPUT.

MODULE cancel AT EXIT-COMMAND.

CHAIN.

FIELD zaodheader-heatnum MODULE check_heatnumber.

ENDCHAIN.

LOOP AT t_operation.

MODULE update_itab.

ENDLOOP.

MODULE user_command_9000.

CALL SUBSCREEN sub1.

CALL SUBSCREEN sub2.

CALL SUBSCREEN sub3.

**************************************

**************9003*****

PROCESS BEFORE OUTPUT.

  • MODULE STATUS_9003.

MODULE display_texteditor.

*

PROCESS AFTER INPUT.

  • MODULE USER_COMMAND_9003.

**************9003*****

DATA : ccont TYPE REF TO cl_gui_custom_container,

tedit TYPE REF TO cl_gui_textedit.

MODULE display_texteditor OUTPUT.

CREATE OBJECT ccont

EXPORTING

  • parent =

container_name = 'CC'

  • style =

  • lifetime = lifetime_default

  • repid =

  • dynnr =

  • no_autodef_progid_dynnr =

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5

OTHERS = 6 .

IF sy-subrc <> 0.

ENDIF.

CREATE OBJECT tedit

EXPORTING

  • max_number_chars =

  • style = 0

  • wordwrap_mode = wordwrap_at_windowborder

  • wordwrap_position = -1

  • wordwrap_to_linebreak_mode = false

  • filedrop_mode = dropfile_event_off

parent = ccont

  • lifetime =

  • name =

EXCEPTIONS

error_cntl_create = 1

error_cntl_init = 2

error_cntl_link = 3

error_dp_create = 4

gui_type_not_supported = 5

OTHERS = 6.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " DISPLAY_TEXTEDITOR OUTPUT

Edited by: kumar1819 on Apr 7, 2010 8:05 AM

Solved