1 Introdcution
Purchase order enhancement
MB_MIGO_BADI
We change Shipping Point enhancement for shipping .
2 Code
DATA:ls_mepoheader TYPE mepoheader,
ls_mepoitem TYPE mepoitem.
ls_mepoitem = im_item->get_data( ).
ls_mepoheader = im_item->get_header( )->get_data( ).
* " add it by jinggl 20231120 START
* " The function is that we assign value to SPART .
IF ls_mepoheader-bsart = 'ZI02'.
DATA: lt_ship TYPE TABLE OF ekpv,
ls_ship LIKE LINE OF lt_ship.
CALL METHOD im_item->get_shipping_data
RECEIVING
re_ekpv = ls_ship.
ls_ship-PLIFZ = '2' .
ls_ship-SPART = '20'.
ls_ship-VSTEL = 'F002'.
CALL METHOD im_item->set_shipping_data
EXPORTING
im_ekpv = ls_ship.
endif.
*
* " add it by jinggl 20231120 START