BADI 修改采购订单的shipping point示例

本文描述如何使用BADI enhancement来修改采购订单的shipping point值。
5E:Gs*^&?190059　　待实现的BADI class：ME_PROCESS_PO_CUST （Enhancements for Processing Enjoy Purchase Order: Customer）
]{R;r'G190059　　1. 执行se19实现BAD方法：IIF_EX_ME_PROCESS_PO_CUST~PROCESS_HEADER ITPUB个人空间.z!T/RL^N(s
　　2. 在方法内输入如下代码： ITPUB个人空间,T [H�_;x
　　method if_ex_me_process_po_cust~process_header .
+Y_y&}D|-_190059　　 ITPUB个人空间/l9iv0Q{
　　 data : header_data type mepoheader ,
_[(N5Gk-e'^0M ]9f190059　　 po_data type mepoitem, ITPUB个人空间7ME?/XQ+fu
　　 my_ekpv type ekpv, ITPUB个人空间 PRw B_ GQd
　　 items type purchase_order_items,
bE'w{#i D#vf_4{190059　　 item_obj type purchase_order_item.
/Id.@s*jr190059　　
GwYt i1fw$p$pZ190059　　 data oldvstel type ekpv-vstel.
}9k"`c.|/s190059　　 ITPUB个人空间9B(Va/F(o�l*]g*J
　　 ITPUB个人空间 i7c/^EN9~a
　　 header_data = im_header->get_data( ). ITPUB个人空间,W+q!w9[A:c.@ p.[
　　 items = im_header->get_items( ) . ITPUB个人空间 gFY3Kawud2x4L]{
　　 if header_data-bsart = 'UB'. "stock transport order ITPUB个人空间U7~HZ Z s1O ]/C i
　　* first,save old value of shipping point b+. ITPUB个人空间W @]-PoP2uK z|
　　 if not items is initial .
FqF |_}+]190059　　 loop at items into item_obj . ITPUB个人空间.ftZ1XzJ NI
　　 my_ekpv = item_obj-item->get_shipping_data( ) .
Z QQB$~%~/t190059　　 if oldvalue is initial . "statics var ITPUB个人空间L P8mw#~X/5i
　　 ldvalue = my_ekpv-vstel .
t;pW T"y0g4nP W190059　　 endif. ITPUB个人空间,Zi#o`l
　　 endloop. ITPUB个人空间b0`aGz�v%A!p S [s
　　
Ss4WZ1UruNk190059　　
e4k,o//Jk190059　　* second, if collect number is 'SAMPLE' , set value 8201 to shipping ITPUB个人空间�EudRtTC
　　* point
Xbp%Z/g9|3~190059　　 if header_data-submi = 'SAMPLE' and
FzbK uB:Z190059　　 header_data-reswk = supplyplant . ITPUB个人空间S]x`e$w(["G{{
　　 ITPUB个人空间c0WS t-I7mxJ
　　 my_ekpv = item_obj-item->get_shipping_data( ) .
i*`M.[_k190059　　 my_ekpv-vstel = shippingpoint.
K�Zi cPm+K,J190059　　 item_obj-item->set_shipping_data( im_ekpv = my_ekpv ). ITPUB个人空间frLg[_-[
　　 endif.
gPSG!uGh}190059　　
DO!Z.Jr3~ t190059　　* third, if collect number is not 'SAMPLE' ,recover shipping point.
5r'vYx Q1O190059　　 if header_data-submi <> 'SAMPLE' or ITPUB个人空间4s1M9f"t'K6nDO/l
　　 header_data-reswk <> supplyplant .
.LF$u&T;pb4kY+n190059　　 ITPUB个人空间:G7?VQu^%E
　　 my_ekpv = item_obj-item->get_shipping_data( ) .
m{'B(BHx!}190059　　 my_ekpv-vstel = oldvalue.
;ADK4TZJ ?190059　　 item_obj-item->set_shipping_data( im_ekpv = my_ekpv ).
#Gy!W6] |&g.b190059　　 endif.
BrZY6G190059　　 ITPUB个人空间g,H2Pp.xSC'L
　　 endif. ITPUB个人空间*K.mnMH"/:J}
　　 endif.
@"~"~%] PQ190059　　* ENDIF. ITPUB个人空间"] O[&m1H)]Ui)H)Ts
　　endmethod.