FUNCTION zfm_mat_ltext.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" REFERENCE(MATNR)
*" EXPORTING
*" REFERENCE(LTEXT)
*"----------------------------------------------------------------------
TABLES:stxh.
DATA:lt_tline LIKE tline OCCURS 0 WITH HEADER LINE.
DATA:l_tdname LIKE stxh-tdname.
l_tdname = MATNR.
SELECT SINGLE * FROM stxh
WHERE tdobject = 'MATERIAL' AND tdname = l_tdname AND tdid = 'GRUN'.
IF sy-subrc EQ 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'GRUN'
language = sy-langu
name = l_tdname
object = 'MATER
SAP取物料长文本FM
最新推荐文章于 2024-07-26 10:17:36 发布