IT_MBEW LIKEZMS_MBEW 物料評估視圖擴充
ET_RETURN LIKEBAPIRET2 返回參數

ZMS_MBEW：

MTART 1 類型 MTART CHAR 4 0 物料類型

MATNR 1 類型 MATNR CHAR 18 0 物料號?
BWKEY 1 類型 BWKEY CHAR 4 0 評估范圍
BWTAR 1 類型 BWTAR_D CHAR 10 0 評估類型
VPRSV 1 類型 VPRSV CHAR 1 0 價格控制指示符?
STPRS 1 類型 STPRS CURR 11 2 標準價格
PEINH 1 類型 PEINH DEC 5 0 價格單位
BKLAS 1 類型 BKLAS CHAR 4 0 評估類?
BWTTY 1 類型 BWTTY_D CHAR 1 0 評估類別

MLAST 1 類型 CK_ML_ABST CHAR1 0 物料價格確定: 控制

FUNCTION?ZFI_MATERIAL_BWTAR_MAINTAIN.
*"----------------------------------------------------------------------
*"*"本地接口：
*"??IMPORTING
*"?????VALUE(TESTRUN)?LIKE??BAPIE1GLOBAL_DATA-TESTRUN?OPTIONAL
*"?????VALUE(NOAPPLLOG)?TYPE??CHAR1?OPTIONAL
*"??EXPORTING
*"?????VALUE(E_SUCC)?TYPE??CHAR1
*"?????VALUE(E_MESSAGE)?TYPE??GTER_TEXT
*"??TABLES
*"??????IT_MBEW?STRUCTURE??ZMS_MBEW
*"??????ET_RETURN?STRUCTURE??BAPIRET2
*"----------------------------------------------------------------------
??CLEAR?:E_MESSAGE,E_SUCC.

??DATA:RETURN?????????TYPE?BAPIRET2,
???????HEADDATA???????LIKE?TABLE?OF?BAPIE1MATHEADER?WITH?HEADER?LINE,
???????VALUATIONDATA??LIKE?TABLE?OF?BAPIE1MBEW?WITH?HEADER?LINE,
???????VALUATIONDATAX?LIKE?TABLE?OF?BAPIE1MBEWX?WITH?HEADER?LINE,
???????RETURNMESSAGES?LIKE?TABLE?OF?BAPIE1RET2?WITH?HEADER?LINE.
??DATA:LV_BAPIFN?????TYPE?BAPIFN,?"INS?插入?UPD?更新?DEL?刪除
???????INP_FLD_CHECK?TYPE?BAPIE1GLOBAL_DATA-INP_FLD_CHECK?VALUE?''.
??REFRESH:ET_RETURN,RETURNMESSAGES,VALUATIONDATA,VALUATIONDATAX,HEADDATA.

??SORT?IT_MBEW?BY?MTART?MATNR?BWKEY?BWTAR.
??DELETE?ADJACENT?DUPLICATES?FROM?IT_MBEW?COMPARING??MTART?MATNR?BWKEY?BWTAR.
??LOOP?AT?IT_MBEW.
*?HEADER
????LV_BAPIFN?=?'UPD'.
????HEADDATA-FUNCTION?=?LV_BAPIFN.
????HEADDATA-MATERIAL?=?IT_MBEW-MATNR.
????HEADDATA-IND_SECTOR?=?'M'.
????HEADDATA-MATL_TYPE?=?IT_MBEW-MTART.
????HEADDATA-ACCOUNT_VIEW?=?'X'.
*????HEADDATA-COST_VIEW?=?'X'.
????APPEND?HEADDATA.

