SAP_增强案例_MB51(物料凭证清单)新增客户化字段

在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. 执行效果

猜你喜欢

转载自blog.csdn.net/linmingqiang506/article/details/80336133
今日推荐