PO增强同步PO采购类型与PR类型一样 By badi:ME_PROCESS_PO_CUST

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