装运采购订单增强

Harryjing2018

已于 2023-11-21 17:51:01 修改

阅读量95

点赞数

分类专栏： ABAP 文章标签： SAP

于 2023-11-21 15:45:16 首次发布

本文链接：https://blog.csdn.net/beyond911/article/details/134533089

版权

ABAP 专栏收录该内容

331 篇文章 78 订阅

订阅专栏

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