Re: transfer Material Master

Former Member — Mon, 14 Apr 2008 04:22:57 GMT

Hi,

Bapi is the Best method,

No screens Calling Direct Updation,

With Regards ,

Kiran.G

REPORT y_test8.

FLAGS *

*----

DATA: f_stop. " Flag used to stop processing

*----

DATA DECLARATIONS *

*----

DATA : v_empty TYPE i, " No. of empty records

v_total TYPE i. " Total no. of records.

*----

STRUCTURES & INTERNAL TABLES

*----

*--- BAPI structures

DATA: bapi_head LIKE bapimathead, " Header Segment with Control " "

"Information

bapi_makt LIKE bapi_makt, " Material Description

bapi_mara1 LIKE bapi_mara, " Client Data

bapi_marax LIKE bapi_marax, " Checkbox Structure for BAPI_MARA

bapi_marc1 LIKE bapi_marc, " Plant View

bapi_marcx LIKE bapi_marcx, " Checkbox Structure for BAPI_MARC

bapi_mbew1 LIKE bapi_mbew, " Accounting View

bapi_mbewx LIKE bapi_mbewx, " Checkbox Structure for BAPI_MBEW

bapi_return LIKE bapiret2. " Return Parameter

*--- Internal table to hold excel file data

DATA: it_intern TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE.

*--- Internal table to hold Matetrial descriptions

DATA: BEGIN OF it_makt OCCURS 100.

INCLUDE STRUCTURE bapi_makt.

DATA: END OF it_makt.

*--- Internal to hold the records in the text file

DATA : BEGIN OF it_data OCCURS 100,

werks(4), " Plant

mtart(4), " Material type

matnr(18), " Material number

matkl(9) , " Material group

mbrsh(1), " Industry sector

meins(3), " Base unit of measure

gewei(3), " Weight Unit

spart(2), " Division

ekgrp(3), " Purchasing group

vprsv(1), " Price control indicator

stprs(12), " Standard price

peinh(3), " Price unit

spras(2), " Language key

maktx(40), " Material description

END OF it_data.

*----

SELECTION SCREEN. *

*----

SELECTION-SCREEN BEGIN OF BLOCK scr1 WITH FRAME TITLE text-111.

PARAMETER : p_file TYPE rlgrap-filename OBLIGATORY DEFAULT " Input File

'C:\Material_master.XLS'.

PARAMETER : p_max(4) OBLIGATORY DEFAULT '100'. " no.of recs in a

PARAMETERS: p_header TYPE i DEFAULT 0. " Header Lines

PARAMETERS: p_begcol TYPE i DEFAULT 1 NO-DISPLAY,

p_begrow TYPE i DEFAULT 1 NO-DISPLAY,

p_endcol TYPE i DEFAULT 100 NO-DISPLAY,

p_endrow TYPE i DEFAULT 32000 NO-DISPLAY.

SELECTION-SCREEN END OF BLOCK scr1.

----

AT SELECTION-SCREEN *

----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

*--- Validating file

PERFORM validate_file USING p_file.

*----

START-OF-SELECTION

*----

START-OF-SELECTION.

*--- Perform to convert the Excel data into an internal table

PERFORM convert_xls_itab.

IF NOT it_data[] IS INITIAL.

*--- Perform to delete Header lines

PERFORM delete_header_empty_recs.

ENDIF.

*----

END OF SELECTION. *

*----

END-OF-SELECTION.

*--- Perform to upload Material Master data

PERFORM upload_matmas.

*----

Form : validate_input_file

*----

Description : To provide F4 help for file if read from PC

*----

FORM validate_file USING f_file TYPE rlgrap-filename.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

CHANGING

file_name = f_file

EXCEPTIONS

mask_too_long = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE s010(zlkpl_msgclass). " 'Error in getting filename'.

ENDIF.

ENDFORM. " validate_input_file

*&----

*& Form CONVER_XLS_ITAB

*&----

text

*----

FORM convert_xls_itab.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_file

i_begin_col = p_begcol

i_begin_row = p_begrow

i_end_col = p_endcol

i_end_row = p_endrow

TABLES

intern = it_intern.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*--- Perform to move the data into an internal data

PERFORM move_data.

ENDFORM. " CONVERT_XLS_ITAB

*&----

*& Form MOVE_DATA

*&----

text

*----

FORM move_data.

DATA : lv_index TYPE i.

FIELD-SYMBOLS <fs>.

*--- Sorting the internal table

SORT it_intern BY row col.

CLEAR it_intern.

LOOP AT it_intern.

MOVE it_intern-col TO lv_index.

*--- Assigning the each record to an internal table row

ASSIGN COMPONENT lv_index OF STRUCTURE it_data TO <fs>.

*--- Asigning the field value to a field symbol

