前台事务码为mr21,后台function
REPORT zvalidate_email MESSAGE-ID zfd-02.
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 = '1000-01145'.
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 = '2009'
actual_poper = '009'
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.