????VALUATIONDATA-FUNCTION?=?LV_BAPIFN.
????VALUATIONDATAX-FUNCTION?=?LV_BAPIFN.
????VALUATIONDATA-MATERIAL?=?IT_MBEW-MATNR.
????VALUATIONDATAX-MATERIAL?=?IT_MBEW-MATNR.
????VALUATIONDATA-VAL_AREA?=?IT_MBEW-BWKEY.
????VALUATIONDATAX-VAL_AREA?=?IT_MBEW-BWKEY.
????VALUATIONDATA-VAL_TYPE?=?IT_MBEW-BWTAR.
????VALUATIONDATAX-VAL_TYPE?=?IT_MBEW-BWTAR.
????VALUATIONDATA-VAL_CLASS?=?IT_MBEW-BKLAS.
????VALUATIONDATAX-VAL_CLASS?=?'X'.
????VALUATIONDATA-VAL_CAT?=?IT_MBEW-BWTTY.
????VALUATIONDATAX-VAL_CAT?=?'X'.
????VALUATIONDATA-PRICE_CTRL?=?IT_MBEW-VPRSV.
????VALUATIONDATAX-PRICE_CTRL?=??'X'.
????VALUATIONDATA-ML_SETTLE?=?IT_MBEW-MLAST.
????VALUATIONDATAX-ML_SETTLE?=?'X'.
????IF?VALUATIONDATA-PRICE_CTRL?=?'V'.
??????VALUATIONDATA-MOVING_PR?=?IT_MBEW-STPRS.
??????VALUATIONDATAX-MOVING_PR?=??'X'.
????ELSEIF?VALUATIONDATA-PRICE_CTRL?=?'S'.
??????VALUATIONDATA-STD_PRICE?=?IT_MBEW-STPRS.
??????VALUATIONDATAX-STD_PRICE?=??'X'.
????ENDIF.
????VALUATIONDATA-PRICE_UNIT?=?IT_MBEW-PEINH.
????VALUATIONDATAX-PRICE_UNIT?=??'X'.
????APPEND:VALUATIONDATA,VALUATIONDATAX.
????CLEAR?:VALUATIONDATA,VALUATIONDATAX.
??ENDLOOP.


??IF?E_SUCC?<>?'E'.
????CALL?FUNCTION?'BAPI_MATERIAL_SAVEREPLICA'
??????EXPORTING
????????NOAPPLLOG??????=?''
????????NOCHANGEDOC????=?''
????????TESTRUN????????=?TESTRUN
????????INPFLDCHECK????=?INP_FLD_CHECK
??????IMPORTING
????????RETURN?????????=?RETURN
??????TABLES
????????HEADDATA???????=?HEADDATA
????????VALUATIONDATA??=?VALUATIONDATA
????????VALUATIONDATAX?=?VALUATIONDATAX
????????RETURNMESSAGES?=?RETURNMESSAGES.
????APPEND?LINES?OF?RETURNMESSAGES?TO?ET_RETURN.
????LOOP?AT?RETURNMESSAGES?WHERE?TYPE?=?'E'?OR?TYPE?=?'A'.
??????E_SUCC??=?'E'.
??????E_MESSAGE?=?E_MESSAGE?&&?RETURNMESSAGES-MESSAGE.
????ENDLOOP.
????IF?SY-SUBRC?=?0?OR?RETURN-TYPE?=?'E'?OR?RETURN-TYPE?=?'A'.
??????IF?RETURN-NUMBER?=?'157'?AND?RETURN-ID?=?'MG'.
??????ELSE.
????????IF?RETURN-TYPE?=?'E'?OR?RETURN-TYPE?=?'A'..
??????????E_SUCC??=?'E'.
??????????E_MESSAGE?=?E_MESSAGE?&&?RETURN-MESSAGE.
??????????MOVE-CORRESPONDING?RETURN?to?ET_RETURN.
??????????append?ET_RETURN.
????????ENDIF.
??????ENDIF.
????ELSE."保存成功
??????E_SUCC??=?'S'.
??????IF?TESTRUN?=?'X'.
????????E_MESSAGE?=?E_MESSAGE?&&?'檢查OK;'.
??????ELSE.
????????CALL?FUNCTION?'BAPI_TRANSACTION_COMMIT'
??????????EXPORTING
????????????WAIT?=?'X'.
????????E_MESSAGE?=?E_MESSAGE?&&?'保存成功;'.
??????ENDIF.
????ENDIF.
??ENDIF.
ENDFUNCTION.

總結

以上是生活随笔為你收集整理的物料评估类型视图扩充的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。