在MB51查询物料凭证清单的基础上增强一个字段
实现步骤如下:
1. MB51的主程序RM07DOCS
包含程序 RM07DOCS_GENERATED
1.1. 内表itab新增字段,字段名高度
* Internal table for data selection
data: begin of itab occurs 0.
data: ABLAD type MSEG-ABLAD .
*
*略n条目*
DATA : MAA_URZEI TYPE mseg-maa_urzei.
DATA : XMACC TYPE mseg-xmacc.
DATA: ZHEIGHT TYPE ZTMM0001-ZHEIGHT."---增强字段
data: end of itab.
然后分别在以下位置添加代码:
1、在主程序 RM07DOCS_GENERATED 的子程序 DATA_SELECTION 添加逻辑
LOOP AT ITAB.
SELECT SINGLE ZHEIGHT
INTO ITAB-ZHEIGHT
FROM ZTMM0001
WHERE...
MODIFY ITAB TRANSPORTING ZHEIGHT.
ENDLOOP.
2、 在包含程序RM07DOCS_GENERATED 的子程序 DATA_SELECTION_VIA_MATNR
3、 在包含程序RM07DOCS_GENERATED的子程序 DATA_SELECTION_VIA_BUDAT
LOOP AT ITAB.
SELECT SINGLE ZHEIGHT
INTO ITAB-ZHEIGHT
FROM ZTMM0001
WHERE...
MODIFY ITAB TRANSPORTING ZHEIGHT.
ENDLOOP.
4、在包含程序RM07DOCS_GENERATED的子程序BUILD_RUNTIMETABLE添加逻辑,代码如下
FORM BUILD_RUNTIMETABLE.
...
rx'ZTMM0001 ZHEIGHT 00 00'.
ENDFORM.