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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
510 | REPORT z12_05. | sapjoy | 2012.07.30 | 1159 |
509 | REPORT z12_30. | sapjoy | 2012.07.30 | 1160 |
508 | Report Z15_02 | sapjoy | 2012.08.01 | 1164 |
507 | PROGRAM z13_03. | sapjoy | 2012.08.01 | 1165 |
506 | REPORT z05_01. [3] | sapjoy | 2012.07.30 | 1170 |
505 | REPORT z15_15. | sapjoy | 2012.08.01 | 1170 |
504 | REPORT z15_13. | sapjoy | 2012.08.01 | 1181 |
503 | REPORT z15_03. | sapjoy | 2012.08.01 | 1182 |
502 | REPORT z16_05. | sapjoy | 2012.08.01 | 1183 |
501 | REPORT z16_10. | sapjoy | 2012.08.01 | 1183 |
500 | PROGRAM z13_02. | sapjoy | 2012.08.01 | 1185 |
499 | REPORT z15_25. [1] | sapjoy | 2012.08.01 | 1192 |
498 | report Z12_33 | sapjoy | 2012.07.30 | 1193 |
497 | REPORT z15_20. | sapjoy | 2012.08.01 | 1204 |
496 | REPORT z12_27. | sapjoy | 2012.07.30 | 1208 |
495 | REPORT z15_23. [1] | sapjoy | 2012.08.01 | 1216 |
494 | REPORT z15_17. [1] | sapjoy | 2012.08.01 | 1219 |
493 | REPORT Z12_22 | sapjoy | 2012.07.30 | 1226 |
492 | REPORT z16_04. | sapjoy | 2012.08.01 | 1246 |
491 | REPORT z15_12. | sapjoy | 2012.08.01 | 1295 |