REPORT z20_001 .
DATA: ok_code LIKE sy-ucomm,
save_ok LIKE sy-ucomm.
DATA: init,
container TYPE REF TO cl_gui_custom_container,
editor TYPE REF TO cl_gui_textedit.
DATA: line(256) TYPE c,
text_tab LIKE STANDARD TABLE OF line,
field LIKE line.
START-OF-SELECTION.
CALL SCREEN 100.
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
IF init is initial.
init = 'X'.
CREATE OBJECT: container EXPORTING container_name = 'TEXTEDIT',
editor EXPORTING parent = container.
ENDIF.
ENDMODULE.
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'INSERT'.
CALL METHOD editor->get_text_as_stream IMPORTING text = text_tab.
WHEN 'F1'.
MESSAGE i888(sabapdocu) WITH text-001.
WHEN OTHERS.
MESSAGE i888(sabapdocu) WITH text-002.
CALL METHOD cl_gui_cfw=>dispatch. "for application events
MESSAGE i888(sabapdocu) WITH text-003.
ENDCASE.
SET SCREEN 100.
ENDMODULE.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
150 | PROGRAM z16_001 | sapjoy | 2007.04.26 | 2952 |
149 | REPORT z20_002 [2] | sapjoy | 2007.04.15 | 3092 |
» | REPORT z20_001 | sapjoy | 2007.04.12 | 2499 |
147 | REPORT z18_028 | sapjoy | 2007.04.09 | 4278 |
146 | REPORT z18_027 | sapjoy | 2007.04.09 | 2315 |
145 | REPORT z19_010 [2] | sapjoy | 2007.04.06 | 2843 |
144 | REPORT z19_005 [1] | sapjoy | 2007.04.03 | 2927 |
143 | REPORT z19_004 | sapjoy | 2007.03.27 | 3230 |
142 | REPORT z19_003 | sapjoy | 2007.03.26 | 2473 |
141 | REPORT z19_002 | sapjoy | 2007.03.24 | 2360 |
140 | REPORT z19_001 | sapjoy | 2007.03.22 | 2551 |
139 | REPORT z18_025 | sapjoy | 2007.03.16 | 2598 |
138 | REPORT z18_022 | sapjoy | 2007.03.16 | 2464 |
137 | REPORT z18_036 | sapjoy | 2007.03.13 | 2631 |
136 | REPORT z18_035 | sapjoy | 2007.03.13 | 2450 |
135 | REPORT z18_019 | sapjoy | 2007.03.12 | 2473 |
134 | REPORT z18_018 [4] | sapjoy | 2007.03.11 | 2462 |
133 | REPORT z18_017 | sapjoy | 2007.03.11 | 2672 |
132 | REPORT z18_014 | sapjoy | 2007.03.09 | 2843 |
131 | REPORT z18_013 [1] | sapjoy | 2007.03.09 | 2585 |