메뉴 건너뛰기

SAP 한국 커뮤니티

REPORT z20_001

sapjoy 2007.04.12 16:13 조회 수 : 2499

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.

번호 제목 글쓴이 날짜 조회 수
510 REPORT z15_04. sapjoy 2012.08.01 1157
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 1190
498 report Z12_33 sapjoy 2012.07.30 1193
497 REPORT z15_20. sapjoy 2012.08.01 1196
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 z12_06. sapjoy 2012.07.30 1294