BAPI_MATERIAL_SAVEDATA

[Former Member]

Can someone know about the BAPI BAPI_MATERIAL_SAVEDATA?

Thank you

[Former Member]

Hi,

Check this link for a sample code for the BAPI.

http://sap-img.com/abap/bapi-to-copy-materials-from-one-plant-to-another.htm

Thanks,

Naren

[Former Member]

Thanks a lot Naren

[Former Member]

&----

---

*& Report ZP_BAPI_MATERIAL_SAVEDATA

*&

&----

---

*&

*&

&----

---

REPORT ZP_BAPI_MATERIAL_SAVEDATA.

INITIALIZATION .

Data : HEADDATA LIKE BAPIMATHEAD,

CLIENTDATA LIKE BAPI_MARA,

CLIENTDATAX LIKE BAPI_MARAX,

PLANTDATA LIKE BAPI_MARC,

PLANTDATAX LIKE BAPI_MARCX,

STORAGELOCATIONDATA LIKE BAPI_MARD,

STORAGELOCATIONDATAX LIKE BAPI_MARDX,

VALUATIONDATA LIKE BAPI_MBEW ,

VALUATIONDATAX LIKE BAPI_MBEWX ,

MATERIALDESCRIPTION type TABLE OF BAPI_MAKT with HEADER LINE ,

UNITSOFMEASURE type TABLE OF BAPI_MARM ,

UNITSOFMEASUREX type TABLE OF BAPI_MARMX,

return type bapiret2.

PARAMETERS : p_matnr TYPE char18,

p_maktx TYPE char40.

*data: headdata type bapimathead.

*data: clientdata type bapi_mara.

*data: clientdatax type bapi_marax.

*data: descdata type table of BAPI_MAKT with header line.

*data: return type bapiret2 .

*data: returnm type table of bapi_matreturn2 with header line.

*data: xmara type mara.

START-OF-SELECTION.

headdata-MATERIAL = p_matnr.

• translate MATL_TYPE to upper case.

headdata-MATL_TYPE = 'ROH'.

headdata-IND_SECTOR = 'M'.

headdata-BASIC_VIEW = 'X'.

headdata-PURCHASE_VIEW = 'X'.

headdata-ACCOUNT_VIEW = 'X'.

headdata-STORAGE_VIEW = 'X'.

CLIENTDATA-PUR_STATUS = ' '.

CLIENTDATA-BASE_UOM = 'EA'.

CLIENTDATA-DIVISION = '00'.

CLIENTDATA-ITEM_CAT = 'NORM'.

CLIENTDATA-MATL_GROUP = '00706'.

CLIENTDATAX-PUR_STATUS = ' '.

CLIENTDATAX-BASE_UOM = 'EA'.

CLIENTDATAX-DIVISION = '00'.

CLIENTDATAX-ITEM_CAT = 'NORM'.

CLIENTDATAX-MATL_GROUP = '00706'.

PLANTDATA-PLANT = '1000'.

PLANTDATA-PUR_GROUP = '001'.

• PLANTDATA-MRP_TYPE = 'PD'.

• PLANTDATA-MRP_CTRLER = '001'.

• PLANTDATA-LOTSIZEKEY = 'EX'.

PLANTDATA-PROC_TYPE = 'X'.

• PLANTDATA-SM_KEY = '000'.

• PLANTDATA-INHSEPRODT = '5'.

• PLANTDATA-AVAILCHECK = 'KP'.

PLANTDATAX-PLANT = '1000'.

PLANTDATAX-PUR_GROUP = '001'.

• PLANTDATAX-MRP_TYPE ='X'.

• PLANTDATAX-MRP_CTRLER ='X'.

• PLANTDATAX-LOTSIZEKEY ='X'.

PLANTDATAX-PROC_TYPE ='X'.

• PLANTDATAX-SM_KEY ='X'.

• PLANTDATAX-INHSEPRODT ='X'.

• PLANTDATAX-AVAILCHECK ='X'.

• VALUATIONDATA-QTY_STRUCT = QTY_STRUCT.

VALUATIONDATA-VAL_AREA = '1000'.

VALUATIONDATA-VAL_CLASS = '3000'.

VALUATIONDATA-PRICE_CTRL = 'S'.

VALUATIONDATA-PRICE_UNIT = '1'.

VALUATIONDATA-MOVING_PR = '1.00'.

VALUATIONDATA-STD_PRICE = '1.00'.

VALUATIONDATAX-VAL_AREA = '1000'.

VALUATIONDATAX-VAL_CLASS = '3000'.

VALUATIONDATAX-PRICE_CTRL = 'S'.

VALUATIONDATAX-PRICE_UNIT = '1'.

VALUATIONDATAX-MOVING_PR = '100'.

VALUATIONDATAX-STD_PRICE = '100'.

STORAGELOCATIONDATA-STGE_LOC = '0001'.

STORAGELOCATIONDATA-PLANT = '1000'.

STORAGELOCATIONDATAX-STGE_LOC = '0001'.

STORAGELOCATIONDATAX-PLANT = '1000'.

materialdescription-LANGU = 'E'.

materialdescription-LANGU_ISO = 'EN'.

materialdescription-MATL_DESC = p_maktx.

append materialdescription.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

HEADDATA = HEADDATA

CLIENTDATA = CLIENTDATA

CLIENTDATAX = CLIENTDATAX

PLANTDATA = PLANTDATA

PLANTDATAX = PLANTDATAX

STORAGELOCATIONDATA = STORAGELOCATIONDATA

STORAGELOCATIONDATAX = STORAGELOCATIONDATAX

VALUATIONDATA = VALUATIONDATA

VALUATIONDATAX = VALUATIONDATAX

IMPORTING

RETURN = RETURN

TABLES

MATERIALDESCRIPTION = MATERIALDESCRIPTION .

• UNITSOFMEASURE = UNITSOFMEASURE

• UNITSOFMEASUREX = UNITSOFMEASUREX.

if sy-subrc EQ 0.

MESSAGE 'Success ' TYPE 'I'.

ENDIF.