文本更新和获取
1.1. 长文本处理
1.1.1. 读取长文本
这里以抓取DeliveryNote的Item上的长文本作为例子。
1.1.1.1. 查找长文本的Text ID,TextObject
VL02N修改Delivery Note: 80000023
按回车键或者点击，
选中要一行资料，然后点击菜单Goto->Item->Texts
点击，
然后点击菜单:Goto->Header
在这里显示的Text ID:0001,Text Object:VBBP,以及Text Name:0080000023000010,这几个字段在后面取值时要使用到
1.1.1.2. 编写程序
*&---------------------------------------------------------------------*
*& Report Y10028
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Y10028.
DATA IT_DATA TYPE STANDARD TABLE OF TLINE .
DATA W_DATA TYPE TLINE.
DATA 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_TEXT'
EXPORTING
* CLIENT = SY-MANDT
ID = ID
LANGUAGE = LANGUAGE
NAME = NAME
OBJECT = OBJECT
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
LINES = IT_DATA
* 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 <> 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 INTO W_DATA.
WRITE:/ W_DATA-TDLINE.
ENDLOOP.
1.1.1.3. 显示结果
1.1.2. 写入长文本
有时需要将其他的系统的资料Upload到长文本字段中，或者将资料从文字档、Excel档Upload到长文本字段中，使用BDC比较麻烦，这个时候可以使用SAVE_TEXT Function来写入长文本。查找TextID,Text Object的方法在上一个章节已经说明，这里不再重复。
REPORT Y10028.
DATA HEADER LIKETHEAD.
data LINES LIKE TABLE OF TLINE WITH HEADER LINE.
DATA W_LINE TYPETLINE.
START-OF-SELECTION.
HEADER -TDOBJECT = 'VBBK' .HEADER -TDNAME = '1235000004' .
HEADER -TDID = 'Z018' .
HEADER -TDSPRAS = 'EN' .
refresh LINES .
clear LINES .
LINES -TDFORMAT = '*' .
LINES -TDLINE = 'AAA' .
append LINES .
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
* CLIENT = SY-MANDT
HEADER = HEADER
INSERT = 'X'
SAVEMODE_DIRECT = 'X'
* OWNER_SPECIFIED = ' '
* LOCAL_CAT = ' '
* IMPORTING
* FUNCTION =
* NEWHEADER =
TABLES
LINES = LINES
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
.
IF SY-SUBRC <> 0.
* MESSAGE IDSY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3SY-MSGV4.
ENDIF.
COMMIT WORK.
结果显示为：
1.1.3. 删除长文本
CALL FUNCTION 'DELETE_TEXT'
EXPORTING
* CLIENT = SY-MANDT
ID = ID
LANGUAGE = LANGUAGE
NAME = NAME
OBJECT = OBJECT
* SAVEMODE_DIRECT = ' '
* TEXTMEMORY_ONLY = ' '
* LOCAL_CAT = ' '
* EXCEPTIONS
* NOT_FOUND = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.