'BAPI_MATVAL_PRICE_CHANGE' is a BAPI for MR21 only, not for MR22.
But setting flag SUBS_DBT inside this BAPI makes it BAPI for MR22.
You also have to write some code inside...
Code to run BAPI:
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_bwkey TYPE mbew-bwkey.
PARAMETERS: p_matnr TYPE mara-matnr.
PARAMETERS: p_bwtar TYPE mbew-bwtar.
PARAMETERS: p_pspnr TYPE cobl-ps_posid
MATCHCODE OBJECT zash_prpm.
PARAMETERS: p_price TYPE mbew-verpr.
PARAMETERS: p_sum TYPE ebc_tot.""bseg-dmbtr.
PARAMETERS: p_bktxt TYPE bktxt DEFAULT 'bktxt'.
PARAMETERS: p_xblnr TYPE xblnr DEFAULT 'xblnr'.
PARAMETERS: p_date TYPE sy-datum DEFAULT sy-datum.
SELECTION-SCREEN END OF BLOCK b2.
START-OF-SELECTION.
DATA:
i_material TYPE bapi_matval_key-material,
i_valuationarea TYPE bapi_matval_key-val_area,
i_valuationtype TYPE bapi_matval_key-val_type,
i_wbselement TYPE bapi_matval_key-wbs_element,
i_bktxt TYPE bktxt,
i_xblnr TYPE xblnr,
i_pricedate TYPE bapi_matval_pricedate,
i_material_evg TYPE bapimgvmatnr_copy,
i_pricechangedocument TYPE bapi_pricechange_document,
gt_prices TYPE STANDARD TABLE OF bapi_matval_prices,
wa_prices TYPE bapi_matval_prices,
gt_return TYPE STANDARD TABLE OF bapiret2,
wa_return TYPE bapiret2
.
DATA l_price TYPE mbew-verpr.
DATA c_sum(20) TYPE c.
DATA c_price(20) TYPE c.
DATA l_sum TYPE bseg-dmbtr.
DATA wa_qbew TYPE qbew.
DATA i_sum TYPE bseg-dmbtr.
DATA i_subs_dbt TYPE c.
********************************
IF p_price IS INITIAL
AND p_sum IS INITIAL.
MESSAGE i096(zm) WITH 'Введите сумму или цену'.
exit.
ELSE.
IF p_price IS INITIAL
AND NOT p_sum IS INITIAL.
i_subs_dbt = 'X'.
ENDIF.
ENDIF.
DATA p_pspnr2(18) TYPE c.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'
EXPORTING
input = p_pspnr
IMPORTING
output = p_pspnr2
EXCEPTIONS
length_error = 1
OTHERS = 2.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = p_matnr
IMPORTING
output = p_matnr
EXCEPTIONS
length_error = 1
OTHERS = 2.
c_sum = p_sum.
TRANSLATE c_sum USING ',.'.
SHIFT c_sum LEFT DELETING LEADING space.
i_sum = c_sum.
IF p_pspnr IS INITIAL.
SELECT SINGLE *
FROM mbew
INTO CORRESPONDING FIELDS OF wa_qbew
WHERE bwkey = p_bwkey
AND matnr = p_matnr
AND bwtar = p_bwtar.
ELSE.
SELECT SINGLE *
FROM qbew
INTO CORRESPONDING FIELDS OF wa_qbew
WHERE bwkey = p_bwkey
AND matnr = p_matnr
AND bwtar = p_bwtar
AND pspnr = p_pspnr2.
ENDIF.
* c_sum = p_sum.
* TRANSLATE c_sum USING ',.'.
* SHIFT c_sum LEFT DELETING LEADING space.
* l_sum = c_sum + wa_qbew-salk3.
* l_price = l_sum / wa_qbew-lbkum.
c_price = p_price.
TRANSLATE c_price USING ',.'.
SHIFT c_price LEFT DELETING LEADING space.
l_price = c_price.
IF i_subs_dbt = ''.
IF wa_qbew-verpr = l_price.
MESSAGE i096(zm) WITH 'Цена не изменилась'.
exit.
ENDIF.
ENDIF.
i_material = p_matnr.
i_valuationarea = p_bwkey.
i_valuationtype = p_bwtar.
i_wbselement = p_pspnr.
i_bktxt = p_bktxt.
i_xblnr = p_xblnr.
i_pricedate = sy-datum.
CLEAR gt_prices[].
wa_prices-valuation_view = '1'.
wa_prices-curr_type = '10'."Валюта БЕ
wa_prices-currency = 'RUB'.
wa_prices-price_unit = '1'.
wa_prices-price = l_price.
APPEND wa_prices TO gt_prices.
CLEAR i_pricedate.
* i_pricedate-fisc_year = p_gjahr."'2012'.
* i_pricedate-fisc_period = p_poper."'006'.
i_pricedate-price_date = p_date."sy-datum.
IF i_wbselement IS INITIAL.
CALL FUNCTION 'BAPI_MATVAL_PRICE_CHANGE'
EXPORTING
material = i_material
valuationarea = i_valuationarea
valuationtype = i_valuationtype
pricedate = i_pricedate
z_bktxt = i_bktxt
z_xblnr = i_xblnr
z_subs_dbt = i_subs_dbt
z_sum = i_sum
IMPORTING
pricechangedocument = i_pricechangedocument
TABLES
prices = gt_prices
return = gt_return.
ELSE.
CALL FUNCTION 'BAPI_PROJECTSTOCK_PRICE_CHANGE'
EXPORTING
material = i_material
valuationarea = i_valuationarea
valuationtype = i_valuationtype
wbselement = i_wbselement
pricedate = i_pricedate
z_bktxt = i_bktxt
z_xblnr = i_xblnr
z_subs_dbt = i_subs_dbt
z_sum = i_sum
IMPORTING
pricechangedocument = i_pricechangedocument
TABLES
prices = gt_prices
return = gt_return.
ENDIF.
READ TABLE gt_return INTO wa_return
WITH KEY type = 'E'.
IF sy-subrc = 0.
ROLLBACK WORK .
ELSE.
COMMIT WORK AND WAIT.
ENDIF.
Code of BAPI_MATVAL_PRICE_CHANGE:
FUNCTION bapi_matval_price_change.
*"----------------------------------------------------------------------
*"" IMPORTING
*" VALUE(MATERIAL) TYPE BAPI_MATVAL_KEY-MATERIAL
*" VALUE(VALUATIONAREA) TYPE BAPI_MATVAL_KEY-VAL_AREA
*" VALUE(VALUATIONTYPE) TYPE BAPI_MATVAL_KEY-VAL_TYPE
*" VALUE(PRICEDATE) TYPE BAPI_MATVAL_PRICEDATE
*" VALUE(MATERIAL_EVG) TYPE BAPIMGVMATNR_COPY OPTIONAL
*" VALUE(Z_XBLNR) TYPE BAPI_MATVAL_KEY-Z_XBLNR OPTIONAL
*" VALUE(Z_BKTXT) TYPE BAPI_MATVAL_KEY-Z_BKTXT OPTIONAL
*" VALUE(Z_SUBS_DBT) TYPE BAPI_MATVAL_KEY-Z_SUBS_DBT OPTIONAL
*" VALUE(Z_SUM) TYPE BSEG-DMBTR OPTIONAL
*" EXPORTING
*" VALUE(PRICECHANGEDOCUMENT) TYPE BAPI_PRICECHANGE_DOCUMENT
*" TABLES
*" PRICES STRUCTURE BAPI_MATVAL_PRICES
*" RETURN STRUCTURE BAPIRET2
*"----------------------------------------------------------------------
ENHANCEMENT-POINT BAPI_MATVAL_PRICE_CHANGE_G6 SPOTS ES_SAPLCKMLSENDPRICE.
*$*$-Start: BAPI_MATVAL_PRICE_CHANGE_G6---------------------------------------------------------$*$*
ENHANCEMENT 1 MGV_GENERATED_SAPLCKMLSENDPRIC. "active version
*{BAPI Begin} generation http://intranet.sap.com/materialversion
*Do not change coding between begin and end comments. ANI 20050323
CALL FUNCTION 'MATNR_BAPI_CONV_FROM_EXTERNAL'
EXPORTING
MATNR_EXT = MATERIAL_EVG-MATERIAL_EXT
MATNR_VERS = MATERIAL_EVG-MATERIAL_VERS
MATNR_GUID = MATERIAL_EVG-MATERIAL_GUID
CHANGING
MATNR_INT = MATERIAL
.
*{BAPI End} generation
ENDENHANCEMENT.
*$*$-End: BAPI_MATVAL_PRICE_CHANGE_G6---------------------------------------------------------$*$*
*{ INSERT DEVK919499 2
* ЗЮ 2012-06-06 Z_BKTXT
*} INSERT
CALL FUNCTION 'CKML_MATVAL_PRICE_CHANGE'
EXPORTING
material = material
valuationarea = valuationarea
valuationtype = valuationtype
pricedate = pricedate
*{ INSERT DEVK919499 3
z_xblnr = z_xblnr
z_bktxt = z_bktxt
z_subs_dbt = z_subs_dbt
z_sum = z_sum
*} INSERT
IMPORTING
pricechangedocument = pricechangedocument
Bluesky
