SAP 修改物料移动平均价格程序

代码参考如下

REPORT ZZMR21 .
TYPE-POOLS: ckmpr .
DATA: it_matpr      TYPE ckmpr_mat_price WITH HEADER LINE,
      year   LIKE bapi2027_pc_ex-ml_doc_year,
      num    LIKE bapi2027_pc_ex-ml_doc_num,
      wa     TYPE cki_pae_cr.
*& test for prices_change,prices_change
INSERT INITIAL LINE INTO it_matpr INDEX 1.
LOOP AT it_matpr.
  it_matpr-pp-matnr = 'FERT1000'.
  it_matpr-pp-bwkey = '1000'.
  it_matpr-pp-poper = sy-datum+4(2).
  it_matpr-pp-bdatj = sy-datum+0(4).
  it_matpr-pp-vprsv = 'V'.
  wa-curtp = '10'.
  wa-waers = 'CNY'.
  wa-newpeinh = 1.
  wa-peinh    = 1.
  wa-newpvprs = '77777'.
  wa-manpae_v = 'X'.
  APPEND wa  TO it_matpr-cr.
  MODIFY it_matpr.
ENDLOOP.

CALL FUNCTION 'PRICES_CHANGE'
  EXPORTING
    actual_bdatj   = '2022'
    actual_poper   = '022'
    bukrs          = '1000'
    budat          = sy-datum
  TABLES
    t_matpr        = it_matpr
  EXCEPTIONS
    invalid_period = 1
    OTHERS         = 2.


CALL FUNCTION 'PRICES_POST'
  EXPORTING
    bukrs      = '1000'
    lis_update = 'X'
  TABLES
    t_matpr    = it_matpr.


IF sy-subrc = 0.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.


ENDIF.