ABAP 文本编辑框

海阔天空092

已于 2023-09-18 09:48:10 修改

阅读量364

点赞数

文章标签：开发语言

于 2023-06-21 17:43:44 首次发布

本文链接：https://blog.csdn.net/qq_40463305/article/details/131332159

版权

*&---------------------------------------------------------------------*
*& Report ZTEST_12
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest_12.

DATA: ok_code TYPE sy-ucomm,
      save_ok LIKE ok_code.

*定制控制 编辑对象定义
DATA go_container TYPE REF TO cl_gui_custom_container.
DATA go_editor TYPE REF TO cl_gui_textedit.

DATA: init,
      m1(256)   TYPE c OCCURS 0,
      line(256) TYPE c.

START-OF-SELECTION.

  CALL SCREEN 100.

** 获取文本框内容
*  CALL METHOD go_editor->get_text_as_r3table
*    IMPORTING
*      table = m1.


*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.

  SET PF-STATUS 'ZTEST'.

*  SET TITLEBAR 'xxx'.
  IF init IS INITIAL.
    init = 'X'.
    CREATE OBJECT: go_container EXPORTING container_name = 'CUST'.

    CREATE OBJECT go_editor
      EXPORTING
        parent                     = go_container
        wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
        wordwrap_position          = 256
        wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
  ENDIF.
*设置文本框初始内容
  CALL METHOD go_editor->set_text_as_r3table
    EXPORTING
      table = m1.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  DATA: lt_jsondata_end    TYPE STANDARD TABLE OF char256.

 *获取编辑后的内容
      CALL METHOD go_editor->get_text_as_r3table
        IMPORTING
          table = lt_jsondata_end.

  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

创建屏幕100 ，并绘制contain name ,命名为CUST