BAPI_GOODSMVT_CREATE for subcontracting PO

来源:互联网 发布:淘宝投诉未生产扣几分 编辑:程序博客网 时间:2024/06/06 02:54

  CLEAR goodsmvt_item.
  goodsmvt_item-line_id     = '0001'.
  goodsmvt_item-po_number   = ls_ekpo-ebeln.
  goodsmvt_item-po_item     = ls_ekpo-ebelp.
  goodsmvt_item-material    = ls_ekpo-matnr.
  goodsmvt_item-plant       = plant.
  goodsmvt_item-entry_qnt   = ls_ekpo-menge.
  goodsmvt_item-move_type   = '101'.
  goodsmvt_item-mvt_ind     = 'B'.
  goodsmvt_item-stge_loc    = lgort.
  goodsmvt_item-entry_uom_iso  = 'EA'.

  APPEND goodsmvt_item TO t_goodsmvt_item.

  CLEAR goodsmvt_item.
  goodsmvt_item-line_id     = '0002'.
  goodsmvt_item-parent_id     = '0001'.
  goodsmvt_item-material    = ls_ekpo-matnr.
  goodsmvt_item-plant       =  plant.
  goodsmvt_item-move_type   = '543'.
  goodsmvt_item-mvt_ind     = 'O'.
  goodsmvt_item-entry_uom_iso  = 'EA'.
  goodsmvt_item-entry_qnt   = ls_ekpo-menge.
  goodsmvt_item-batch       = batch_old.


  APPEND goodsmvt_item TO t_goodsmvt_item.



  goodsmvt_serialnumber-matdoc_itm = 1.
  goodsmvt_serialnumber-serialno = seril_new
  APPEND goodsmvt_serialnumber TO t_goodsmvt_serialnumber.

  goodsmvt_serialnumber-matdoc_itm = 2.
  goodsmvt_serialnumber-serialno = serial_old.
  APPEND goodsmvt_serialnumber TO t_goodsmvt_serialnumber.

0 0