Hi ,
can you check this code
when i execute it iam getting an
MAINTAIN THE CONVERSION FACTOR FOR THE ALTERNATIVE UNIT EA.
DATA: headdata TYPE bapimathead.
DATA: bapi_marc1 LIKE bapi_marc,
bapi_marcx LIKE bapi_marcx.
DATA: return TYPE bapiret2 .
DATA: returnm TYPE TABLE OF bapi_matreturn2 WITH HEADER LINE.
DATA: it_unitsofmeasure TYPE STANDARD TABLE OF bapi_marm.
DATA: it_unitsofmeasurex TYPE STANDARD TABLE OF bapi_marmx.
DATA: wa_unitsofmeasure TYPE bapi_marm.
DATA: wa_unitsofmeasurex TYPE bapi_marmx.
headdata-material = '00123'.
headdata-storage_view = 'X'.
headdata-basic_view = 'X'.
bapi_marc1-plant = 'ABC'.
bapi_marcx-plant = 'ABC'.
bapi_marcx-issue_unit = 'X'.
SELECT SINGLE meins FROM mara INTO bASIC
WHERE matnr = i_zoritem-matnr.
IF bASIC NE 'EA'.
bapi_marc1-issue_unit = 'EA'.
wa_unitsofmeasure-alt_unit = bASIC.
wa_unitsofmeasure-denominatr = '1'.
wa_unitsofmeasure-numerator = '6'.
APPEND wa_unitsofmeasure TO it_unitsofmeasure.
*wa_unitsofmeasure-denominatr = wa_datatab-umren.
*wa_unitsofmeasure-numerator = wa_datatab-umrez.
*APPEND wa_unitsofmeasure TO it_unitsofmeasure.
wa_unitsofmeasurex-alt_unit = bASIC.
wa_unitsofmeasurex-denominatr = 'X'.
wa_unitsofmeasurex-numerator = 'X'.
APPEND wa_unitsofmeasurex TO it_unitsofmeasurex.
*bapi_marc1-ISSUE_UNIT_ISO = 'BX'.
*bapi_marcx-ISSUE_UNIT_ISO = 'X'.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = headdata
CLIENTDATA =
CLIENTDATAX =
plantdata = bapi_marc1
plantdatax = bapi_marcx
FORECASTPARAMETERS =
FORECASTPARAMETERSX =
PLANNINGDATA =
PLANNINGDATAX =
STORAGELOCATIONDATA =
STORAGELOCATIONDATAX =
VALUATIONDATA =
VALUATIONDATAX =
WAREHOUSENUMBERDATA =
WAREHOUSENUMBERDATAX =
SALESDATA =
SALESDATAX =
STORAGETYPEDATA =
STORAGETYPEDATAX =
IMPORTING
return = return
TABLES
MATERIALDESCRIPTION =
UNITSOFMEASURE =
UNITSOFMEASUREX =
unitsofmeasure = it_unitsofmeasure
unitsofmeasurex = it_unitsofmeasurex
INTERNATIONALARTNOS =
MATERIALLONGTEXT =
TAXCLASSIFICATIONS =
returnmessages = returnm
PRTDATA =
PRTDATAX =
EXTENSIONIN =
EXTENSIONINX =
.
IF return-type = 'E'.
WRITE : return-message.
ELSE.
COMMIT WORK.
ENDIF.
ENDIF.
let me know
Thanks
Bluesky
