Hello gurus,
I am using the BAPI_MATERIAL_SAVEDATA to change the material master
Below s the code i have written
but the chnages not being affectes
Please correct me the code where i am going wrong
DATA: headdata TYPE bapimathead.
DATA: clientdata TYPE bapi_mara.
DATA: clientdatax TYPE bapi_marax.
DATA: plantdata TYPE bapi_marc.
DATA: plantdatax TYPE bapi_marcx.
DATA: h_matnr LIKE mara-matnr.
DATA: descdata TYPE TABLE OF bapi_makt WITH HEADER LINE.
DATA: return TYPE TABLE OF bapiret2 WITH HEADER LINE.
DATA: returnm TYPE TABLE OF bapi_matreturn2 WITH HEADER LINE.
DATA: imat TYPE TABLE OF bapimatinr WITH HEADER LINE.
SELECT SINGLE matnr FROM mara INTO h_matnr
WHERE matnr EQ matnr.
IF sy-subrc EQ 0.
headdata-material = h_matnr.
headdata-ind_sector = 'Z'.
headdata-matl_type = MATKL.
headdata-basic_view = 'X'.
headdata-purchase_view = 'X'.
clientdata-base_uom = meins.
clientdatax-base_uom = 'X'.
clientdata-old_mat_no = bismt.
clientdatax-old_mat_no = 'X'.
clientdata-matl_group = matkl.
clientdatax-matl_group = 'X'.
clientdata-document = zeinr.
clientdatax-document = 'X'.
clientdata-size_dim = groes.
clientdatax-size_dim = 'X'.
clientdata-std_descr = normt.
clientdatax-std_descr = 'X'.
clientdata-basic_matl = wrkst.
clientdatax-basic_matl = 'X'.
clientdata-del_flag = lvorm.
clientdatax-del_flag = 'X'.
plantdata-plant = werks.
plantdatax-plant = werks.
plantdata-pur_group = ekgrp.
plantdatax-pur_group = 'X'.
plantdata-auto_p_ord = kautb.
plantdatax-auto_p_ord = 'X'.
descdata-langu = sy-langu.
descdata-matl_desc = maktx.
APPEND descdata.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = headdata
clientdata = clientdata
clientdatax = clientdatax
plantdata = plantdata
plantdatax = plantdatax
FORECASTPARAMETERS =
FORECASTPARAMETERSX =
PLANNINGDATA =
PLANNINGDATAX =
STORAGELOCATIONDATA =
STORAGELOCATIONDATAX =
VALUATIONDATA =
VALUATIONDATAX =
WAREHOUSENUMBERDATA =
WAREHOUSENUMBERDATAX =
SALESDATA =
SALESDATAX =
STORAGETYPEDATA =
STORAGETYPEDATAX =
IMPORTING
return = return
TABLES
materialdescription = descdata
UNITSOFMEASURE =
UNITSOFMEASUREX =
INTERNATIONALARTNOS =
MATERIALLONGTEXT =
TAXCLASSIFICATIONS =
returnmessages = returnm
PRTDATA =
PRTDATAX =
EXTENSIONIN =
EXTENSIONINX =
.
IF sy-subrc EQ 0.
return1-number = 0.
return1-type = 'S'.
return1-id = 'Z1'.
return1-message = 'Successfully updated'.
return1-message_v1 = headdata-material.
return1-message_v2 = ''.
return1-message_v3 = ''.
return1-message_v4 = sy-mandt.
ELSE.
return1-number = 0.
return1-type = 'E'.
return1-id = 'Z1'.
return1-message = 'Not updated'.
return1-message_v1 = returnm.
return1-message_v2 = ''.
return1-message_v3 = ''.
return1-message_v4 = sy-mandt.
ENDIF.
ELSE.
return-number = 0.
return-type = 'E'.
return-id = 'Z1'.
return-message = 'Material not found'.
return-message_v1 = ''.
return-message_v2 = ''.
return-message_v3 = ''.
return-message_v4 = sy-mandt.
ENDIF.
thanx in advance
Matter most urgent.
Regards
senthil