ABAP-复制采购订单行项目到新的行

FUNCTION zmm_fm_copy2new.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(IN_EBELN) TYPE  EBELN
*"     VALUE(IN_EBELP) TYPE  EBELP
*"     VALUE(IN_QUANTITY) TYPE  BSTMG
*"     VALUE(IN_PRICE) TYPE  BPREI
*"  EXPORTING
*"     VALUE(STATUS) TYPE  C
*"     VALUE(OUT_EBELP) TYPE  EBELP
*"----------------------------------------------------------------------

DATA:gs_poheader           TYPE                   bapimepoheader,
       gs_poheaderx          TYPE                   bapimepoheaderx,
       gt_return             TYPE STANDARD TABLE OF bapiret2,
       gwa_return            TYPE                   bapiret2,
       gt_item               TYPE STANDARD TABLE OF bapimepoitem,
       gwa_item              TYPE                   bapimepoitem,
       lwa_item              TYPE                   bapimepoitem,
       gt_itemx              TYPE STANDARD TABLE OF bapimepoitemx,
       gwa_itemx             TYPE                   bapimepoitemx,
       gt_poschedule         TYPE STANDARD TABLE OF bapimeposchedule,
       gwa_poschedule        TYPE                   bapimeposchedule,
       lwa_poschedule        TYPE                   bapimeposchedule,
       gt_poschedulex        TYPE STANDARD TABLE OF bapimeposchedulx,
       gwa_poschedulex       TYPE                   bapimeposchedulx,
       gt_pocond             TYPE STANDARD TABLE OF bapimepocond,
       gwa_pocond            TYPE                   bapimepocond,
       lwa_pocond            TYPE                   bapimepocond,
       gt_pocondx            TYPE STANDARD TABLE OF bapimepocondx,
       gwa_pocondx           TYPE                   bapimepocondx,
       gt_pocomponents       TYPE STANDARD TABLE OF bapimepocomponent,
       gwa_pocomponents      TYPE                   bapimepocomponent,
       gwa_pocomponents_temp TYPE                   bapimepocomponent,
       gt_pocomponentsx      TYPE STANDARD TABLE OF bapimepocomponentx,
       gwa_pocomponentsx     TYPE                   bapimepocomponentx.
  DATA:lv_num TYPE bapimepoheader-po_number.

CALL FUNCTION 'BAPI_PO_GETDETAIL1'
    EXPORTING
      purchaseorder = in_ebeln
    IMPORTING
      poheader      = gs_poheader
    TABLES
      poitem        = gt_item
      poschedule    = gt_poschedule
      pocond        = gt_pocond
      return        = gt_return.

gs_poheaderx-doc_type = 'X'.
  gs_poheaderx-vendor = 'X'.
  gs_poheaderx-purch_org = 'X'.
  gs_poheaderx-pur_group = 'X'.
  gs_poheaderx-comp_code = 'X'.
  gs_poheaderx-doc_date = 'X'.
  gs_poheaderx-langu = 'X'.
  gs_poheaderx-currency = 'X'."货币
  gs_poheaderx-status = 'X'."货币

SORT gt_item BY po_item DESCENDING."按行项目从高到低排序
  DATA:new_po_item TYPE ebelp.
  READ TABLE gt_item INTO DATA(wa) INDEX 1."获取最大行项目值
  IF sy-subrc EQ 0.
    new_po_item = wa-po_item + 10."产生新行号
  ENDIF.

LOOP AT gt_item INTO gwa_item WHERE po_item EQ in_ebelp.
    MOVE-CORRESPONDING gwa_item TO lwa_item.
    lwa_item-po_item = new_po_item.
    lwa_item-net_price = in_price.
    lwa_item-quantity = in_quantity.
    APPEND lwa_item TO gt_item.

gwa_item-quantity = gwa_item-quantity - in_quantity.
    MODIFY TABLE gt_item FROM gwa_item.

gwa_itemx-po_item = new_po_item. "采购凭证的项目编号
    gwa_itemx-material = 'X'.
    gwa_itemx-net_price = 'X'.
    gwa_itemx-short_text = 'X'."短文本
    gwa_itemx-quantity = 'X'."采购订单数量
    gwa_itemx-po_unit = 'X' ."采购订单的计量单位
    gwa_itemx-plant = 'X'."工厂
    gwa_itemx-stge_loc = 'X'. "库存地点
    gwa_itemx-item_cat = 'X'.
    gwa_itemx-tax_code = 'X'.
    gwa_itemx-date_qty_fixed = 'X'.

APPEND gwa_itemx TO gt_itemx.

READ TABLE gt_itemx INTO DATA(wax) WITH KEY po_item = in_ebelp.
    IF sy-subrc EQ 0.
      wax-quantity = 'X'.
      MODIFY TABLE gt_itemx FROM wax.
      FREE wax.
    ELSE.
      wax-po_item = in_ebelp.
      wax-quantity = 'X'.
      APPEND wax TO gt_itemx.
      FREE wax.
    ENDIF.

