TEXT长文本的编写
大家在编程过程中,一定经常用到READ_TEXT这个函数来读取长文本,下面我介绍的是如果自己定义一个长文本object和ID,自己储存长文本。
在项目中,做了很多功能性开发,用户要写一些备注或者是审批意见和建议,自定义表里面储存字段的长度是有限的,这个时候能自定义长文本就很实用了。
第一步:建长文本的OBJECT,TCODE SE75,选择‘文本对象和识别码’,点击change,这个时候就会看到SAP系统中存在的所有长文本OBJECT,点‘新建’,输入文本对象,描述,选择保存状态是更新,选择编辑器应用格式是TA,行宽选一下,回车,搞定
第二步:建长文本的ID,双击刚刚创建的OBJECT,点新建,就可以创建ID了
第三步:先READ_TEXT,如果sy-subrc = 0,说明可以读到,如果不等于0,就说明还没有写长文本,那就可以用INIT_TEXT函数先初始化一下,再EDIT_TEXT编辑一下,最后SAVE_TEXT保存一下就OK了.
长文本的编辑能做到:第二次编辑的时候,第一次编辑的内容都是灰色的,这样就可以用来写审批意见。也可以做到,第二次编辑的时候,第一次的编辑也可以修改,这由几个参数决定。
SAP的标准例子:SDTEXTE,可以参考
--------------------------------------------------------------------------------------
在屏幕上加一个custom control name ZCBOX
PBO事件 显示长文本编辑框
module mod_custom_control output. data: lv_dmode type xfeld. "Display mode. ** Get display mode. if t340-trtyp = 'H'. lv_dmode = space. elseif t340-trtyp = 'V'. lv_dmode = space. elseif t340-trtyp = 'A'. lv_dmode = 'X'. endif. ** Get what input in the textedit. perform frm_read_text. ** Text editor set. call function 'RH_EDITOR_SET' exporting repid = sy-repid dynnr = sy-dynnr controlname = 'ZCBOX' max_cols = 79 show_tool = 'X' show_status = 'X' display_mode = lv_dmode tables lines = gt_lines exceptions create_error = 1 internal_error = 2 others = 3. endmodule. " MOD_CUSTOM_CONTROL OUTPUT
form frm_read_text . data: lv_name like thead-tdname. "Name. ** Object name. clear: lv_name. lv_name = mgef-stoff. ** Read text. if gv_enter_flg eq 'X'. clear gt_lines. call function 'RH_EDITOR_GET' exporting controlname = 'ZCBOX' tables lines = gt_lines exceptions internal_error = 1 others = 2. clear gv_enter_flg. else. call function 'READ_TEXT' exporting id = 'ZHAZ' language = 'E' name = lv_name object = 'ZHAZARDMAT' tables lines = gt_text exceptions id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 others = 8. if sy-subrc eq 0. ** Transfer text. loop at gt_text into gs_text. gs_lines = gs_text-tdline. append gs_lines to gt_lines. clear: gs_text, gs_lines. endloop. endif. endif. endform. " FRM_READ_TEXT
PAI事件 输入后进行保存
module mod_save_text input. perform frm_save_text using gv_action_mode. endmodule. " MOD_SAVE_TEXT INPUT "gv_action_mode 是状态 V H A tcode的类型 代表新建 修改 或者 显示 form frm_save_text using iv_mode type c. clear gt_lines. call function 'RH_EDITOR_GET' exporting controlname = 'ZCBOX' tables lines = gt_lines exceptions internal_error = 1 others = 2. data: lv_name like thead-tdname. "Name. data: gs_header like thead. "SAPscript: Text Header. ** Transfer data to header. clear: gs_header, lv_name. lv_name = viqmel-qmnum. gs_header-tdobject = 'ZT2O'. gs_header-tdname = lv_name. gs_header-tdid = 'ZTOO'. gs_header-tdspras = 'E'. if iv_mode = 'H'. "Create. gs_header-tdfuser = sy-uname. gs_header-tdfdate = sy-datum. gs_header-tdftime = sy-uzeit. gs_header-tdospras = 'E'. else. gs_header-tdluser = sy-uname. gs_header-tdldate = sy-datum. gs_header-tdltime = sy-uzeit. endif. ** Transfer data. clear: gt_text. loop at gt_lines into gs_lines. gs_text-tdformat = '/'. gs_text-tdline = gs_lines. append gs_text to gt_text. clear: gs_text, gs_lines. endloop. ** Save text. call function 'SAVE_TEXT' exporting client = sy-mandt header = gs_header insert = ' ' savemode_direct = ' ' owner_specified = ' ' local_cat = ' ' tables lines = gt_text exceptions id = 1 language = 2 name = 3 object = 4 others = 5. ** Check save status. if sy-subrc ne 0. call function 'SAPSCRIPT_MESSAGE' exporting typ = 'W' "#EC NOTEXT exceptions others = 1. else. call function 'COMMIT_TEXT'. endif. endform.