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 Z09_005 | sapjoy | 2006.12.18 | 2515 |
509 | REPORT Z15_028 | sapjoy | 2007.02.01 | 2509 |
508 | REPORT Z17_004. | sapjoy | 2007.02.11 | 2508 |
507 | report zsalv_035 . | sapjoy | 2010.08.20 | 2505 |
506 | REPORT Z17_014. [1] | sapjoy | 2007.02.13 | 2503 |
505 | REPORT Z15_005 | sapjoy | 2007.01.31 | 2503 |
504 | REPORT ZDYNAMIC_ITAB_03 | sapjoy | 2009.02.16 | 2501 |
» | REPORT z20_001 | sapjoy | 2007.04.12 | 2499 |
502 | REPORT Z11_008 | sapjoy | 2006.12.22 | 2497 |
501 | REPORT Z15_022. | sapjoy | 2007.01.30 | 2494 |
500 | report zunicode_025. | sapjoy | 2008.11.21 | 2489 |
499 | INCLUDE Z17_011_CLASS | sapjoy | 2007.02.12 | 2489 |
498 | REPORT Z04_004 [7] | sapjoy | 2008.04.14 | 2487 |
497 | REPORT z15_023 | sapjoy | 2007.01.30 | 2484 |
496 | REPORT Z13_020 [2] | sapjoy | 2007.11.29 | 2482 |
495 | report zunicode_007 | sapjoy | 2008.11.21 | 2481 |
494 | REPORT z17_21 . | sapjoy | 2012.08.01 | 2480 |
493 | REPORT ZSAPGOS_001. | sapjoy | 2009.02.11 | 2477 |
492 | report zsalv_002 [1] | sapjoy | 2010.08.20 | 2476 |
491 | REPORT Z04_019 [2] | sapjoy | 2007.05.21 | 2476 |