这里增强一般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 .