VA02销售订单修改BAPI
FUNCTION zsdfu016.
*"----------------------------------------------------------------------
*"*"本地接口：
*" 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_zsdt025 TYPE zsdt025,
ls_vbap TYPE vbap,
lt_vbap TYPE TABLE OF vbap,
ls_zsdt001 TYPE zsdt001,
ls_zrfct002 TYPE zrfct002,
ls_zrfct005 TYPE zrfct005.
DATA:lv_canum TYPE canum,
lv_zrfc_logid TYPE zsdt008-zrfc_logid,
lv_vbeln TYPE vbak-vbeln,
lv_waers TYPE vbak-waerk,
lv_waers_1 TYPE vbak-waerk,,
lv_kbetr TYPE konp-kbetr,
lv_knumh TYPE konp-knumh,
lv_mtart TYPE mara-mtart.
DATA:lv_canum_2 TYPE canum,
lv_code TYPE msgty,
lv_msg TYPE msgtxt,
lt_return TYPE TABLE OF zrfct005.
DATA:lv_mwskz TYPE konv-mwsk1.
CLEAR:lt_zsdt008,ls_zsdt008,lv_canum,lv_zrfc_logid,lv_vbeln,lv_waers,ls_zsdt025,ls_zsdt001.
"获取源表数据
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.
READ TABLE lt_zsdt024 INTO ls_zsdt024 INDEX 1.
SELECT SINGLE * INTO ls_zsdt025 FROM zsdt025 WHERE zrfcid = ls_zsdt024-zrfcid AND canum = i_canum." AND bsart = ls_zsdt024-bsart.
SELECT SINGLE zrfc_logid INTO lv_zrfc_logid FROM zsdt008 WHERE zrfcid = ls_zsdt025-zzrfcid AND canum = '0010' AND objkey = ls_zsdt024-ebeln.
SELECT * INTO TABLE lt_zsdt008 FROM zsdt008 WHERE zrfc_logid = lv_zrfc_logid.
*
SORT lt_zsdt008 BY zrfc_logid canum.
READ TABLE lt_zsdt008 INTO ls_zsdt008 WITH KEY canum = ls_zsdt025-zcanum.
SELECT SINGLE * INTO ls_zsdt001 FROM zsdt001 WHERE zrfcid = ls_zsdt008-zrfcid AND canum = ls_zsdt008-canum.
lv_vbeln = ls_zsdt008-objkey.
DATA:ls_vbak TYPE vbak,
ls_konv TYPE konv,
lt_konv TYPE TABLE OF konv.
SELECT SINGLE * INTO ls_vbak FROM vbak WHERE vbeln = lv_vbeln.
SELECT * INTO TABLE lt_vbap FROM vbap WHERE vbeln = lv_vbeln.
lv_waers_1 = ls_vbak-waerk.
SELECT * INTO TABLE lt_konv FROM konv WHERE knumv = ls_vbak-knumv.
READ TABLE lt_konv INTO ls_konv WITH KEY kschl = 'MWST'.
lv_mwskz = ls_konv-mwsk1.
"销售订单修改BAPI结构定义
DATA: salesdocument LIKE bapivbeln-vbeln,
order_header_in LIKE bapisdh1,
order_header_inx LIKE bapisdh1x,
order_item_in LIKE bapisditm OCCURS 0 WITH HEADER LINE,
order_item_inx LIKE bapisditmx OCCURS 0 WITH HEADER LINE,
return1 LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
order_schedules_in LIKE bapischdl OCCURS 0 WITH HEADER LINE,
order_schedules_inx LIKE bapischdlx OCCURS 0 WITH HEADER LINE,
order_conditions_in LIKE bapicond OCCURS 0 WITH HEADER LINE,
order_conditions_inx LIKE bapicondx OCCURS 0 WITH HEADER LINE,
logic_switch LIKE bapisdls,
ls_bapi_view TYPE order_view,
lt_salesdocuments TYPE TABLE OF sales_key,
ls_salesdocuments TYPE sales_key,
lt_order_conditions_out TYPE TABLE OF bapisdcond,
ls_order_conditions_out TYPE bapisdcond.
CLEAR:ls_bapi_view,ls_salesdocuments,lt_salesdocuments,lt_order_conditions_out.
ls_bapi_view-sdcond = 'X'.
ls_salesdocuments = lv_vbeln.
APPEND ls_salesdocuments TO lt_salesdocuments.
CALL FUNCTION 'BAPISDORDER_GETDETAILEDLIST'
EXPORTING
i_bapi_view = ls_bapi_view
TABLES
sales_documents = lt_salesdocuments
order_conditions_out = lt_order_conditions_out.
"取税率
IF lv_mwskz IS NOT INITIAL.
CLEAR:lv_kbetr,lv_knumh.
SELECT SINGLE knumh INTO lv_knumh FROM a003 WHERE kappl = 'TX' AND aland = 'CN' AND mwskz = lv_mwskz.
SELECT SINGLE kbetr INTO lv_kbetr FROM konp WHERE knumh = lv_knumh.
lv_kbetr = 1 + lv_kbetr / 1000.
ELSE.
lv_kbetr = 1.
ENDIF.
DATA:ls_ekko TYPE ekko,
ls_ekpo TYPE ekpo.
READ TABLE lt_zsdt024 INTO ls_zsdt024 INDEX 1.
IF sy-subrc = 0.
SELECT SINGLE * FROM ekko INTO ls_ekko WHERE ebeln = ls_zsdt024-ebeln.
ENDIF.
DATA:lv_uebpo TYPE ekpo-uebpo,
lv_uptyp TYPE ekpo-uptyp.
DATA:lv_from_cur TYPE bapi1093_1-from_curr,
lv_to_cur TYPE bapi1093_1-to_currncy,
ls_rate TYPE bapi1093_0,
ls_return TYPE bapiret1.
LOOP AT lt_zsdt024 INTO ls_zsdt024.
SELECT SINGLE *
INTO @DATA(ls_ekpo2)
FROM ekpo
WHERE ebeln = @ls_zsdt024-ebeln
AND ebelp = @ls_zsdt024-ebelp.
IF lv_uebpo NE '' AND lv_uptyp = 4.
CLEAR:ls_ekpo2.
CONTINUE.
ENDIF.
IF ls_zsdt024-zbs = 'I'. "新增
* IF lv_ukurs IS INITIAL.
* lv_ukurs = 1.
* ENDIF.
order_item_in-itm_number = ls_zsdt024-ebelp.
order_item_inx-itm_number = ls_zsdt024-ebelp.
order_item_inx-updateflag = 'I'.
order_item_in-material = ls_zsdt024-matnr."物料
order_item_inx-material = 'X'.
order_item_in-target_qty = ls_zsdt024-menge."数量
order_item_inx-target_qty = 'X'.
order_item_in-sales_unit = ls_zsdt024-vrkme."单位
order_item_inx-sales_unit = 'X'.
order_item_in-plant = ls_zsdt001-werks. "工厂
order_item_inx-plant = 'X'.
order_item_in-price_date = sy-datum. "定价日期
order_item_inx-price_date = 'X'.
order_item_in-po_itm_no = ls_zsdt024-ebelp.
order_item_inx-po_itm_no = 'X'.
****ADD BY ZJ 20221203 S 转换因子
order_item_in-salqtynum = ls_ekpo2-umrez.
order_item_in-salqtyden = ls_ekpo2-umren.
order_item_inx-salqtynum = 'X'.
order_item_inx-salqtyden = 'X'.
****ADD BY ZJ 20221203 E 转换因子
APPEND:order_item_inx,order_item_in.
CLEAR:order_item_in,order_item_inx.
IF ls_zsdt001-kschl IS NOT INITIAL.
order_conditions_in-itm_number = ls_zsdt024-ebelp. "itm_number
order_conditions_in-cond_type = ls_zsdt001-kschl. "定价条件
SELECT SINGLE knumv INTO @DATA(lv_knumv) FROM ekko WHERE ebeln = @ls_zsdt024-ebeln.
SELECT SINGLE kbetr waers kmein stunr zaehk
FROM konv
INTO ( order_conditions_in-cond_value,
order_conditions_in-currency,
order_conditions_in-cond_unit,
order_conditions_in-cond_st_no,
order_conditions_in-cond_count )
WHERE knumv = lv_knumv
AND kposn = ls_zsdt024-ebelp
AND ( kschl = 'PB00' OR kschl = 'PBXX' )
AND kinak = ''.
CLEAR:lv_knumv.
order_conditions_in-cond_p_unt = ls_zsdt024-kpein.. "条件单位
APPEND order_conditions_in.
CLEAR order_conditions_in.
order_conditions_inx-itm_number = ls_zsdt024-ebelp.
order_conditions_inx-cond_type = ls_zsdt001-kschl.
order_conditions_inx-cond_value = 'X'.
order_conditions_inx-currency = 'X'.
order_conditions_inx-cond_unit = 'X'.
order_conditions_inx-cond_p_unt = 'X'.
order_conditions_inx-cond_st_no = 'X'.
order_conditions_inx-cond_count = 'X'.
order_conditions_inx-updateflag = 'U'.
APPEND order_conditions_inx.
CLEAR order_conditions_inx.
ENDIF.
"交货计划行
order_schedules_in-itm_number = ls_zsdt024-ebelp.
order_schedules_inx-itm_number = ls_zsdt024-ebelp.
order_schedules_inx-updateflag = 'I'.
order_schedules_in-req_qty = ls_zsdt024-menge.
order_schedules_inx-req_qty = 'X'.
order_schedules_in-req_date = ls_zsdt024-eindt.
order_schedules_inx-req_date = 'X'.
APPEND:order_schedules_in,order_schedules_inx.
CLEAR:order_schedules_in,order_schedules_inx.
ELSEIF ls_zsdt024-zbs = 'U'. "修改
order_item_in-itm_number = ls_zsdt024-ebelp.
order_item_inx-itm_number = ls_zsdt024-ebelp.
order_item_inx-updateflag = 'U'.
order_item_in-target_qty = ls_zsdt024-menge."数量
order_item_inx-target_qty = 'X'.
order_item_in-sales_unit = ls_zsdt024-vrkme."单位
order_item_inx-sales_unit = 'X'.
IF ls_zsdt024-flag = 'X'.
order_item_in-reason_rej = ''.
order_item_inx-reason_rej = 'X'.
ENDIF.
SELECT SINGLE * FROM vbap INTO @DATA(ls_vbap_2) WHERE vbeln = @lv_vbeln AND posnr = @ls_zsdt024-ebelp.
****ADD BY ZJ 20221204 S 判断行项目是否做更改了
IF ls_vbap_2-kwmeng NE ls_zsdt024-menge OR
ls_vbap_2-vrkme NE ls_zsdt024-vrkme OR
( ls_vbap_2-abgru NE '' AND ls_zsdt024-flag = 'X' ).
APPEND:order_item_inx,order_item_in.
ENDIF.
CLEAR:order_item_in,order_item_inx.
****ADD BY ZJ 20221204 E 判断行项目是否做更改了
***------价格
IF ls_zsdt024-kbetr IS NOT INITIAL.
CLEAR:ls_order_conditions_out.
READ TABLE lt_order_conditions_out INTO ls_order_conditions_out WITH KEY sd_doc = lv_vbeln itm_number = ls_zsdt024-ebelp cond_type = ls_zsdt001-kschl.
order_conditions_in-cond_st_no = ls_order_conditions_out-cond_st_no.
order_conditions_inx-cond_st_no = ls_order_conditions_out-cond_st_no.
order_conditions_in-cond_count = ls_order_conditions_out-cond_count."计数器
order_conditions_inx-cond_count = ls_order_conditions_out-cond_count.
order_conditions_in-cond_type = ls_order_conditions_out-cond_type."条件类型
order_conditions_inx-cond_type = ls_order_conditions_out-cond_type."条件类型.
order_conditions_in-cond_value = ls_zsdt024-kbetr."" * lv_kbetr
IF ls_zsdt024-bsart = 'ZFTO' OR ls_zsdt024-bsart = 'ZITO'. ""非进口单据，货币使用源头订单货币
order_conditions_in-currency = ls_zsdt024-koein.
ELSE.
IF ls_order_conditions_out-currency <> ls_zsdt024-koein.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
date = sy-datum
foreign_amount = order_conditions_in-cond_value
foreign_currency = ls_zsdt024-koein
local_currency = ls_order_conditions_out-currency
IMPORTING
local_amount = order_conditions_in-cond_value.
ENDIF.
order_conditions_in-currency = ls_order_conditions_out-currency."货币
ENDIF.
order_conditions_inx-cond_value = 'X'.
* order_conditions_in-currency = ls_order_conditions_out-currency."货币
* order_conditions_in-currency = ls_zsdt024-koein.
order_conditions_inx-currency = 'X'.
order_conditions_in-cond_unit = ls_order_conditions_out-cond_d_unt. "条件单位
order_conditions_inx-cond_unit = 'X'.
order_conditions_in-cond_p_unt = ls_zsdt024-kpein. "条件定价单位 UPDATE BY JT 20221018
order_conditions_inx-cond_p_unt = 'X'.
order_conditions_inx-updateflag = 'U'.
APPEND:order_conditions_in,order_conditions_inx.
CLEAR:order_conditions_in,order_conditions_inx.
ENDIF.
"交货计划行
SELECT SINGLE * FROM vbep INTO @DATA(ls_vbep) WHERE vbeln = @lv_vbeln AND posnr = @ls_zsdt024-ebelp
AND etenr = '0001'.
order_schedules_in-itm_number = ls_zsdt024-ebelp.
order_schedules_inx-itm_number = ls_zsdt024-ebelp.
order_schedules_in-sched_line = '0001'.
order_schedules_inx-sched_line = '0001'.
order_schedules_inx-updateflag = 'U'.
order_schedules_in-req_qty = ls_zsdt024-menge.
order_schedules_inx-req_qty = 'X'.
order_schedules_in-req_date = ls_zsdt024-eindt.
order_schedules_inx-req_date = 'X'.
****ADD BY ZJ 20221204 S 判断行项目是否做更改了
IF ls_vbep-wmeng NE ls_zsdt024-menge OR
ls_vbep-edatu NE ls_zsdt024-eindt.
APPEND:order_schedules_in,order_schedules_inx.
ENDIF.
****ADD BY ZJ 20221204 E 判断行项目是否做更改了
CLEAR:order_schedules_in,order_schedules_inx.
ELSEIF ls_zsdt024-zbs = 'D'. "删除
order_item_in-itm_number = ls_zsdt024-ebelp.
order_item_inx-itm_number = ls_zsdt024-ebelp.
order_item_inx-updateflag = 'U'.
* order_item_inx-updateflag = 'D'.
order_item_in-reason_rej = ls_zsdt025-abgru."拒绝原因
order_item_inx-reason_rej = 'X'.
APPEND:order_item_inx,order_item_in.
CLEAR:order_item_in,order_item_inx.
ENDIF.
CLEAR:ls_zsdt024,ls_ekpo2.
ENDLOOP.
logic_switch-pricing = 'G'. "注意手工的价格条件一定要给C，否则会出现定价失败
order_header_inx-updateflag = 'U'.
READ TABLE lt_zsdt024 INTO ls_zsdt024 INDEX 1.
order_header_in-pmnttrms = ls_zsdt024-zterm.
order_header_inx-pmnttrms = 'X'.
DATA:lv_flag.
LOOP AT order_item_in WHERE reason_rej NE '' .
ENDLOOP.
IF sy-subrc = 0.
lv_flag = 'X'.
ELSE.
LOOP AT lt_zsdt024 TRANSPORTING NO FIELDS WHERE uebpo <> ''
AND uptyp = 4
AND zbs = 'D'.
ENDLOOP.
IF sy-subrc = 0.
lv_flag = 'X'.
ENDIF.
ENDIF.
IF lv_flag = 'X'.
lv_canum_2 = i_canum + 10.
CALL FUNCTION 'ZSDFU023'
EXPORTING
i_id = i_id
i_canum = lv_canum_2
IMPORTING
e_code = lv_code
e_msg = lv_msg
TABLES
et_return = lt_return.
IF lv_code EQ 'E'.
e_code = 'E'.
e_msg = lv_msg.
RETURN.
ENDIF.
ENDIF.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
salesdocument = lv_vbeln
order_header_in = order_header_in
order_header_inx = order_header_inx
logic_switch = logic_switch
TABLES
return = return1
order_item_in = order_item_in
order_item_inx = order_item_inx
schedule_lines = order_schedules_in
schedule_linesx = order_schedules_inx
conditions_in = order_conditions_in
conditions_inx = order_conditions_inx.
LOOP AT return1 WHERE type = 'E' OR type = 'A' OR type = 'X'.
CONCATENATE e_msg return1-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.
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 = lv_vbeln.
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 'SO:' lv_vbeln '修改成功' 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 = lv_vbeln.
APPEND ls_zrfct005 TO et_return.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
e_code = 'E'.
ENDIF.
ENDFUNCTION.
标签：BAPI,inx,VA02,lv,ABAP,ls,zsdt024,conditions,order From： https://www.cnblogs.com/ap-ad-java-abap/p/16991659.html