Hello
Check this out
DATA: headdata LIKE bapimathead,
plantdata LIKE bapi_marc,
plantdatax LIKE bapi_marcx,
materialdescription TYPE TABLE OF bapi_makt WITH HEADER LINE,
clientdata LIKE bapi_mara,
clientdatax LIKE bapi_marax,
valuationdata LIKE bapi_mbew,
valuationdatax LIKE bapi_mbewx,
unitsofmeasure TYPE TABLE OF bapi_marm WITH HEADER LINE,
unitsofmeasurex TYPE TABLE OF bapi_marmx WITH HEADER LINE,
RETURNMESSAGES TYPE TABLE OF BAPI_MATRETURN2 WITH HEADER LINE,
bapi_ret LIKE bapiret2,
flines LIKE tline OCCURS 0 WITH HEADER LINE,
fname LIKE thead-tdname.
Create a IT with the fields you want to fill with the material
.....
LOOP AT i_material.
MOVE-CORRESPONDING i_material TO headdata.
headdata-basic_view = 'X'.
headdata-sales_view = 'X'.
headdata-purchase_view = 'X'.
headdata-account_view = 'X'.
MOVE-CORRESPONDING i_material TO plantdata.
MOVE-CORRESPONDING i_materialx TO plantdatax.
plantdatax-plant = i_material-plant.
plantdata-availcheck = '01'.
plantdatax-availcheck = 'X'.
MOVE-CORRESPONDING i_material TO materialdescription.
materialdescription-langu = sy-langu.
APPEND materialdescription.
MOVE-CORRESPONDING i_material TO valuationdata.
MOVE-CORRESPONDING i_materialx TO valuationdatax.
valuationdata-val_area = i_material-plant.
valuationdata-val_cat = 'Z'.
valuationdatax-val_area = i_material-plant.
valuationdatax-val_type = i_material-val_type.
valuationdatax-val_cat = 'X'.
MOVE-CORRESPONDING i_material TO unitsofmeasure.
unitsofmeasure-alt_unit = i_material-base_uom.
MOVE-CORRESPONDING i_materialx TO unitsofmeasurex.
unitsofmeasurex-alt_unit = unitsofmeasure-alt_unit.
APPEND unitsofmeasure.
APPEND unitsofmeasurex.
MOVE-CORRESPONDING i_material TO clientdata.
MOVE-CORRESPONDING i_materialx TO clientdatax.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = headdata
clientdata = clientdata
clientdatax = clientdatax
plantdata = plantdata
plantdatax = plantdatax
valuationdata = valuationdata
valuationdatax = valuationdatax
IMPORTING
return = bapi_ret
TABLES
materialdescription = materialdescription
unitsofmeasure = unitsofmeasure
unitsofmeasurex = unitsofmeasurex
RETURNMESSAGES = RETURNMESSAGES.
endloop.
....
I hope this helps...
Bluesky
