BAPI_SALESORDER_CHANGE修改销售订单价格

REPORT ztest.


DATA: salesdocument LIKE bapivbeln-vbeln,
order_header_inx LIKE bapisdh1x,
order_header_in LIKE bapisdh1,
return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
conditions_in TYPE STANDARD TABLE OF bapicond WITH HEADER LINE,
conditions_inx TYPE STANDARD TABLE OF bapicondx WITH HEADER LINE,
logic_switch LIKE bapisdls,
step_nr LIKE conditions_in-cond_st_no,
item_nr LIKE conditions_in-itm_number,
cond_count LIKE conditions_in-cond_count,
cond_type LIKE conditions_in-cond_type.


salesdocument = ''.
logic_switch-cond_handl = 'X'.
order_header_inx-updateflag = 'U'.
CLEAR conditions_in[].
CLEAR conditions_inx[].
CLEAR: step_nr,item_nr,cond_count,cond_type.
step_nr = '10'.
item_nr = ''.
cond_count = '01'.
cond_type = ''.
conditions_in-itm_number = item_nr.
conditions_in-cond_st_no = step_nr.
conditions_in-cond_count = cond_count.
conditions_in-cond_type = cond_type.
conditions_in-cond_value = 668.
conditions_in-currency = 'RMB'.
APPEND conditions_in.


conditions_inx-itm_number = item_nr.
conditions_inx-cond_st_no = step_nr.
conditions_inx-cond_count = cond_count.
conditions_inx-cond_type = cond_type.
conditions_inx-updateflag = 'U'.
conditions_inx-cond_value = 'X'.
conditions_inx-currency = 'X'.
APPEND conditions_inx.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
  EXPORTING
    salesdocument    = salesdocument
    order_header_in  = order_header_in
    order_header_inx = order_header_inx
    logic_switch     = logic_switch
  TABLES
    return           = return
    conditions_in    = conditions_in
    conditions_inx   = conditions_inx.




IF return-type NE 'E'.
  COMMIT WORK AND WAIT.
ENDIF.