这里增强一般BADI处理方法有些不一样。呵呵。
******************************************************]
**2012.12.10 根据PR类型同步PO类型 Vince Chang
*
******************************************************
DATA: obj_header TYPE REF TO if_purchase_order_mm,
re_header TYPE mepoheader,
re_item TYPE mepoitem.
DATA: wa_werks TYPE werks_d.
DATA: wa_lifnr TYPE mepoheader-lifnr,
wa_matnr TYPE mepoitem-matnr,
wa_bsart TYPE mepoheader-bsart.
DATA: wa_netpr TYPE mepoitem-netpr.
obj_header = im_item->get_header( ).
re_header = obj_header->get_data( ).
re_item = im_item->get_data( ).
SELECT SINGLE bsart INTO re_header-bsart FROM eban
WHERE banfn = re_item-banfn.
CALL METHOD obj_header->set_data
EXPORTING
im_data = re_header.