在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 .
data: ANLN1 type MSEG-ANLN1 .
data: ANLN2 type MSEG-ANLN2 .
data: APLZL type MSEG-APLZL .
data: AUFNR type MSEG-AUFNR .
data: AUFPL type MSEG-AUFPL .
data: BKTXT type MKPF-BKTXT .
data: BLDAT type MKPF-BLDAT .
data: BPMNG type MSEG-BPMNG .
data: BPRME type MSEG-BPRME .
data: BSTME type MSEG-BSTME .
data: BSTMG type MSEG-BSTMG .
data: BUDAT type MKPF-BUDAT .
data: BUDAT_MKPF type MSEG-BUDAT_MKPF .
data: BUKRS type MSEG-BUKRS .
data: BWART type MSEG-BWART .
data: BWTAR type MSEG-BWTAR .
data: CHARG type MSEG-CHARG .
data: CPUDT type MKPF-CPUDT .
data: CPUDT_MKPF type MSEG-CPUDT_MKPF .
data: CPUTM type MKPF-CPUTM .
data: CPUTM_MKPF type MSEG-CPUTM_MKPF .
data: DMBTR type MSEG-DMBTR .
data: EBELN type MSEG-EBELN .
data: EBELP type MSEG-EBELP .
data: ERFME type MSEG-ERFME .
data: ERFMG type MSEG-ERFMG .
data: EXBWR type MSEG-EXBWR .
data: EXVKW type MSEG-EXVKW .
data: FISTL type MSEG-FISTL .
data: FRBNR type MKPF-FRBNR .
data: GRUND type MSEG-GRUND .
data: KDAUF type MSEG-KDAUF .
data: KDEIN type MSEG-KDEIN .
data: KDPOS type MSEG-KDPOS .
data: KOSTL type MSEG-KOSTL .
data: KUNNR type MSEG-KUNNR .
data: KZBEW type MSEG-KZBEW .
data: KZVBR type MSEG-KZVBR .
data: KZZUG type MSEG-KZZUG .
data: LGORT type MSEG-LGORT .
data: LIFNR type MSEG-LIFNR .
data: MATNR type MSEG-MATNR .
data: MAT_KDAUF type MSEG-MAT_KDAUF .
data: MAT_KDPOS type MSEG-MAT_KDPOS .
data: MBLNR type MKPF-MBLNR .
data: MEINS type MSEG-MEINS .
data: MENGE type MSEG-MENGE .
data: MJAHR type MKPF-MJAHR .
data: NPLNR type MSEG-NPLNR .
data: PS_PSP_PNR type MSEG-PS_PSP_PNR .
data: RSNUM type MSEG-RSNUM .
data: RSPOS type MSEG-RSPOS .
data: SGTXT type MSEG-SGTXT .
data: SHKZG type MSEG-SHKZG .
data: SOBKZ type MSEG-SOBKZ .
data: UMCHA type MSEG-UMCHA .
data: UMLGO type MSEG-UMLGO .
data: UMWRK type MSEG-UMWRK .
data: USNAM type MKPF-USNAM .
data: USNAM_MKPF type MSEG-USNAM_MKPF .
data: VBELN_IM type MSEG-VBELN_IM .
data: VBELP_IM type MSEG-VBELP_IM .
data: VGART type MKPF-VGART .
data: VGART_MKPF type MSEG-VGART_MKPF .
data: VKWRT type MSEG-VKWRT .
data: WAERS type MSEG-WAERS .
data: WEMPF type MSEG-WEMPF .
data: WERKS type MSEG-WERKS .
data: XABLN type MKPF-XABLN .
data: XAUTO type MSEG-XAUTO .
data: XBLNR type MKPF-XBLNR .
data: XBLNR_MKPF type MSEG-XBLNR_MKPF .
data: ZEILE type MSEG-ZEILE .
DATA : MAA_URZEI TYPE mseg-maa_urzei.
DATA : XMACC TYPE mseg-xmacc.
DATA: ZHEIGHT TYPE ZTMM0001-ZHEIGHT."---增强字段
data: end of itab.
1.2. 在包含程序RM07DOCS_GENERATED
的子程序DATA_SELECTION
添加逻辑
LOOP AT ITAB.
SELECT SINGLE ZHEIGHT
INTO ITAB-ZHEIGHT
FROM ZTMM0001
WHERE...
MODIFY ITAB TRANSPORTING ZHEIGHT.
ENDLOOP.
1.3. 在包含程序RM07DOCS_GENERATED
的子程序DATA_SELECTION_VIA_MATNR
添加逻辑,同步骤1.2
1.4. 在包含程序RM07DOCS_GENERATED
的子程序DATA_SELECTION_VIA_BUDAT
添加逻辑,同步骤1.2
1.5. 在包含程序RM07DOCS_GENERATED
的子程序BUILD_RUNTIMETABLE
添加逻辑,代码如下
FORM BUILD_RUNTIMETABLE.
...
rx'ZTMM0001 ZHEIGHT 00 00'.
ENDFORM.
1.6. 执行效果
略