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,可以参考
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
来源:http://www.renren.it/a/shujuku/Access/20111031/103634.html