SAP 文本框实例

SAP 文本框 简单实例

 REPORT ZTEST001.

 DATA: OK_CODE LIKE SY-UCOMM,
       SAVE_OK LIKE SY-UCOMM.

 DATA: REF_EDIT_CTN TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       REF_EDIT     TYPE REF TO CL_GUI_TEXTEDIT.

 TYPES: OUTTXT().
 DATA: GTLINE TYPE STANDARD TABLE OF OUTTXT,
       GWLINE TYPE OUTTXT.
 *----------------------------------------------------------------------*
 * SCREEN                                                               *
 *----------------------------------------------------------------------*
 *PARAMETERS PARA TYPE CHAR10.

 *----------------------------------------------------------------------*
 * START-OF-SELECTION.                                                  *
 *----------------------------------------------------------------------*
 START-OF-SELECTION.

  CALL SCREEN .

  CALL METHOD REF_EDIT->GET_TEXT_AS_R3TABLE
 *   EXPORTING
 *     ONLY_WHEN_MODIFIED     = FALSE
    IMPORTING
      TABLE                  = GTLINE
 *     IS_MODIFIED            =
 *   EXCEPTIONS
 *     ERROR_DP               = 1
 *     ERROR_CNTL_CALL_METHOD = 2
 *     ERROR_DP_CREATE        = 3
 *     POTENTIAL_DATA_LOSS    = 4
 *     OTHERS                 = 5
          .
  IF SY-SUBRC <> .
 *  Implement suitable error handling here
  ENDIF.

  LOOP AT GTLINE INTO GWLINE.
    WRITE:/ GWLINE.
  ENDLOOP.

 *----------------------------------------------------------------------*
 *                                                                      *
 *----------------------------------------------------------------------*
 *&---------------------------------------------------------------------*
 *&      Module  STATUS_0100  OUTPUT
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 MODULE STATUS_0100 OUTPUT.
   SET PF-STATUS 'ZTEST001_GS'.
 *  SET TITLEBAR ''.

   CHECK REF_EDIT IS INITIAL.

   CREATE OBJECT REF_EDIT_CTN
     EXPORTING
 *      PARENT                      =
       CONTAINER_NAME               = 'C'
 *      STYLE                       =
 *      LIFETIME                    = lifetime_default
 *      REPID                       =
 *      DYNNR                       =
 *      NO_AUTODEF_PROGID_DYNNR     =
 *    EXCEPTIONS
 *      CNTL_ERROR                  = 1
 *      CNTL_SYSTEM_ERROR           = 2
 *      CREATE_ERROR                = 3
 *      LIFETIME_ERROR              = 4
 *      LIFETIME_DYNPRO_DYNPRO_LINK = 5
 *      OTHERS                      = 6
       .
   IF SY-SUBRC <> .
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.

   CREATE OBJECT REF_EDIT
     EXPORTING
 *      MAX_NUMBER_CHARS       =
 *      STYLE                  = 0
       WORDWRAP_MODE          = cl_gui_textedit=>WORDWRAP_AT_FIXED_POSITION
       WORDWRAP_POSITION      = -
       WORDWRAP_TO_LINEBREAK_MODE = cl_gui_textedit=>true
 *      FILEDROP_MODE          = DROPFILE_EVENT_OFF
       PARENT                 = REF_EDIT_CTN
 *      LIFETIME               =
 *      NAME                   =
 *    EXCEPTIONS
 *      ERROR_CNTL_CREATE      = 1
 *      ERROR_CNTL_INIT        = 2
 *      ERROR_CNTL_LINK        = 3
 *      ERROR_DP_CREATE        = 4
 *      GUI_TYPE_NOT_SUPPORTED = 5
 *      OTHERS                 = 6
       .
   IF SY-SUBRC <> .
 *   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 *              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.

 ENDMODULE.
 *&---------------------------------------------------------------------*
 *&      Module  USER_COMMAND_0100  INPUT
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 MODULE USER_COMMAND_0100 INPUT.

   SAVE_OK = OK_CODE.

   CASE SAVE_OK.
     WHEN 'BACK' OR 'EXIT'.
       LEAVE TO SCREEN .
     WHEN 'CANC'.
       LEAVE TO SCREEN .
     WHEN 'CLR'.
       CLEAR GTLINE[].

       CALL METHOD REF_EDIT->SET_TEXT_AS_R3TABLE
         EXPORTING
           TABLE           = GTLINE
         EXCEPTIONS
           ERROR_DP        =
           ERROR_DP_CREATE =
           OTHERS          =
               .
       IF SY-SUBRC <> .
 *       Implement suitable error handling here
       ENDIF.

   ENDCASE.
 ENDMODULE.