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_HEADERITPUB个人空间.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 orderITPUB个人空间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( ) .
ZQQB$~%~/t190059　　 if oldvalue is initial . "statics varITPUB个人空间LP8mw#~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 shippingITPUB个人空间�EudRtTC
　　* point
Xbp%Z/g9|3~190059　　 if header_data-submi = 'SAMPLE' and
FzbKuB: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' orITPUB个人空间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.