ENDLOOP.

LOOP AT gt_poschedule INTO gwa_poschedule WHERE po_item EQ in_ebelp.
    MOVE-CORRESPONDING gwa_poschedule TO lwa_poschedule.
    lwa_poschedule-po_item = new_po_item.
    lwa_poschedule-quantity = in_quantity.
    APPEND lwa_poschedule TO gt_poschedule.

gwa_poschedule-quantity = gwa_poschedule-quantity - in_quantity.
    MODIFY TABLE gt_poschedule FROM gwa_poschedule.

gwa_poschedulex-po_item = new_po_item. "采购凭证的项目编号
    gwa_poschedulex-sched_line = 0001. "采购凭证的项目编号
    gwa_poschedulex-del_datcat_ext = 'X'."交货日期的类别
    gwa_poschedulex-delivery_date = 'X'."交货日期
    gwa_poschedulex-quantity = 'X'."采购订单数量
    APPEND gwa_poschedulex TO gt_poschedulex.

READ TABLE gt_poschedulex INTO DATA(wax1) WITH KEY po_item = in_ebelp.
    IF  sy-subrc EQ 0.
      wax-quantity = 'X'.
      MODIFY TABLE gt_poschedulex FROM wax1.
      FREE wax1.
    ELSE.
      wax1-quantity = 'X'.
      wax1-po_item = in_ebelp.
      wax1-sched_line = 0001.
      APPEND wax1 TO gt_poschedulex.
    ENDIF.

ENDLOOP.

LOOP AT gt_pocond INTO gwa_pocond WHERE itm_number EQ in_ebelp.
    MOVE-CORRESPONDING gwa_pocond TO lwa_pocond.
    lwa_pocond-itm_number = new_po_item.
    lwa_pocond-cond_p_unt = 1.
    lwa_pocond-cond_value = in_price.
    lwa_pocond-change_id = 'I'.
    APPEND lwa_pocond TO gt_pocond.

gwa_pocondx-itm_number = new_po_item.
    gwa_pocondx-cond_type = 'X'.
    gwa_pocondx-cond_value = 'X'.
    gwa_pocondx-cond_unit = 'X'.    "条件单位
    gwa_pocondx-cond_p_unt = 'X'.   "价格单位
    gwa_pocondx-currency = 'X'.
    gwa_pocondx-change_id    = 'X'.
    APPEND gwa_pocondx TO gt_pocondx.

ENDLOOP.

CALL FUNCTION 'BAPI_PO_CHANGE'
    EXPORTING
      purchaseorder = gs_poheader-po_number
      poheader      = gs_poheader
      poheaderx     = gs_poheaderx
*     POADDRVENDOR  =
*     TESTRUN       =
*     MEMORY_UNCOMPLETE            =
*     MEMORY_COMPLETE  =
*     POEXPIMPHEADER   =
*     POEXPIMPHEADERX  =
*     VERSIONS      =
*     NO_MESSAGING  =
*     NO_MESSAGE_REQ   =
*     NO_AUTHORITY  =
*     NO_PRICE_FROM_PO =
*     PARK_COMPLETE =
*     PARK_UNCOMPLETE  =
*    IMPORTING
*     exppurchaseorder = lv_num
*     EXPHEADER     =
*     EXPPOEXPIMPHEADER            =
    TABLES
      return        = gt_return
      poitem        = gt_item
      poitemx       = gt_itemx
*     POADDRDELIVERY   =
      poschedule    = gt_poschedule
      poschedulex   = gt_poschedulex
*     POACCOUNT     =
*     POACCOUNTPROFITSEGMENT       =
*     POACCOUNTX    =
*     POCONDHEADER  =
*     POCONDHEADERX =
      pocond        = gt_pocond
      pocondx       = gt_pocondx
*     POLIMITS      =
*     POCONTRACTLIMITS =
*     POSERVICES    =
*     POSRVACCESSVALUES            =
*     POSERVICESTEXT   =
*     EXTENSIONIN   =
*     EXTENSIONOUT  =

*     POEXPIMPITEM  =

*     POEXPIMPITEMX =

*     POTEXTHEADER  =

*     POTEXTITEM    =

*     ALLVERSIONS   =

*     POPARTNER     =

*     POCOMPONENTS  = GT_POCOMPONENTS

*     POCOMPONENTSX = GT_POCOMPONENTSX .
    
.

READ TABLE gt_return INTO gwa_return WITH KEY type = 'E'.
  
IF sy-subrc <> 0.
    
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      
EXPORTING
        
wait = 'X'.
    out_ebelp 
= new_po_item.
    status 
= 'S'.
  
ELSE.
    
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    status 
= 'E'.
  
ENDIF.

ENDFUNCTION.