需求:增加显示销售订单送达方
主要使用二代增强出口:M61X0002
事务码T-code:CMOD
填写描述,保存到对应的包下
分配增强到项目下
激活组件,激活后效果如下
编写ZXM61U04
SAP留出的按钮,填写描述
button1_ez = '送达方'.
编写ZXM61U03
*&---------------------------------------------------------------------*
*& 包含 ZXM61U03
*&---------------------------------------------------------------------*
DATA:batch type string.
DATA:GV_VBELN TYPE LIPS-VBELN,
GV_KUNNR TYPE LIKP-KUNNR,
GV_NAME1 TYPE KNA1-NAME1.
IF NOT ibutt1 IS INITIAL.
batch = ''.
IF IMDEZEXIT-DELKZ = 'VC'..
"取交货单号
SELECT SINGLE VBELN INTO GV_VBELN FROM LIPS
WHERE VGBEL = IE3MDPSLX-DELNR.
* AND VGPOS = IE3MDPSLX-DELPS.
"取送达方编号
SELECT SINGLE KUNNR INTO GV_KUNNR FROM LIKP
WHERE VBELN = GV_VBELN.
"取送达方文本名称
SELECT SINGLE NAME1 INTO GV_NAME1 FROM KNA1
WHERE KUNNR = GV_KUNNR.
"去 送达方 前导零
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = GV_KUNNR
IMPORTING
OUTPUT = GV_KUNNR.
EMDEZX_USEX1 = GV_KUNNR && ':' && GV_NAME1.
CONDENSE EMDEZX_USEX1.
CLEAR:GV_VBELN,GV_KUNNR,GV_NAME1.
ENDIF.
ENDIF.
当点击送达方按钮后,会展示送达方。
再附上一份MRP元素对应的描述,因为新增的列不一定每个MRP元素都会由数据,因此需要再代码里做限制,比如说我的需求,就只针对VC。