ABAP 双击输入框弹出长文本框

j_h_f

已于 2024-06-27 08:31:55 修改

阅读量188

点赞数 3

分类专栏： ABAP语言文章标签： abap sap

于 2024-06-26 19:23:15 首次发布

本文链接：https://blog.csdn.net/m0_60802154/article/details/139996672

版权

ABAP语言专栏收录该内容

30 篇文章 4 订阅

订阅专栏

ABAP 双击输入框弹出长文本框

开发的时候会碰到输入内容过长，导致看起来很不方便，这个时候就需要用到长文本框了

在这里插入图片描述

设置输入框

选中回应双击事件
在这里插入图片描述

定义 GUI-STATSUS

设置输入框双击事件按钮
在这里插入图片描述

设置按钮功能

调用函数 TERM_CONTROL_EDIT

DATA: ls_table TYPE textlines.
      ls_table-line1 = gv_input .
      APPEND ls_table TO gt_table.

      CALL FUNCTION 'TERM_CONTROL_EDIT'
        EXPORTING
          titel          = '请输入长文本：'
          langu          = sy-langu
        TABLES
          textlines      = gt_table
        EXCEPTIONS
          user_cancelled = 1
          OTHERS         = 2.
      IF sy-subrc <> 0.
      ENDIF.

      CLEAR gv_input.
      LOOP AT gt_table INTO DATA(ls_line).
        gv_input = gv_input && ls_line-line1 && ls_line-line2 && ls_line-line3 && ls_line-line4.
      ENDLOOP.
      REFRESH gt_table.

* 强制触发PBO
      CALL METHOD cl_gui_cfw=>set_new_ok_code( 'RELOAD' ).

完整代码

*&---------------------------------------------------------------------*
*& Report ZTEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest.
DATA gv_input TYPE char255.
DATA: g_container TYPE REF TO cl_gui_custom_container,
      g_editor    TYPE REF TO cl_gui_textedit.
DATA gt_table TYPE TABLE OF textlines.

CALL SCREEN 9000.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
  SET PF-STATUS 'STATUS'.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'CLICK'.
      DATA:    ls_table TYPE textlines.
      ls_table-line1 = gv_input .
      APPEND ls_table TO gt_table.

      CALL FUNCTION 'TERM_CONTROL_EDIT'
        EXPORTING
          titel          = '请输入长文本：'
          langu          = sy-langu
        TABLES
          textlines      = gt_table
        EXCEPTIONS
          user_cancelled = 1
          OTHERS         = 2.
      IF sy-subrc <> 0.
      ENDIF.

      CLEAR gv_input.
      LOOP AT gt_table INTO DATA(ls_line).
        gv_input = gv_input && ls_line-line1 && ls_line-line2 && ls_line-line3 && ls_line-line4.
      ENDLOOP.
      REFRESH gt_table.

* 强制触发PBO
      CALL METHOD cl_gui_cfw=>set_new_ok_code( 'RELOAD' ).

    WHEN OTHERS.
  ENDCASE.

ENDMODULE.