BADI 修改采購訂單的shipping point示例

本文描述如何使用BADI enhancement來修改采購訂單的shipping point值。
　　待實現的BADI class：ME_PROCESS_PO_CUST （Enhancements for Processing Enjoy Purchase Order: Customer）
　　1. 執行se19實現BAD方法：IIF_EX_ME_PROCESS_PO_CUST~PROCESS_HEADER
　　2. 在方法內輸入如下代碼：
　　method if_ex_me_process_po_cust~process_header .
　　
　　 data : header_data type mepoheader ,
　　 po_data type mepoitem,
　　 my_ekpv type ekpv,
　　 items type purchase_order_items,
　　 item_obj type purchase_order_item.
　　
　　 data oldvstel type ekpv-vstel.
　　
　　
　　 header_data = im_header->get_data( ).
　　 items = im_header->get_items( ) .
　　 if header_data-bsart = 'UB'. "stock transport order
　　* first,save old value of shipping point b+.
　　 if not items is initial .
　　 loop at items into item_obj .
　　 my_ekpv = item_obj-item->get_shipping_data( ) .
　　 if oldvalue is initial . "statics var
　　 ldvalue = my_ekpv-vstel .
　　 endif.
　　 endloop.
　　
　　
　　* second, if collect number is 'SAMPLE' , set value 8201 to shipping
　　* point
　　 if header_data-submi = 'SAMPLE' and
　　 header_data-reswk = supplyplant .
　　
　　 my_ekpv = item_obj-item->get_shipping_data( ) .
　　 my_ekpv-vstel = shippingpoint.
　　 item_obj-item->set_shipping_data( im_ekpv = my_ekpv ).
　　 endif.
　　
　　* third, if collect number is not 'SAMPLE' ,recover shipping point.
　　 if header_data-submi <> 'SAMPLE' or
　　 header_data-reswk <> supplyplant .
　　
　　 my_ekpv = item_obj-item->get_shipping_data( ) .
　　 my_ekpv-vstel = oldvalue.
　　 item_obj-item->set_shipping_data( im_ekpv = my_ekpv ).
　　 endif.
　　
　　 endif.
　　 endif.
　　* ENDIF.
　　endmethod.

總結

以上是生活随笔為你收集整理的BADI 修改采购订单的shipping point示例的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。