ABAP文本錄入(Editor Container)

ABAP GUI 编辑器操作指南

最新推荐文章于 2024-04-23 09:34:32 发布

原创最新推荐文章于 2024-04-23 09:34:32 发布 · 801 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#command #output #input #testing #user

本文介绍了一个使用 ABAP 开发的 GUI 应用程序，该应用程序包括初始化编辑器、处理用户命令等功能。用户可以进行保存、清除、打印等操作。

*&---------------------------------------------------------------------*
*&  Include           ZINC_703
*&---------------------------------------------------------------------*
TABLES: USR01.

DATA: ECON TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      EDITOR TYPE REF TO CL_GUI_TEXTEDIT.
DATA: ETABLE(256) TYPE C OCCURS 0.   "NO HEADER LINE沒有表頭的內表
DATA: WA_ETABLE LIKE LINE OF ETABLE.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0703  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0703 OUTPUT.
  SET PF-STATUS 'TESTING'.
  SET TITLEBAR '0703'.
  IF ECON IS INITIAL.
      CREATE OBJECT ECON
        EXPORTING
           CONTAINER_NAME = 'ELONG'.
      CREATE OBJECT EDITOR
        EXPORTING
          PARENT = ECON
          WORDWRAP_MODE = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
          WORDWRAP_POSITION = 256
          WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
      CALL METHOD EDITOR->SET_FOCUS
        EXPORTING
          CONTROL = EDITOR.
      "--READ INITIAL DATA
   ENDIF.

ENDMODULE.                 " STATUS_0703  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0703  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0703 INPUT.
  OK_CODE = SY-UCOMM.
  CLEAR: SY-UCOMM.
    CASE OK_CODE.
      WHEN 'BACK' OR 'RETURN' OR 'CANCEL'.
          LEAVE TO SCREEN 0.
      WHEN 'SAV'.
          CALL METHOD EDITOR->GET_TEXT_AS_R3TABLE
             IMPORTING
               TABLE = ETABLE.
          MESSAGE 'SAVE DATA SUCCESSFULLY' TYPE 'S'.
      WHEN 'CLR'.
          CLEAR: ETABLE[].
          CALL METHOD EDITOR->SET_TEXT_AS_R3TABLE
             EXPORTING
               TABLE = ETABLE.
          MESSAGE 'CLEAR DATA SUCCESSFULLY' TYPE 'S'.
      WHEN 'PRIS'.  "PRINT SMARTFORM
        IF ETABLE[] IS NOT INITIAL.
          PERFORM SUB_SET_PRINTER_CONTROL USING '1' 'X' '' 'E'.  "pcopies,preview,print no dialog,print language
          PERFORM SUB_BEGIN_PRINTER_MODULE USING 'ZSMART_TEST_EDIT'.
          PERFORM SUB_CALL_OPENFORM.
          PERFORM SUB_BEGIN_PRINTER.  "LOOP
          PERFORM SUB_CALL_CLOSEFORM.
*          if JOB_OUTPUT_INFO-OUTPUTDONE = 'X'.   "print result
*            ...
*          endif.
        ELSE.
          MESSAGE 'NO DATA, PLEASE SAVE DATA !' TYPE 'S'.
        ENDIF.
      WHEN 'PRIF'.   "PRINT FORM
        IF ETABLE[] IS NOT INITIAL.
          PERFORM SUB_FORM_OPEN USING 'ZSCREEN_TESTFORM' '1' 'X' 'X' 'E'. "FORM_NAME "pcopies,preview,print dialog,print language
          PERFORM SUB_FORM_WRITE_DATA.
          PERFORM SUB_FORM_CLOSE.
        ELSE.
          MESSAGE 'NO DATA, PLEASE SAVE DATA !' TYPE 'S'.
        ENDIF.
      WHEN OTHERS.
        ...
    ENDCASE.
  CLEAR: OK_CODE.
ENDMODULE.                 " USER_COMMAND_0703  INPUT