sap 如何正确的取物料主数据的销售长文本

如何正确的取物料主数据的销售长文本呢？今天在取它的时候发生了一个典型的错误了，在这之前一直认为没有必要发blog讲这个东西，因为认为比较简单，就跟取普通的长文本一个性质，但我错了，真的错了！下面来看看物料主数据的销售长文本：



在上图中，在取物料主数据的销售长文本，必须要知道这个物料对应的销售组织、分销渠道，这样才能决定值是唯一的！



上图就是能过函数read_text访问长文本的相关参数，其中红色部分就是物料编码，绿色部分就是销售组织，蓝色部分就是分销渠道；红色部分是我们的难点部分，因为这一部分的空格部分是不确定的，这就要求我们只能通过模糊查询匹配，如下的方法是大家通用的方法：

DATA: TDSPRAS TYPE STXH-TDSPRAS.

DATA: L_NAME LIKE THEAD-TDNAME,

L_NAME2 LIKE STXH-TDNAME.

DATA: T_LINES LIKE TLINE OCCURS 0 WITH HEADER LINE.

CLEAR L_NAME.

CLEAR L_NAME2.

CONCATENATE T_VBAP-MATNR '%' '1200' '%' INTO L_NAME. ”模糊查询条件

CLEAR TDSPRAS.

SELECT SINGLE TDSPRAS TDNAME

INTO (TDSPRAS,L_NAME2)

FROM STXH

WHERE TDID = '0001'

AND TDOBJECT = 'MVKE'

AND TDNAME like L_NAME

AND TDSPRAS = '1'.

CLEAR T_VBAP-L_TEXT.

IF TDSPRAS <> ''.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = '0001'

LANGUAGE = '1'

NAME = L_NAME2

OBJECT = 'MVKE'

TABLES

LINES = T_LINES.

LOOP AT T_LINES.

CONCATENATE T_VBAP-L_TEXT T_LINES-TDLINE INTO T_VBAP-L_TEXT SEPARATED BY ' '.

ENDLOOP.

CLEAR T_LINES.

SPLIT T_VBAP-L_TEXT AT '*' INTO T_VBAP-CWB_MS T_VBAP-CWB_BM.

MODIFY T_VBAP.

ENDIF.

上面的这种方法存在一种缺陷，没有考虑周到，存在这样一种情况：

比如物料A：matnr（test_001）没有维护相关的销售长文本，物料B：matnr（test_001_1）维护了相关的物料长文本，如果要查物
料A的销售长文本也是可以查到的，为什么呢？因为物料A的模糊查询条件为'test_001%1200%'，这种情况就把物料B的销售长文本取给物料A
了，那还有没有方法可以改进了呢？下面介绍本人的方法，如果大家有好的不妨一块讨论：

DATA: TDSPRAS TYPE STXH-TDSPRAS.

DATA: L_NAME LIKE THEAD-TDNAME,

L_NAME2 LIKE STXH-TDNAME.

DATA: T_LINES LIKE TLINE OCCURS 0 WITH HEADER LINE.

*** 定义临时物料编码

data: l_matnr like mara-matnr.

*** 定义一个内表用于存储长文本相关信息

data: begin of t_text occurs 0,

tdspras like stxh-tdspras,

tdname like stxh-tdname,

end of t_text.

CLEAR L_NAME.

CLEAR L_NAME2.

CONCATENATE T_VBAP-MATNR '%' '1200' '%' INTO L_NAME. ”模糊查询条件

CLEAR TDSPRAS.

SELECT TDSPRAS TDNAME

into corresponding fields of table t_text

FROM STXH

WHERE TDID = '0001'

AND TDOBJECT = 'MVKE'

AND TDNAME like L_NAME

AND TDSPRAS = '1'.

**** 根据物料编码进行比较

loop at t_text.

l_matnr = t_text-tdname(18) "取前18位作为物料编码

if l_matnr = matnr. "与当前的物料编码进行比较，只有相等

tdspras = t_text-tdspras.

l_name2 = t_text-tdname.

exit.

endif.

endloop.

CLEAR T_VBAP-L_TEXT.

IF TDSPRAS <> ''.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = '0001'

LANGUAGE = '1'

NAME = L_NAME2

OBJECT = 'MVKE'

TABLES

LINES = T_LINES.

LOOP AT T_LINES.

CONCATENATE T_VBAP-L_TEXT T_LINES-TDLINE INTO T_VBAP-L_TEXT SEPARATED BY ' '.

ENDLOOP.

CLEAR T_LINES.

SPLIT T_VBAP-L_TEXT AT '*' INTO T_VBAP-CWB_MS T_VBAP-CWB_BM.

MODIFY T_VBAP.

ENDIF.