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