MOVE it_intern-value TO <fs>.

AT END OF row.

APPEND it_data.

CLEAR it_data.

ENDAT.

ENDLOOP.

ENDFORM. " MOVE_DATA

*&----

*& Form DELETE_HEADER_EMPTY_RECS

*&----

To delete the Header and empty records

*----

FORM delete_header_empty_recs.

DATA: lv_tabix LIKE sy-tabix.

IF NOT p_header IS INITIAL.

LOOP AT it_data.

IF p_header > 0 AND NOT it_data IS INITIAL.

DELETE it_data FROM 1 TO p_header.

P_HEADER = 0.

EXIT.

ENDIF.

ENDLOOP.

ENDIF.

CLEAR it_data.

*--- To delete the empty lines from internal table

LOOP AT it_data.

lv_tabix = sy-tabix.

IF it_data IS INITIAL.

v_empty = v_empty + 1.

DELETE it_data INDEX lv_tabix..

ENDIF.

ENDLOOP.

CLEAR it_data.

*--- Total no of recs in file

DESCRIBE TABLE it_data LINES v_total.

IF v_total = 0.

MESSAGE i013(zlkpl_msgclass). " No records in the file

f_stop = 'X'.

STOP.

ENDIF.

ENDFORM. " DELETE_HEADER_EMPTY_RECS

*&----

*& Form UPLOAD_MATMAS

*&----

to upload Material Master data

*----

FORM upload_matmas .

LOOP AT it_data.

Header

bapi_head-material = it_data-matnr.

bapi_head-ind_sector = it_data-mbrsh.

bapi_head-matl_type = it_data-mtart.

bapi_head-basic_view = 'X'.

bapi_head-purchase_view = 'X'.

bapi_head-account_view = 'X'.

Material Description

REFRESH it_makt.

it_makt-langu = it_data-spras.

it_makt-matl_desc = it_data-maktx.

APPEND it_makt.

Client Data - Basic

bapi_mara1-matl_group = '01' . " it_data-matkl.

bapi_mara1-base_uom = 'TO' . " it_data-meins.

bapi_mara1-unit_of_wt = it_data-gewei.

bapi_mara1-division = '01' . " it_data-spart.

bapi_marax-matl_group = 'X'.

bapi_marax-base_uom = 'X'.

bapi_marax-unit_of_wt = 'X'.

bapi_marax-division = 'X'.

Plant - Purchasing

bapi_marc1-plant = '0001' . " it_data-werks.

bapi_marc1-pur_group = '3G0' . " it_data-ekgrp.

bapi_marcx-plant = '0001' . " it_data-werks.

bapi_marcx-pur_group = 'X'.

Accounting

bapi_mbew1-val_area = '0001'.

bapi_mbew1-price_ctrl = it_data-vprsv.

bapi_mbew1-std_price = it_data-stprs.

bapi_mbew1-price_unit = it_data-peinh.

bapi_mbewx-val_area = 'X' . " it_data-werks.

bapi_mbewx-price_ctrl = 'X'.

bapi_mbewx-std_price = 'X'.

bapi_mbewx-price_unit = 'X'.

*--- BAPI to create material

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

headdata = bapi_head

clientdata = bapi_mara1

clientdatax = bapi_marax

plantdata = bapi_marc1

plantdatax = bapi_marcx

FORECASTPARAMETERS =

FORECASTPARAMETERSX =

PLANNINGDATA =

PLANNINGDATAX =

STORAGELOCATIONDATA =

STORAGELOCATIONDATAX =

valuationdata = bapi_mbew1

valuationdatax = bapi_mbewx

WAREHOUSENUMBERDATA =

WAREHOUSENUMBERDATAX =

SALESDATA = BAPI_MVKE1

SALESDATAX = BAPI_MVKEX

STORAGETYPEDATA =

STORAGETYPEDATAX =

IMPORTING

return = bapi_return

TABLES

materialdescription = it_makt

UNITSOFMEASURE =

UNITSOFMEASUREX =

INTERNATIONALARTNOS =

MATERIALLONGTEXT =

TAXCLASSIFICATIONS =

RETURNMESSAGES =

PRTDATA =

PRTDATAX =

EXTENSIONIN =

EXTENSIONINX =

IF bapi_return-type = 'E'.

WRITE:/ 'Error:' ,bapi_return-message ,'for material:' ,it_data-matnr.

ELSEIF bapi_return-type = 'S'.

WRITE: 'Successfully created material' ,it_data-matnr.

ENDIF.

ENDLOOP.

ENDFORM. " UPLOAD_MATMAS

topic Re: transfer Material Master in Application Development and Automation Discussions

transfer Material Master

Re: transfer Material Master

Re: transfer Material Master

Re: transfer Material Master

Re: transfer Material Master

Re: transfer Material Master