读取销售订单长文本(Read_text)

读取销售订单长文本(Read_text)

石头 十二月 28, 2015 函数 3,899 views 0

[隐藏]

1, 简介

SAP中有很多地方用到了长文本,这些长文本保存在表STXL和STXH里面,STXH保存抬头长文本,STXL保存行项目的.需要通过函数READ_TEXT去读取长文本.

2015-12-28_16-25-10

2, 查看销售订单长文本

可以在VA03中看到销售订单的抬头和行项目长文本:

抬头长文本:

2015-12-28_16-32-57

行项目:
2015-12-28_16-39-38

长文本log中的object 和 ID在调用函数Read_text时用到

2015-12-28_16-42-27

3, 例子代码

以读取销售行项目长文本为例:

读取上图中销售订单60000649行项目200的delivery text的长文本

ABAP

DATA: l_id TYPE thead-tdid, l_language TYPE thead-tdspras, l_name TYPE thead-tdname, l_object TYPE thead-tdobject. DATA:it_line TYPE STANDARD TABLE OF tline. l_id = '0004'. l_language = '1'. " 'E' for English CONCATENATE '0060000649' "SO '000200' "Item INTO l_name. l_object = 'VBBP'. CALL FUNCTION 'READ_TEXT' EXPORTING client = sy-mandt id = l_id language = l_language name = l_name object = l_object TABLES lines = it_line 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. ENDIF.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

DATA: l_id       TYPE thead-tdid,

      l_language TYPE thead-tdspras,

      l_name     TYPE thead-tdname,

      l_object   TYPE thead-tdobject.

DATA:it_line TYPE STANDARD TABLE OF tline.

l_id = '0004'.

l_language = '1'. " 'E' for English

CONCATENATE  '0060000649'   "SO

             '000200'       "Item

        INTO l_name.

l_object = 'VBBP'.

CALL FUNCTION 'READ_TEXT'

  EXPORTING

    client                  = sy-mandt

    id                      = l_id

    language                = l_language

    name                    = l_name

    object                  = l_object

  TABLES

    lines                   = it_line

  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.

ENDIF.

4, 测试结果

debug可以看到长文本已经读取到内表it_line中

2015-12-28_16-50-29

猜你喜欢

转载自blog.csdn.net/hewusheng10/article/details/104304448