货铺QQ群号:834508274
进群统一修改群名片,例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接,小程序等,进群看公告,谢谢配合
不修改昵称会被不定期踢除,谢谢配合
简单demo
report zdemo_va02.
PARAMETERS p_vbeln TYPE vbeln_va.
PARAMETERS p_kschl TYPE konv-kschl.
PARAMETERS p_value TYPE konv-kawrt.
PARAMETERS p_ass TYPE ordnr_v.
DATA:ls_vbak TYPE vbak.
DATA:ls_konv TYPE konv.
DATA:ls_order_header_in LIKE bapisdh1.
DATA:ls_order_header_inx LIKE bapisdh1x.
DATA:logic_switch LIKE bapisdls.
DATA:lt_conditions_in LIKE TABLE OF bapicond,
lt_conditions_inx LIKE TABLE OF bapicondx.
DATA:ls_conditions_in LIKE bapicond,
ls_conditions_inx LIKE bapicondx.
DATA: lt_return LIKE TABLE OF bapiret2.
START-OF-SELECTION.
SELECT SINGLE * FROM vbak INTO ls_vbak WHERE vbeln = p_vbeln.
SELECT SINGLE * FROM konv INTO ls_konv
WHERE knumv = ls_vbak-knumv
AND kschl = p_kschl
AND ( kinak = '' OR kinak = 'A')..
CHECK sy-subrc = 0.
*&clear
CLEAR: ls_order_header_in,ls_order_header_inx, lt_return[],lt_conditions_in[],lt_conditions_inx[].
*& header
CLEAR ls_order_header_in.
CLEAR ls_order_header_inx.
ls_order_header_in-ass_number = p_ass.
ls_order_header_inx-updateflag = 'U'.
ls_order_header_inx-ass_number = 'X'.
CLEAR ls_conditions_in.
ls_conditions_in-itm_number = 10.
ls_conditions_in-cond_st_no = ls_konv-stunr.
ls_conditions_in-cond_count = ls_konv-zaehk.
ls_conditions_in-cond_type = p_kschl. "定价条件
ls_conditions_in-cond_value = p_value.
ls_conditions_in-currency = 'RMB'. "币别 如果是百分百,则置空
APPEND ls_conditions_in TO lt_conditions_in.
CLEAR ls_conditions_inx.
ls_conditions_inx-itm_number = 10.
ls_conditions_inx-cond_st_no = ls_konv-stunr.
ls_conditions_inx-cond_count = ls_konv-zaehk.
ls_conditions_inx-updateflag = 'U'.
ls_conditions_inx-cond_type = p_kschl. "定价条件
ls_conditions_inx-cond_value = 'X'. "价格
ls_conditions_inx-currency = 'X'. "
APPEND ls_conditions_inx TO lt_conditions_inx.
logic_switch-cond_handl = 'X'.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
salesdocument = p_vbeln
order_header_in = ls_order_header_in
order_header_inx = ls_order_header_inx
logic_switch = logic_switch
TABLES
return = lt_return
conditions_in = lt_conditions_in
conditions_inx = lt_conditions_inx.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.