增加，更改，删除分包采购订单里的组件

 备注：分包采购订单里的组件与bom有关。

 

REPORT ztest_substract_order.
DATA:g_ebeln LIKE ekpo-ebeln.

g_ebeln = '4500789688'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    input  = g_ebeln
  IMPORTING
    output = g_ebeln.

DATA:it_mdpmv LIKE TABLE OF mdpmv WITH HEADER LINE,
     it_mdpmx LIKE TABLE OF mdpm_x WITH HEADER LINE,
     it_xmdsb LIKE TABLE OF mdsb_x WITH HEADER LINE,
     it_mdls  LIKE TABLE OF mdlb   WITH HEADER LINE.

it_mdpmv-ebeln = g_ebeln.
it_mdpmv-ebelp = '00010'.
it_mdpmv-etenr = '0001'.
it_mdpmv-rsnum = '0035878766'.
it_mdpmv-updkz = 'U'.
COLLECT it_mdpmv.

it_mdpmx-ebeln = g_ebeln.
it_mdpmx-ebelp = '00010'.
it_mdpmx-etenr = '0001'.
it_mdpmx-matnr = '1000-00003'.
it_mdpmx-werks = '1000'.
it_mdpmx-ERFMG = '1'."以条目单位的数量
it_mdpmx-BDMNG = '1'."需求数量
it_mdpmx-ERFME  = 'ST'."条目单位
it_mdpmx-LAGME  = 'ST'."基本单位
it_mdpmx-bdter = sy-datum + 10.
it_MDPMX-AENNR = '7006907'.
it_mdpmx-POSNR = '0020'.
it_mdpmx-POSTP = 'L'.
COLLECT it_mdpmx.

it_xmdsb-eebeln = g_ebeln.
it_xmdsb-eposn  = '00010'.
it_xmdsb-etenr  = '0001'.
it_xmdsb-rsnum  = '0035878766'.
it_xmdsb-matnr  = '1000-00003'.
it_xmdsb-werks  = '1000'.
it_xmdsb-ERFMG  = '1'.
it_xmdsb-BDMNG  = '1'.
it_xmdsb-ERFME  = 'ST'.
it_xmdsb-MEINS  = 'ST'.
it_xmdsb-AENNR  = '7006907'.
it_xmdsb-POSNR = '0020'.
it_xmdsb-bdter  = sy-datum + 10.
it_xmdsb-POSTP = 'L'.
COLLECT it_xmdsb.

CALL FUNCTION 'ME_COMPONENTS_UPDATE'
  EXPORTING
    i_number = g_ebeln
  TABLES
    t_vmdpm  = it_mdpmv
    t_xmdpm  = it_mdpmx
    t_xmdsb  = it_xmdsb
    t_mdlb   = it_mdls.

IF sy-subrc = 0.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

ENDIF.