ME22N采购订单修改BAPI:
FUNCTION zsdfu015.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(I_ID) TYPE ZRFC_LOGID OPTIONAL
*" VALUE(I_CANUM) TYPE CANUM OPTIONAL
*" EXPORTING
*" VALUE(E_CODE) TYPE MSGTY
*" VALUE(E_MSG) TYPE MSGTXT
*" VALUE(E_FLOW_END) TYPE CHAR01
*" TABLES
*" ET_RETURN STRUCTURE ZRFCT005 OPTIONAL
*"----------------------------------------------------------------------
DATA:ls_zsdt024 TYPE zsdt024,
lt_zsdt024 TYPE TABLE OF zsdt024,
ls_zsdt008 TYPE zsdt008,
lt_zsdt008 TYPE TABLE OF zsdt008,
ls_zrfct002 TYPE zrfct002,
ls_zrfct005 TYPE zrfct005.
"获取源表数据
CLEAR:lt_zsdt024.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zsdt024 FROM zsdt024 WHERE zrfc_logid = i_id.
IF lt_zsdt024 IS INITIAL.
e_code = 'E'.
e_msg = '无可执行数据'.
RETURN.
ENDIF.
"采购订单修改BAPI结构定义
DATA:purchaseorder TYPE bapimepoheader-po_number,
return LIKE TABLE OF bapiret2 WITH HEADER LINE,
poitem LIKE TABLE OF bapimepoitem WITH HEADER LINE,
poitemx LIKE TABLE OF bapimepoitemx WITH HEADER LINE,
pocond LIKE TABLE OF bapimepocond WITH HEADER LINE,
pocondx LIKE TABLE OF bapimepocondx WITH HEADER LINE,
poschedule LIKE TABLE OF bapimeposchedule WITH HEADER LINE,
poschedulex LIKE TABLE OF bapimeposchedulx WITH HEADER LINE.
CLEAR:purchaseorder,
return[],
return,
poitem,
poitem[],
poitemx,
poitemx[],
pocond,
pocond[],
pocondx,
pocondx[].
DATA:lv_mtart TYPE mara-mtart.
LOOP AT lt_zsdt024 INTO ls_zsdt024.
AT END OF ebeln.
purchaseorder = ls_zsdt024-ebeln.
ENDAT.
IF ls_zsdt024-zbs = 'U'."修改
poitem-po_item = ls_zsdt024-ebelp.
poitemx-po_item = ls_zsdt024-ebelp.
poitemx-po_itemx = 'X'.
APPEND: poitemx,poitem.
CLEAR: poitem, poitemx.
poschedule-po_item = ls_zsdt024-ebelp."行项目
poschedulex-po_item = ls_zsdt024-ebelp.
poschedule-sched_line = '0001'.
poschedulex-sched_line = '0001'.
poschedule-delivery_date = ls_zsdt024-eindt. "交货日期
poschedulex-delivery_date = 'X'.
poschedule-quantity = ls_zsdt024-menge."数量
poschedulex-quantity = 'X'.
APPEND:poschedule,poschedulex.
CLEAR:poschedule,poschedulex.
pocond-itm_number = ls_zsdt024-ebelp.
pocond-change_id = 'U'.
APPEND pocond.
pocondx-itm_number = ls_zsdt024-ebelp.
pocondx-itm_numberx = 'X'.
pocond-change_id = 'X'.
APPEND pocondx.
CLEAR:pocond,pocondx.
ELSEIF ls_zsdt024-zbs = 'I'."新增
"行项目
poitem-po_item = ls_zsdt024-ebelp.
poitemx-po_item = ls_zsdt024-ebelp.
poitemx-po_itemx = 'X'.
poitem-material = ls_zsdt024-matnr."物料
poitemx-material = 'X'.
poitem-quantity = ls_zsdt024-menge."数量
poitemx-quantity = 'X'.
poitem-plant = ls_zsdt024-werks."工厂
poitemx-plant = 'X'.
* IF LS_ZSDT024-WERKS = '7888'.
* SELECT SINGLE LGFSB INTO POITEM-STGE_LOC FROM MARC WHERE MATNR = LS_ZSDT024-MATNR AND WERKS = LS_ZSDT024-WERKS.
* ELSE.
* CLEAR:LV_MTART.
* SELECT SINGLE MTART INTO LV_MTART FROM MARA WHERE MATNR = LS_ZSDT024-MATNR.
* SELECT SINGLE LGORT INTO POITEM-STGE_LOC FROM ZSDT003 WHERE MTART = LV_MTART AND WERKS = LS_ZSDT024-WERKS.
* ENDIF.
poitemx-stge_loc = 'X'.
SELECT SINGLE meins INTO poitem-po_unit FROM mara WHERE matnr = ls_zsdt024-matnr.
poitemx-po_unit = 'X'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_zsdt024-banfn
IMPORTING
output = ls_zsdt024-banfn.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_zsdt024-bnfpo
IMPORTING
output = ls_zsdt024-bnfpo.
poitem-preq_no = ls_zsdt024-banfn."采购申请
poitemx-preq_no = 'X'.
poitem-preq_item = ls_zsdt024-bnfpo."采购申请项目
poitemx-preq_item = 'X'.
SELECT SINGLE infnr INTO poitem-info_rec FROM eina WHERE matnr = ls_zsdt024-matnr AND lifnr = ls_zsdt024-lifnr
AND loekz <> 'X' .
poitemx-info_rec = 'X'.
poitem-tax_code = ls_zsdt024-mwskz. " 税码
poitemx-tax_code = 'X'.
poitem-no_rounding = 'X'.
poitemx-no_rounding = 'X'.
APPEND poitemx.
APPEND poitem.
CLEAR: poitem, poitemx.
poschedule-po_item = ls_zsdt024-ebelp."行项目
poschedulex-po_item = ls_zsdt024-ebelp.
poschedule-del_datcat_ext = 'D'. "交货日期的类别
poschedulex-del_datcat_ext = 'X'.
poschedule-delivery_date = sy-datum.
poschedulex-delivery_date = 'X'.
poschedule-quantity = ls_zsdt024-menge."数量
poschedulex-quantity = 'X'.
APPEND:poschedule,poschedulex.
CLEAR:poschedule,poschedulex.
pocond-itm_number = ls_zsdt024-ebelp.
pocond-cond_type = 'PB00'. " Give the pricing condition type that derives netprice
pocond-cond_value = ls_zsdt024-brtwr.
pocond-currency = ls_zsdt024-koein.
pocond-cond_p_unt = ls_zsdt024-kpein.
pocond-change_id = 'I'.
pocondx-itm_number = ls_zsdt024-ebelp.
pocondx-itm_numberx = 'X'.
pocondx-cond_type = 'X'.
pocondx-cond_value = 'X'.
pocondx-currency = 'X'.
pocondx-cond_p_unt = 'X'.
pocondx-change_id = 'X'.
APPEND:pocondx,pocond.
ELSEIF ls_zsdt024-zbs = 'D'."删除
poitem-po_item = ls_zsdt024-ebelp.
poitemx-po_item = ls_zsdt024-ebelp.
poitemx-po_itemx = 'X'.
poitem-delete_ind = 'X'. "采购订单行项目删除标识
poitemx-delete_ind = 'X'.
APPEND: poitemx,poitem.
CLEAR: poitem, poitemx.
ENDIF.
CLEAR:ls_zsdt024.
ENDLOOP.
CALL FUNCTION 'BAPI_PO_CHANGE'
EXPORTING
purchaseorder = purchaseorder
no_price_from_po = 'X'
TABLES
poitem = poitem
poitemx = poitemx
poschedule = poschedule
poschedulex = poschedulex
* POACCOUNT = LT_POACCOUNT
* POACCOUNTX = LT_POACCOUNTX
* POSERVICES = IT_SERVICE
* POSRVACCESSVALUES = LT_POSRVACCESSVALUES
pocond = pocond
pocondx = pocondx
return = return.
LOOP AT return WHERE type = 'E' OR type = 'A' OR type = 'X'.
CONCATENATE e_msg return-message INTO e_msg SEPARATED BY '/'.
ENDLOOP.
IF sy-subrc NE 0.
CALL METHOD zcl_rfc=>get_source
EXPORTING
i_id = i_id
i_canum = i_canum
IMPORTING
e_zrfct002 = ls_zrfct002.
* RECEIVING
* R_SOURCE = LS_SOURCE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
CLEAR:ls_zsdt008.
ls_zsdt008-canum = ls_zrfct002-canum.
ls_zsdt008-objtype = ls_zrfct002-objtype_save.
ls_zsdt008-objkey = purchaseorder.
ls_zsdt008-zrfcid = ls_zrfct002-zrfcid.
ls_zsdt008-zrfc_logid = i_id.
APPEND ls_zsdt008 TO lt_zsdt008.
MODIFY zsdt008 FROM TABLE lt_zsdt008.
e_code = 'S'.
CONCATENATE 'PO:' purchaseorder '修改成功' INTO e_msg.
CLEAR:ls_zrfct005.
ls_zrfct005-status = '53'.
ls_zrfct005-msgty = e_code.
ls_zrfct005-msgid = '00'.
ls_zrfct005-msgno = '001'.
ls_zrfct005-msgv1 = e_msg.
ls_zrfct005-msgv4 = purchaseorder.
APPEND ls_zrfct005 TO et_return.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
e_code = 'E'.
ENDIF.
ENDFUNCTION.
