SAPABAP長文本處理匯編

1、1.1. 長文本處理1.1.1. 讀取長文本這里以抓取 Delivery Note 的 Item 上的長文本作 為例子。. 查找長文本的 Text ID,Text ObjectVL02N 修改 Delivery Note: 80000023按回車鍵或者點擊 ，選中要一行資料，然后點擊菜單Goto-Item-Texts點擊 ，& o & iad1 a謬旦 Change Material sales text: 0080000023000010 Language EN（3 耗心罔 心 Formats Q） Character Formats 51 回夕心 區(qū)口Paeg. Format

2、sParagraph, left -alignedKlChar. FormatsSI陰ifeDext TD/Tex匸 Object次!I然后點擊菜單 :Goto-Header在這里顯示的 Text ID:0001,Text Object:VBBP,以及 Text Name:0080000023000010, 這幾個字段 在后面取值時要使用到. 編寫程序*& *& Report Y10028*&*&*&*&*&*REPORT Y10028.DATA IT_DATA TYPE STANDARD TABLE OF TL INE .DATA W_DATA TYPE TLINE.DATA

3、ID LIKE THEAD-TDID.DATA LANGUAGE LIKE THEAD-TDSPRAS.DATA NAME LIKE THEAD-TDNAME.DATA OBJECT LIKE THEAD-TDOBJECT. START-OF-SELECTION.ID = 0001.LANGUAGE = EN.NAME = 0080000023000010.OBJECT = VBBP.CALL FUNCTION READ_TEXTEXPORTING* CLIENT-MANDT= SYID =IDLANGUAGE= LANGUAGENAME= NAMEOBJECT= OBJECT* ARCHIV

4、E_HANDLE= 0* LOCAL_CAT= * IMPORTING* HEADER=TABLESLINES= IT_DATA* EXCEPTIONS* ID= 1* LANGUAGE= 2* NAME= 3OBJECT= 5REFERENCE_CHECK = 6WRONG_ACCESS_TO_ARCHIVE = 7OTHERS = 8IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.LOOP AT IT_DATA I

5、NTO W_DATA.WRITE:/ W_DATA-TDLINE.ENDLOOP..顯示結(jié)果1.1.2. 寫入長文本 有時需要將其他的系統(tǒng)的資料 Upload 到長文本字段 中，或者將資料從文字檔、 Excel 檔 Upload 到長文 本字段中，使用 BDC 比較麻煩，這個時候可以使用 SAVE_TEXT Function 來寫入長文本。查找 TextID,Text Object 的方法在上一個章節(jié)已經(jīng)說明，這 里不再重復。REPORT Y10028.DATA HEADER LIKE THEAD.DATA LINES TYPE STANDARD TABLE OF TLINEDA

6、TA W_LINE TYPE TLINE.START-OF-SELECTION.HEADER-TDOBJECT = VBBP.HEADER-TDNAME = 0080000023000010.HEADER-TDID = 0001. HEADER-TDSPRAS = EN.W_LINE = 測試資料寫入 .APPEND W_LINE TO LINES.CALL FUNCTION SAVE_TEXTEXPORTING* CLIENT= SY-MANDTHEADER = HEADERINSERT= XSAVEMODE_DIRECT = XOWNER_SPECIFIEDLOCAL_CATIMPORTI

7、NGFUNCTION= NEWHEADER=TABLESLINES= LINESEXCEPTIONSID =1LANGUAGE= 2NAME= 3OBJECT= 4OTHERS= 5IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.COMMIT WORK.結(jié)果顯示為：1.1.3刪除長文本CALL FUNCTION DELETE_TEXTEXPORTINGCLIENTID= SY-MANDT= IDLANGUAGE= LANGUAGENAME= NAMESAVEMODE_DIRECTTEXTMEMORY_ONLY =LOCAL_CAT= EXCEPTIONSNOT_FOUND = 1OTHERS =