当前位置：首页 > news >正文

SAP 长文本弹窗函数及控件使用

news 2025/10/25 12:52:20

函数 TXW_TEXTNOTE_EDIT 最大显示长度 132
edit_mode = '' 传 ‘X’ 可编辑传空值不可编辑

  DATA lt_note TYPE TABLE OF tdline.CALL FUNCTION 'TXW_TEXTNOTE_EDIT'EXPORTINGedit_mode = ''TABLESt_txwnote = lt_note.

效果图

函数 TERM_CONTROL_EDIT 可传入 LANGU 字段显示不同效果
虽然传入的表是CHAR类型但是最大显示长度依然是132

  DATA:lt_textlines TYPE string_table WITH HEADER LINE.CALL FUNCTION 'ZTERM_CONTROL_EDIT'EXPORTINGtitel          = '越南语描述'langu          = 'R'TABLEStextlines      = lt_textlinesEXCEPTIONSuser_cancelled = 1OTHERS         = 2.IF sy-subrc <> 0.ENDIF.

LANGU 传 R

LANGU 不传值或者不传R传其他值

这种可能要自行拆解字符串显示一行应该是74 个字符

画屏幕控件显示、

首先创建屏幕
让后画屏幕控件

全局变量定义

*定制控制 编辑对象定义
DATA go_container TYPE REF TO cl_gui_custom_container.
DATA go_editor TYPE REF TO cl_gui_textedit.
DATA lv_tabindex TYPE  slis_selfield-tabindex.
DATA: init,m1(256)   TYPE c OCCURS 0,line(256) TYPE c.
DATA: ok_code TYPE sy-ucomm,save_ok LIKE ok_code.

PBO

MODULE status_0200 OUTPUT.SET PF-STATUS 'ZTEXT'.CLEAR m1[].IF init IS INITIAL.init = 'X'.CREATE OBJECT: go_container EXPORTING container_name = 'CUST'. " cust为控件名称CREATE OBJECT go_editorEXPORTINGparent                     = go_containerwordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_positionwordwrap_position          = 74wordwrap_to_linebreak_mode = cl_gui_textedit=>true.ENDIF.*  READ TABLE gt_alv ASSIGNING FIELD-SYMBOL(<fs_alv>) INDEX lv_tabindex.
*  DATA lv_encoding TYPE  abap_encoding .
*  DATA lv_upload_file  TYPE xstring.
*  DATA lv_out_string  TYPE string.
*  lv_encoding = '8404'.
*  lv_out_string = <fs_alv>-zynmatkx.APPEND lv_out_string TO m1.
*设置文本框初始内容CALL METHOD go_editor->set_text_as_r3tableEXPORTINGtable = m1.ENDMODULE.

PAI

MODULE user_command_0200 INPUT.
*  DATA save_ok TYPE sy-ucomm.DATA: lt_jsondata_end    TYPE STANDARD TABLE OF char256.
*获取编辑后的内容CALL METHOD go_editor->get_text_as_r3tableIMPORTINGtable = lt_jsondata_end.save_ok = ok_code.CLEAR ok_code.CASE save_ok.WHEN 'EXIT'.LEAVE TO SCREEN 0.ENDCASE.ENDMODULE.