DATA : lv_name TYPE thead-tdname. "类型必须用thead-tdname
DATA: lt_tline TYPE TABLE OF tline,
ls_tline TYPE tline,
l_tdname TYPE thead-tdname,
l_tdfuser TYPE stxh-tdfuser.
SELECT mara~mandt
mara~matnr
mara~meins
mara~laeda
mara~matkl
marc~werks
marc~ekgrp
marc~lgpro "库存地点
makt~maktg
FROM mara INNER JOIN marc ON mara~matnr = marc~matnr
INNER JOIN makt ON mara~matnr = makt~matnr
INTO CORRESPONDING FIELDS OF TABLE gt_mara
WHERE mara~mandt = mandt
AND mara~matnr = matnr
AND marc~werks = werks .
LV_NAME = ALV_OUT-MATNR.
CLEAR LT_TLINE. REFRESH LT_TLINE.
CALL FUNCTION ‘READ_TEXT’
EXPORTING
ID = ‘GRUN’
LANGUAGE = ‘1’
NAME = LV_NAME
OBJECT = ‘MATERIAL’
TABLES
LINES = LT_TLINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF

这段代码展示了如何使用ABAP进行数据查询,将查询结果存储到内部表中,并读取特定文本。首先,从MARA和MARCK表中选择了多个字段,然后通过INNER JOIN操作连接了makt表。根据指定条件过滤数据并填充内部表GT_MARA。接下来,通过函数'READ_TEXT'获取名为MATNR的文本,并将其合并到单一字段TXZ01。整个过程涉及数据库交互和文本处理。

1186

被折叠的 条评论
为什么被折叠?



