Skip to Content
0
Former Member
Dec 01, 2006 at 11:45 AM

BAPi Updation Change material

376 Views

Hi all,

I am using the following BAPI to make changes in material master

but my material description s not getting updated

can u please tell where would i had gone wrong

*"----


""Local Interface:

*" IMPORTING

*" VALUE(MATNR) LIKE MARA-MATNR

*" VALUE(MATKL) LIKE MARA-MATKL

*" VALUE(MTART) LIKE MARA-MTART

*" VALUE(BISMT) LIKE MARA-BISMT OPTIONAL

*" VALUE(MEINS) LIKE MARA-MEINS OPTIONAL

*" VALUE(ZEINR) LIKE MARA-ZEINR OPTIONAL

*" VALUE(GROES) LIKE MARA-GROES OPTIONAL

*" VALUE(NORMT) LIKE MARA-NORMT OPTIONAL

*" VALUE(WRKST) LIKE MARA-WRKST

*" VALUE(LVORM) TYPE CHAR1 OPTIONAL

*" VALUE(MAKTX) LIKE MAKT-MAKTX

*" VALUE(EKGRP) LIKE MARC-EKGRP OPTIONAL

*" VALUE(KAUTB) LIKE MARC-KAUTB OPTIONAL

*" VALUE(WERKS) LIKE MARC-WERKS

*" EXPORTING

*" VALUE(RETURN) LIKE BAPIRETURN1 STRUCTURE BAPIRETURN1

*"----


DATA: tg_mara_ueb TYPE STANDARD TABLE OF mara_ueb WITH HEADER LINE,

tg_marc_ueb TYPE STANDARD TABLE OF marc_ueb WITH HEADER LINE,

tg_makt_ueb TYPE STANDARD TABLE OF makt_ueb WITH HEADER LINE,

h_matnr LIKE mara-matnr.

SELECT SINGLE matnr FROM mara INTO h_matnr

WHERE matnr EQ matnr.

IF sy-subrc EQ 0.

tg_mara_ueb-mandt = sy-mandt.

tg_mara_ueb-matnr = h_matnr.

tg_mara_ueb-matkl = matkl.

tg_mara_ueb-mtart = mtart.

tg_mara_ueb-bismt = bismt.

tg_mara_ueb-meins = meins.

tg_mara_ueb-zeinr = zeinr.

tg_mara_ueb-groes = groes.

tg_mara_ueb-normt = normt.

tg_mara_ueb-wrkst = wrkst.

tg_mara_ueb-tranc = 1.

tg_mara_ueb-tcode = 'MM02'.

tg_mara_ueb-lvorm = lvorm.

APPEND tg_mara_ueb.

tg_marc_ueb-mandt = sy-mandt.

  • tg_marc_ueb-matnr = tg_matmas-matnr.

tg_marc_ueb-matnr = h_matnr.

tg_marc_ueb-werks = werks.

tg_marc_ueb-kautb = kautb.

tg_marc_ueb-tranc = 1.

APPEND tg_marc_ueb.

  • tg_makt_ueb-matnr = tg_matmas-matnr.

tg_makt_ueb-mandt = sy-mandt.

  • tg_makt_ueb-matnr = h_matnr.

tg_makt_ueb-tranc = 1.

<b> tg_makt_ueb-maktx = maktx.

tg_makt_ueb-maktg = maktx.</b> ( where i am not getting updated)

  • tg_makt_ueb-spras = sy-langu.

tg_makt_ueb-spras = 'NL'.

APPEND tg_makt_ueb.

CALL FUNCTION 'MATERIAL_MAINTAIN_DARK'

EXPORTING

flag_muss_pruefen = 'X'

sperrmodus = 'E'

max_errors = 9999

p_kz_no_warn = 'W'

kz_prf = 'W'

user = sy-uname

IMPORTING

matnr_last = h_matnr

TABLES

amara_ueb = tg_mara_ueb

amakt_ueb = tg_makt_ueb

amarc_ueb = tg_marc_ueb

  • AMFIELDRES =

  • AMERRDAT =

EXCEPTIONS

kstatus_empty = 1

tkstatus_empty = 2

t130m_error = 3

internal_error = 4

too_many_errors = 5

update_error = 6

OTHERS = 7.

COMMIT WORK AND WAIT.

IF sy-subrc EQ 0.

return-number = 0.

return-type = 'S'.

return-id = 'Z1'.

return-message = 'Successfully updated'.

return-message_v1 = ''.

return-message_v2 = ''.

return-message_v3 = ''.

return-message_v4 = sy-mandt.

ELSE.

return-number = 0.

return-type = 'E'.

return-id = 'Z1'.

return-message = 'Not updated'.

return-message_v1 = ''.

return-message_v2 = ''.

return-message_v3 = ''.

return-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.

ENDFUNCTION.

Awaiting for u r kind reply

senthil