Skip to Content
0
Former Member
Dec 04, 2006 at 10:23 AM

BAPI_MATERIAL_SAVEDATA

73 Views

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