REPORT ZGDR0090.

DATA: HEADDATA       LIKE BAPIMATHEAD,
      RETURN         LIKE BAPIRET2,
      VALUATIONDATA  TYPE BAPI_MBEW,
      VALUATIONDATAX TYPE BAPI_MBEWX,
      RETURNMES      LIKE BAPI_MATRETURN2 OCCURS 0 WITH HEADER LINE.

PARAMETERS P_MATNR TYPE MARA-MATNR.

* 抬头数据：物料编码成本视图
HEADDATA-MATERIAL    = P_MATNR."物料编码
HEADDATA-COST_VIEW  = 'X'."成本视图
* 成本明细
CLEAR VALUATIONDATA.
VALUATIONDATA-PLNDPRICE1 = '62.50'."计划价格
VALUATIONDATA-PLNDPRDATE1 = '20210201'."计划日期
VALUATIONDATA-VAL_AREA = '1000' ."评估范围
VALUATIONDATA-PRICE_CTRL = 'S'.

CLEAR VALUATIONDATAX.
VALUATIONDATAX-PLNDPRICE1 = 'X'."计划价格
VALUATIONDATAX-PLNDPRDATE1 = 'X'."计划日期
VALUATIONDATAX-VAL_AREA = '1000' ."评估范围
VALUATIONDATAX-PRICE_CTRL = 'X' .
*调用BAPI
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
  EXPORTING
    HEADDATA       = HEADDATA
    VALUATIONDATA  = VALUATIONDATA
    VALUATIONDATAX = VALUATIONDATAX
  IMPORTING
    RETURN         = RETURN
  TABLES
    RETURNMESSAGES = RETURNMES.

IF RETURN-TYPE = 'E'.
  LOOP AT RETURNMES.
    WRITE: / RETURNMES-ID.
    WRITE: / RETURNMES-NUMBER.
    WRITE: / RETURNMES-MESSAGE.
  ENDLOOP.
ELSEIF RETURN-TYPE = 'S'.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT = 'X'.

  WRITE: / '修改成功 OK'.
ENDIF.