topic Re: Need help in using FM BAPI_MATERIAL_SAVEDATA in Application Development and Automation Discussions

Need help in using FM BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 29 Jan 2008 09:22:01 GMT

Gurus,

I need help in using the FM BAPI_MATERIAL_SAVEDATA. The FM is returning a message that says "The field MARA-MEINS/BAPI_MARA-BASE_UOM(_ISO) is defined as a required field; it does not contain an entry".

I have supplied the necessary details and yet the FM won't push through.

If possible, please post sample codes.

Below is my sample code:

===============================================

REPORT zmm_materialupload.

eject

$$******************************************************************************

$$ TYPES

$$******************************************************************************

eject

$$******************************************************************************

$$ INTERNAL TABLES (custom structure

$$******************************************************************************

eject

$$******************************************************************************

$$ RANGES

$$******************************************************************************

{

}

eject

$$******************************************************************************

$$ FIELD-SYMBOLS

$$******************************************************************************

{

}

eject

$$******************************************************************************

$$ PARAMETERS & SELECT-OPTIONS

$$******************************************************************************

{

SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.

*SELECT-OPTIONS: s_matnr FOR mara-matnr.

SELECT-OPTIONS: s_mtart FOR mara-mtart.

SELECT-OPTIONS: s_mbrsh FOR mara-mbrsh DEFAULT 'P'.

SELECT-OPTIONS: s_werks FOR marc-werks DEFAULT '1000' OBLIGATORY.

SELECT-OPTIONS: s_lgort FOR marc-lgpro DEFAULT 'OPSL' OBLIGATORY.

PARAMETERS: p_path LIKE rlgrap-filename DEFAULT 'C:\Documents and Settings\training_11\Desktop\Book4 (2ITEMS).txt' OBLIGATORY.

SELECTION-SCREEN END OF BLOCK 1.

}

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

field_name = 'P_FNAME'

IMPORTING

file_name = p_path.

eject

$$******************************************************************************

$$ START-OF-SELECTION

$$******************************************************************************

{

START-OF-SELECTION.

PERFORM check_input.

PERFORM get_file.

PERFORM filter_input.

PERFORM populate_tabs.

PERFORM bapi_mat.

}
eject

$$******************************************************************************

$$ FORMS

$$******************************************************************************

{

FORM bapi_mat.

LOOP AT it_tab INTO wa_tab.

CALL FUNCTION 'BAPI_MATERIAL_GETINTNUMBER'

EXPORTING

material_type = wa_tab-mtart

industry_sector = wa_tab-mbrsh

required_numbers = 1

TABLES

material_number = it_matnr.

ENDLOOP.

LOOP AT it_matnr INTO wa_matnr.

READ TABLE it_tab INTO wa_tab INDEX sy-tabix.

wa_tab-matnr = wa_matnr-material.

MODIFY it_tab FROM wa_tab INDEX sy-tabix.

ENDLOOP.

PERFORM populate_tabs.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

headdata = it_headdata

clientdata = it_clientdata
clientdatax = it_clientdatax
plantdata = it_plantdata
plantdatax = it_plantdatax
FORECASTPARAMETERS =
FORECASTPARAMETERSX =
PLANNINGDATA =
PLANNINGDATAX =
STORAGELOCATIONDATA =
STORAGELOCATIONDATAX =
valuationdata = it_valuationdata
valuationdatax = it_valuationdatax
WAREHOUSENUMBERDATA =
WAREHOUSENUMBERDATAX =
SALESDATA =
SALESDATAX =
STORAGETYPEDATA =
STORAGETYPEDATAX =
flag_online = ' '
flag_cad_call = ' '
NO_DEQUEUE = ' '
NO_ROLLBACK_WORK = ' '

IMPORTING

return = it_return

TABLES

materialdescription = it_materialdescription

unitsofmeasure = it_unitsofmeasure

unitsofmeasurex = it_unitsofmeasurex

internationalartnos = it_internationalartnos

materiallongtext = it_materiallongtext

taxclassifications = it_taxclassifications

returnmessages = it_returnmessages

PRTDATA =
PRTDATAX =
EXTENSIONIN =
EXTENSIONINX =

IF sy-subrc = 0.

ENDIF.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'

IMPORTING

return = it_return.

ENDFORM. "bapi_mat

&----

*& Form GET_FILE

&----

text

----

FORM get_file.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

text = 'Getting data from file...'.

MOVE: p_path TO gv_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = gv_file

filetype = 'ASC'

has_field_separator = 'X'

read_by_line = 'X'

TABLES

data_tab = it_tab

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

no_authority = 6

unknown_error = 7

bad_data_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknown_dp_error = 12

access_denied = 13

dp_out_of_memory = 14

disk_full = 15

dp_timeout = 16

OTHERS = 17.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. "GET_FILE

&----

*& Form check_input

&----

text

----

FORM check_input.

Material Type

IF s_mtart-low IS INITIAL AND s_mtart-high IS INITIAL.

s_mtart = 'IEQ'.
s_mtart-low = 'ABF'. "Waste
s_mtart-high = 'ZTRD'. "Stock Items
APPEND s_mtart.

ENDIF.

IF s_mtart-low IS NOT INITIAL AND s_mtart-high IS INITIAL.

MOVE: s_mtart-low TO s_mtart-high.

ENDIF.

Industry Sector

IF s_mbrsh-low IS INITIAL AND s_mbrsh-high IS INITIAL.

s_mbrsh = 'IEQ'.

SELECT mbrsh
FROM mara
INTO TABLE it_mbrsh.
s_mbrsh-low = wa_mbrsh-mbrsh.

LOOP AT it_mbrsh INTO wa_mbrsh.
s_mbrsh-high = wa_mbrsh-mbrsh.
ENDLOOP.

APPEND s_mbrsh.

ENDIF.

IF s_mbrsh-low IS NOT INITIAL AND s_mbrsh-high IS INITIAL.

MOVE: s_mbrsh-low TO s_mbrsh-high.

ENDIF.

Plant

IF s_werks-low IS INITIAL AND s_werks-high IS INITIAL.

s_werks = 'IEQ'.

s_werks-low = '1000'.

s_werks-high = '2000'.

ENDIF.

IF s_werks-low IS NOT INITIAL AND s_werks-high IS INITIAL.

MOVE: s_werks-low TO s_werks-high.

ENDIF.

Storage Location

IF s_lgort-low IS NOT INITIAL AND s_lgort-high IS INITIAL.

MOVE: s_lgort-low TO s_lgort-high.

ENDIF.

ENDFORM. "check_input

&----

*& Form Filter_input

&----

text

----

FORM filter_input.

SORT it_tab BY matnr mtart mbrsh werks lgort.

LOOP AT it_tab INTO wa_tab.

IF wa_tab-mtart NOT IN s_mtart.
DELETE it_tab WHERE mtart NOT IN s_mtart.
ENDIF.

IF wa_tab-mbrsh NOT IN s_mbrsh.
DELETE it_tab WHERE mbrsh NOT IN s_mbrsh.
ENDIF.

IF wa_tab-werks NOT IN s_werks.

DELETE it_tab WHERE werks NOT IN s_werks.

ENDIF.

IF wa_tab-lgort NOT IN s_lgort.

DELETE it_tab WHERE lgort NOT IN s_lgort.

ENDIF.

ENDLOOP.

ENDFORM. "Filter_input

&----

*& Form populate_tabs

&----

text

----

FORM populate_tabs.

LOOP AT it_tab INTO wa_tab.

MOVE: wa_tab-matnr TO wa_headdata-material,

wa_tab-mbrsh TO wa_headdata-ind_sector,

wa_tab-mtart TO wa_headdata-matl_type,

'X' TO wa_headdata-basic_view,

'X' TO wa_headdata-sales_view,

'X' TO wa_headdata-purchase_view,

'X' TO wa_headdata-mrp_view,

'X' TO wa_headdata-account_view.

wa_tab-matkl TO wa_clientdata-matl_group,
wa_tab-meins TO wa_clientdata-base_uom,
wa_tab-groes TO wa_clientdata-size_dim,
wa_tab-gewei TO wa_clientdata-unit_of_wt,
wa_tab-ntgew TO wa_clientdata-net_weight,

'X' TO wa_clientdatax-matl_group,
'X' TO wa_clientdatax-base_uom,
'X' TO wa_clientdata-size_dim,
'X' TO wa_clientdatax-unit_of_wt,
'X' TO wa_clientdatax-net_weight,

wa_tab-werks TO wa_plantdata-plant,
wa_tab-ekgrp TO wa_plantdata-pur_group,

wa_tab-prctr TO wa_plantdata-profit_ctr,

wa_tab-werks TO wa_plantdatax-plant,
'X' TO wa_plantdatax-pur_group,

'X' TO wa_plantdatax-profit_ctr,

wa_tab-werks TO wa_valuationdata-val_area,
wa_tab-bklas TO wa_valuationdata-val_class,
wa_tab-peinh TO wa_valuationdata-price_unit,
wa_tab-verpr TO wa_valuationdata-moving_pr,
wa_tab-stprs TO wa_valuationdata-std_price,
wa_tab-xlifo TO wa_valuationdata-lifo_fifo,

wa_tab-werks TO wa_valuationdatax-val_area,
'X' TO wa_valuationdatax-val_class,
'X' TO wa_valuationdatax-price_unit,
'X' TO wa_valuationdatax-moving_pr,
'X' TO wa_valuationdatax-std_price,
'X' TO wa_valuationdatax-lifo_fifo.

APPEND wa_headdata TO it_headdata.

APPEND wa_clientdata TO it_clientdata.
APPEND wa_plantdata TO it_plantdata.
APPEND wa_valuationdata TO it_valuationdata.

MODIFY it_tab FROM wa_tab TRANSPORTING matnr.

ENDLOOP.

ENDFORM. "populate_tabs

}

$$******************************************************************************

Re: Need help in using FM BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 29 Jan 2008 09:46:10 GMT

Hai.

check the below example.

REPORT z34332_bdc_create_material .

data: la_headdata type BAPIMATHEAD,

la_clientdata type BAPI_MARA,

la_CLIENTDATAX type BAPI_MARAX,

la_return type BAPIRET2.

data: i_materialdescription type table of BAPI_MAKT,

wa_materialdescription like line of i_materialdescription.

la_headdata-MATERIAL = '000000000000000004'.

la_headdata-IND_SECTOR = 'M'.

la_headdata-MATL_TYPE = 'FERT'.

la_clientdata-BASE_UOM = 'FT3'.

la_CLIENTDATAX-BASE_UOM = 'X'.

la_clientdata-MATL_GROUP = '01'.

la_CLIENTDATAX-MATL_GROUP = 'X'.

wa_materialdescription = 'TEST'.

append wa_materialdescription to i_materialdescription.

clear: wa_materialdescription.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

headdata = la_headdata

CLIENTDATA = la_clientdata

CLIENTDATAX = la_CLIENTDATAX

PLANTDATA =
PLANTDATAX =
FORECASTPARAMETERS =
FORECASTPARAMETERSX =
PLANNINGDATA =
PLANNINGDATAX =
STORAGELOCATIONDATA =
STORAGELOCATIONDATAX =
VALUATIONDATA =
VALUATIONDATAX =
WAREHOUSENUMBERDATA =
WAREHOUSENUMBERDATAX =
SALESDATA =
SALESDATAX =
STORAGETYPEDATA =
STORAGETYPEDATAX =
FLAG_ONLINE = ' '
FLAG_CAD_CALL = ' '

IMPORTING

RETURN = la_return

TABLES

MATERIALDESCRIPTION = i_materialdescription

UNITSOFMEASURE =
UNITSOFMEASUREX =
INTERNATIONALARTNOS =
MATERIALLONGTEXT =
TAXCLASSIFICATIONS =
RETURNMESSAGES =
PRTDATA =
PRTDATAX =
EXTENSIONIN =
EXTENSIONINX =

write: la_return-TYPE, ',', la_return-MESSAGE.

clear: la_headdata, la_return, la_clientdata, la_clientdatax.

regards.

sowjanya.b.