用代码显示SAP CRM某个订单维护的长文本

REPORT znote_display_tool. PARAMETERS: id TYPE crmd_orderadm_h-object_id OBLIGATORY DEFAULT '1656', type TYPE crmd_orderadm_h-process_type OBLIGATORY DEFAULT 'ASOP', tid TYPE stxh-tdname OBLIGATORY DEFAULT '0090FA0D8DC21EE3ABCE672A80C1470C'. TYPES: text_line(cl_crm_odata_oppt_constant=>gc_oppt_notes_textlength) TYPE c. DATA: lv_char32 TYPE char32, " CRMD_ORDERADM_H-guid, lv_textname TYPE string, lv_id LIKE id, lv_guid TYPE crmd_orderadm_h-guid, lt_stxh TYPE STANDARD TABLE OF stxh, ls_stxh LIKE LINE OF lt_stxh, ls_notes TYPE crmt_odata_oppt_notes. DATA: ls_thead TYPE thead. DATA: lt_text_table TYPE TABLE OF text_line. DATA: ls_bupa_addr TYPE bapiaddr3. DATA: ls_return TYPE STANDARD TABLE OF bapiret2. DATA: lt_lines TYPE STANDARD TABLE OF tline. lv_id = id. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_id IMPORTING output = lv_id. SELECT SINGLE guid FROM crmd_orderadm_h INTO lv_guid WHERE object_id = id AND process_type = type. IF sy-subrc <> 0. WRITE: / 'No opportunity found' COLOR COL_GROUP. RETURN. ENDIF. lv_char32 = lv_guid. CONCATENATE lv_char32 '%' INTO lv_textname. SELECT * FROM stxh INTO TABLE lt_stxh WHERE tdobject EQ 'CRM_ORDERH' AND tdname EQ tid. IF lines( lt_stxh ) <> 1. WRITE: / 'Cound not read given text' COLOR COL_NEGATIVE. RETURN. ENDIF. READ TABLE lt_stxh INTO ls_stxh INDEX 1. CALL FUNCTION 'READ_TEXT' EXPORTING id = ls_stxh-tdid language = ls_stxh-tdspras name = ls_stxh-tdname object = ls_stxh-tdobject IMPORTING header = ls_thead TABLES lines = lt_lines EXCEPTIONS OTHERS = 1. CHECK sy-subrc EQ 0. CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT' TABLES itf_text = lt_lines text_stream = lt_text_table. CONCATENATE LINES OF lt_text_table INTO ls_notes-content RESPECTING BLANKS. CALL METHOD cl_demo_output=>display_text( ls_notes-content ). 汪子熙 认证博客专家 前端框架 Node.js SAP JerryWang，2007年从电子科技大学计算机专业硕士毕业后加入SAP成都研究院工作至今。Jerry是SAP社区导师，SAP中国技术大使。2020年5月下旬，Jerry做了脑部肿瘤的开颅切除手术，对编程和人生又有了新的感悟。