ME_PROCESS_PO_CUST修改行项目中净价为物料主数据中标准价格

METHOD if_ex_me_process_po_cust~process_item.

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( ).

IF re_header-lifnr IS NOT INITIAL AND re_header-bsart EQ 'ZSTO'.

wa_lifnr = re_header-lifnr.

wa_matnr = re_item-matnr.

wa_bsart = re_header-bsart.

SELECT SINGLE werks INTO wa_werks FROM lfa1 WHERE lifnr = wa_lifnr.

SELECT SINGLE stprs FROM mbew INTO wa_netpr WHERE matnr = wa_matnr

AND bwkey = wa_werks.

re_item-netpr = wa_netpr.

CALL METHOD im_item->set_data

EXPORTING

im_data = re_item.

ENDIF.

ENDMETHOD.