ABAP 长文本编辑器

加个屏幕

*&---------------------------------------------------------------------*
*& Report YDEMO2
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ydemo2." 长文本对象容器
DATA: gr_ctn_text TYPE REF TO cl_gui_custom_container,gr_textedit TYPE REF TO cl_gui_textedit,gt_tline    TYPE STANDARD TABLE OF tline,gs_tline    TYPE tline,gs_thead    TYPE thead,gt_textline TYPE TABLE OF textline,gv_edit     TYPE c.CALL SCREEN 9001.*&---------------------------------------------------------------------*
*& Module STATUS_9001 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9001 OUTPUT.gs_thead = VALUE #( tdid     = 'Z001'tdname   = '10000001'tdspras  = '1'tdobject = 'ZGTS01' ).PERFORM frm_set_ltext.ENDMODULE.*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9001 INPUT.PERFORM frm_save_ltext.ENDMODULE.*&---------------------------------------------------------------------*
*& Form frm_set_ltext
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_set_ltext .*&-- 构建容器和文本框IF gr_ctn_text IS INITIAL.gr_ctn_text = NEW #( container_name = 'CC_BZ' ).gr_textedit = NEW #( wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_positionwordwrap_to_linebreak_mode = cl_gui_textedit=>trueparent                     = gr_ctn_text )." 去掉状态栏和工具栏gr_textedit->set_statusbar_mode( statusbar_mode = cl_gui_textedit=>false ).gr_textedit->set_toolbar_mode( toolbar_mode  = cl_gui_textedit=>false )." 显示/编辑gr_textedit->set_readonly_mode( readonly_mode = COND #( WHEN gv_edit = 'X' THEN '0'ELSE '1' ) ).ENDIF.*&-- 全局文本IF gt_tline IS INITIAL." 读取初始长文本CALL FUNCTION 'READ_TEXT'EXPORTINGid       = gs_thead-tdidlanguage = gs_thead-tdsprasname     = gs_thead-tdnameobject   = gs_thead-tdobjectTABLESlines    = gt_tlineEXCEPTIONSOTHERS   = 1.IF gt_tline IS NOT INITIAL." 转换流文本CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'EXPORTINGlanguage    = '1'TABLESitf_text    = gt_tlinetext_stream = gt_textlineEXCEPTIONSOTHERS      = 1." 回显编辑框gr_textedit->set_text_as_stream( text = gt_textline ).ENDIF.ENDIF.ENDFORM.*&---------------------------------------------------------------------*
*& Form frm_save_ltext
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_save_ltext .DATA: lv_input_check TYPE c,lv_subrc       TYPE i,lt_table       TYPE STANDARD TABLE OF tdline,lv_modify      TYPE i.*&-- 写入长文本CALL METHOD gr_textedit->get_text_as_r3table(IMPORTINGtable       = lt_tableis_modified = lv_modify).IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.EXIT.ELSEIF lv_modify = 1.CLEAR gt_tline[].LOOP AT lt_table INTO gs_tline-tdline.APPEND gs_tline TO gt_tline.ENDLOOP.
*&-- 调用方法创建保存文本对象CALL FUNCTION 'CREATE_TEXT'EXPORTINGfid       = gs_thead-tdidflanguage = gs_thead-tdsprasfname     = gs_thead-tdnamefobject   = gs_thead-tdobjectTABLESflines    = gt_tlineEXCEPTIONSno_init   = 1no_save   = 2OTHERS    = 3.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.EXIT.ENDIF.ENDIF.ENDFORM.

效果