功能需求是：

在系統標準功能MB51物料憑證查詢的基礎上增強四個字段

1、供應商描述：根據表MSEG中的供應商LIFNR去GOHEAD-VENDORNAME中取值

2、物料組：根據MSEG中的物料編碼MATNR去表MARA中取MATKL

3、物料組描述：根據物料組MARA-MATKL去取T023T-WGBEZ

4、成本中心描述：根據MSEG-KOSTL去取CSKT-LTEXT

增強的四個字段放在“更改格式”里，需要時取出即可

首先進入MB51的標準程序，點擊增強按鈕，然后點擊菜單里面的增強選擇把程序的所有隱式增強顯示出來，

而后在下面幾個地方增加如下代碼：

1.在INCLUDE? RM07DOCS_GENERATED里面的內表定義ITAB增強需要的這幾個字段

?DATA:?BEGIN?OF?ITAB?OCCURS?0.
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:?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:?CPUTM?TYPE?MKPF-CPUTM?.
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:?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:?SHKZG?TYPE?MSEG-SHKZG?.
DATA:?SOBKZ?TYPE?MSEG-SOBKZ?.
DATA:?USNAM?TYPE?MKPF-USNAM?.
DATA:?VGART?TYPE?MKPF-VGART?.
DATA:?VKWRT?TYPE?MSEG-VKWRT?.
DATA:?WAERS?TYPE?MSEG-WAERS?.
DATA:?WERKS?TYPE?MSEG-WERKS?.
DATA:?XABLN?TYPE?MKPF-XABLN?.
DATA:?XAUTO?TYPE?MSEG-XAUTO?.
DATA:?XBLNR?TYPE?MKPF-XBLNR?.
DATA:?ZEILE?TYPE?MSEG-ZEILE?.
************************************增強供應商描述，物料組和物料組描述和成本中心四個字段
DATA:?NAME??TYPE??LFA1-NAME1.
DATA:?MATKL?TYPE?MARA-MATKL?.
DATA:?WGBEZ?TYPE?T023T-WGBEZ?.
DATA:?LTEXT?TYPE?CSKT-LTEXT?.
************************************增強供應商描述，物料組和物料組描述和成本中心四個字段

?DATA:?END?OF?ITAB.

2.在FORM?DATA_SELECTION???DATA_SELECTION_VIA_MATNR?DATA_SELECTION_VIA_BUDAT?的尾部增加如下代碼：

?LOOP?AT??ITAB.
????IF?ITAB-LIFNR?IS?NOT?INITIAL.
??????SELECT?SINGLE?NAME1?INTO?ITAB-NAME?FROM?LFA1?WHERE?LIFNR?EQ?ITAB-LIFNR.
????ENDIF.
????IF?ITAB-MATNR?IS?NOT?INITIAL.
??????SELECT?SINGLE?MATKL?INTO?ITAB-MATKL?FROM?MARA?WHERE?MATNR?EQ?ITAB-MATNR.
????ENDIF.
????IF?ITAB-MATKL?IS?NOT?INITIAL.
??????SELECT?SINGLE?WGBEZ?INTO?ITAB-WGBEZ?FROM?T023T?WHERE?MATKL?EQ?ITAB-MATKL.
????ENDIF.
????IF?ITAB-KOSTL?IS?NOT?INITIAL.
??????SELECT?SINGLE?LTEXT?INTO?ITAB-LTEXT?FROM?CSKT?WHERE??KOSTL?EQ?ITAB-KOSTL.
????ENDIF.
????MODIFY?ITAB.
??ENDLOOP.

3.在FORM?BUILD_RUNTIMETABLE 尾部增加如下代碼

?************************************增強供應商描述，物料組和物料組描述和成本中心四個字段
??RX1?‘ZMB51′??‘NAME’?‘00′??‘00′.
??RX1?‘ZMB51′?‘MATKL’?‘00′??‘00′.
??RX1?‘ZMB51′?‘WGBEZ’?‘00′??‘00′.
??RX1?‘ZMB51′?‘LTEXT’?‘00′?‘00′.
************************************增強供應商描述，物料組和物料組描述和成本中心四個字段

5.DEFINE?RX1.
??CS-TABNAME?=?&1.
??CS-FIELDNAME?=?&2.
??CS-SELECTION_POSITION?=?&3.
??CS-OUTPUT_POSITION?=?&4.
??APPEND?CS?TO?RTT.
END-OF-DEFINITION.

總結

以上是生活随笔為你收集整理的SAP MB51物料凭证清单程序增强增加四个字段的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。