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.