Re: uploading material master text

Former Member — Tue, 02 Oct 2007 08:48:03 GMT

Dear Sree,

Kindly go through the Material Master BDC Program.

REPORT ZIMMC001.

************************************************************************

D A T A D E C L A R A T I O N *

************************************************************************

*----

Type Declaration of the Structure.

*----

TYPES: BEGIN OF TY_SAVE_INDEX,

IDNO TYPE I, " SAVE Index

END OF TY_SAVE_INDEX.

TYPES: BEGIN OF TY_TABDATA,

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Create Material (Initial Screen).
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

MATNR(18) TYPE C, " Material Number.

MBRSH(01) TYPE C, " Industry Sector.

MTART(04) TYPE C, " Material Type.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Organizational Levels.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WERKS(04) TYPE C, " Plant.

LGORT(04) TYPE C, " Storage Location.

VKORG(04) TYPE C, " Sales Organization.

VTWEG(02) TYPE C, " Distribution Channel.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Sales Org. 1 : Tax Classification.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

TAXKM1(01) TYPE C, " Tax classification material 1.

TAXKM2(01) TYPE C, " Tax classification material 2.

TAXKM3(01) TYPE C, " Tax classification material 3.

TAXKM4(01) TYPE C, " Tax classification material 4.

TAXKM5(01) TYPE C, " Tax classification material 5.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Additional Data - UoM.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

UMREN1(06) TYPE C, " Denominator for Conversion to Base Units of Measure 1.

MEINH1(03) TYPE C, " Alternative Unit of Measure for Stockkeeping Unit 1.

UMREZ1(06) TYPE C, " Numerator for Conversion to Base Units of Measure 1.

..........................................................................................

UMREN2(06) TYPE C, " Denominator for Conversion to Base Units of Measure 2.

MEINH2(03) TYPE C, " Alternative Unit of Measure for Stockkeeping Unit 2.

UMREZ2(06) TYPE C, " Numerator for Conversion to Base Units of Measure 2.

..........................................................................................

UMREN3(06) TYPE C, " Denominator for Conversion to Base Units of Measure 3.

MEINH3(03) TYPE C, " Alternative Unit of Measure for Stockkeeping Unit 3.

UMREZ3(06) TYPE C, " Numerator for Conversion to Base Units of Measure 3.

..........................................................................................

UMREN4(06) TYPE C, " Denominator for Conversion to Base Units of Measure 4.

MEINH4(03) TYPE C, " Alternative Unit of Measure for Stockkeeping Unit 4.

UMREZ4(06) TYPE C, " Numerator for Conversion to Base Units of Measure 4.

..........................................................................................

UMREN5(06) TYPE C, " Denominator for Conversion to Base Units of Measure 5.

MEINH5(03) TYPE C, " Alternative Unit of Measure for Stockkeeping Unit 5.

UMREZ5(06) TYPE C, " Numerator for Conversion to Base Units of Measure 5.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Sales Org. 1
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

VRKME(03) TYPE C, " Sales unit.

DWERK(04) TYPE C, " Delivering Plant (Own or External).

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Sales Org. 2
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

VERSG(01) TYPE C, " Material statistics group.

KTGRM(02) TYPE C, " Account assignment group for this material.

MTPOS(04) TYPE C, " Item category group from material master.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
General/Plant.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

BRGEW(17) TYPE C, " Gross weight.

NTGEW(17) TYPE C, " Net weight.

MTVFP(02) TYPE C, " Checking Group for Availability Check.

TRAGR(04) TYPE C, " Transportation group

LADGR(04) TYPE C, " Loading group.

PRCTR(10) TYPE C, " Profit Center.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Foreign Trade Export.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

HERKL(03) TYPE C, " Country of origin of the material.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Purchasing.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

BSTME(03) TYPE C, " Order unit.

KAUTB(01) TYPE C, " Indicator: "automatic purchase order allowed".

XCHPF(01) TYPE C, " Batch management requirement indicator.

EKGRP(03) TYPE C, " Purchasing Group.

WEBAZ(03) TYPE C, " Goods receipt processing time in days.

EKWSL(04) TYPE C, " Purchasing Value Key.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Purch.Order Text.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

PTEXT(40) TYPE C, " Purchase Order Text.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 1
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

DISGR(04) TYPE C, " MRP Group.

DISMM(02) TYPE C, " MRP Type.

MINBE(17) TYPE C, " Reorder point.

DISPO(03) TYPE C, " MRP Controller.

DISLS(02) TYPE C, " Lot size (materials planning).

BSTFE(17) TYPE C, " Fixed lot size.

BSTMI(17) TYPE C, " Minimum lot size.

BSTMA(17) TYPE C, " Maximum lot size.

AUSSS(06) TYPE C, " Assembly scrap in percent.

BSTRF(17) TYPE C, " Rounding value for purchase order quantity.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 2
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

BESKZ(01) TYPE C, " Procurement Type.

SOBSL(02) TYPE C, " Special procurement type.

LGPRO(04) TYPE C, " Issue Storage Location.

RGEKZ(01) TYPE C, " Indicator: Backflush.

LGFSB(04) TYPE C, " Default storage location for external procurement.

DZEIT(03) TYPE C, " In-house production time.

PLIFZ(03) TYPE C, " Planned delivery time in days.

MRPPP(03) TYPE C, " PPC planning calendar.

FHORI(03) TYPE C, " Scheduling Margin Key for Floats.

EISBE(17) TYPE C, " Safety stock.

WEBAZ1(03) TYPE C, " Goods receipt processing time in days.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 3
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

STRGR(02) TYPE C, " Planning strategy group.

VRMOD(01) TYPE C, " Consumption mode.

VINT1(03) TYPE C, " Consumption period: backward.

VINT2(03) TYPE C, " Consumption period: forward.

MISKZ(01) TYPE C, " Mixed MRP indicator.

MTVFP1(02) TYPE C, " Checking Group for Availability Check.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 4
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

ALTSL(01) TYPE C, " Method for Selecting Alternative Bills of Material.

KAUSF(06) TYPE C, " Component scrap in percent.

SBDKZ(01) TYPE C, " Dependent requirements ind. for individual and coll. reqmts.

SAUFT(01) TYPE C, " Ind.: Repetitive mfg allowed.

SFEPR(04) TYPE C, " Repetitive manufacturing profile.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Work Scheduling.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

FRTME(03) TYPE C, " Production unit.

FEVOR(03) TYPE C, " Production scheduler.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Plant Data / Stor. 1
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

AUSME(03) TYPE C, " Unit of issue.

MHDRZ(05) TYPE C, " Minimum remaining shelf life.

MHDHB(05) TYPE C, " Total shelf life.

IPRKZ(01) TYPE C, " Period indicator for shelf life expiration date.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Quality Management.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WEBAZ2(03) TYPE C, " Goods receipt processing time in days.

QMPUR(01) TYPE C, " QM in Procurement is Active.

SSQSS(08) TYPE C, " Control Key for Quality Management in Procurement.

QZGTP(04) TYPE C, " Certificate Type.

QMATV(01) TYPE C, " Inspection Setup Exists for Material/Plant.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Inspection Setup Data.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

ART1(08) TYPE C, " Inspection Type 1.

AKTIV1(01) TYPE C, " Inspection Type - Material Combination is Active 1.

ART2(08) TYPE C, " Inspection Type 2.

AKTIV2(01) TYPE C, " Inspection Type - Material Combination is Active 2.

ART3(08) TYPE C, " Inspection Type 3.

AKTIV3(01) TYPE C, " Inspection Type - Material Combination is Active 3.

ART4(08) TYPE C, " Inspection Type 4.

AKTIV4(01) TYPE C, " Inspection Type - Material Combination is Active 4.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Accounting 1.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

BKLAS(04) TYPE C, " Valuation Class.

VPRSV(01) TYPE C, " Price Control Indicator.

PEINH(06) TYPE C, " Price Unit.

STPRS(15) TYPE C, " Standard Price.

VERPR(15) TYPE C, " Moving Average Price/Periodic Unit Price.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Cost Estimate 1.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

EKALR(01) TYPE C, " Material Is Costed with Quantity Structure.

HKMAT(01) TYPE C, " Material Origin.

AWSLS(06) TYPE C, " Variance Key.

PRCTR1(10) TYPE C, " Profit Center.

LOSGR(17) TYPE C, " Lot Size for Product Costing.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

ROWCNT TYPE I, " Normal Row Count.

ROW TYPE I, " Row Count --> Line Items

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

END OF TY_TABDATA.

*----

Declaration of the Internal Table & Work Area.

*----

DATA: IT_SAVE_INDEX TYPE STANDARD TABLE OF TY_SAVE_INDEX,

WA_SAVE_INDEX TYPE TY_SAVE_INDEX.

DATA: IT_TABDATA TYPE STANDARD TABLE OF TY_TABDATA,

WA_TABDATA TYPE TY_TABDATA.

*----

Declaration of the Internal Table with Header Line comprising of the uploaded data.

*----

DATA: BEGIN OF IT_FILE_UPLOAD OCCURS 0.

INCLUDE STRUCTURE ALSMEX_TABLINE. " Rows for Table with Excel Data

DATA: END OF IT_FILE_UPLOAD.

*----

Global Variable Declarations.

*----

DATA: GV_ANS TYPE C.

*----

Batch Input Data for a single Transaction.
Message of Call Transaction.

*----

DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,

MSGTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

************************************************************************

S E L E C T I O N - S C R E E N *

************************************************************************

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME,

BEGIN OF BLOCK B2 WITH FRAME.

PARAMETERS: P_FNAME LIKE RLGRAP-FILENAME OBLIGATORY.

SELECTION-SCREEN: END OF BLOCK B2,

END OF BLOCK B1.

************************************************************************

E V E N T : AT S E L E C T I O N - S C R E E N *

************************************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

PROGRAM_NAME = SYST-REPID
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '

STATIC = 'X'

MASK = '.'

CHANGING

FILE_NAME = P_FNAME

EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

************************************************************************

E V E N T : S T A R T - O F - S E L E C T I O N *

************************************************************************

START-OF-SELECTION.

--------------------------------------
Upload Excel file into Internal Table.
--------------------------------------

PERFORM UPLOAD_EXCEL_FILE.

IF NOT IT_FILE_UPLOAD IS INITIAL.

----------------------------------------------------
Confirm whether you want to proceed with the Upload.
----------------------------------------------------

PERFORM CONFIRM_UPLOAD.

IF GV_ANS EQ '1'.

-------------------------------------------------------
Organize the uploaded data into another Internal Table.
-------------------------------------------------------

PERFORM ORGANIZE_UPLOADED_DATA.

-----------------------------------
Modify Row No. for Line Item Count.
-----------------------------------

PERFORM MODIFY_ROW_NUMBER.

-----------------
Open BDC Session.
-----------------
PERFORM OPEN_BDC_SESSION.

------------------------
Kick-start BDC Operation
------------------------

PERFORM BDC_OPERATION.

------------------
Close BDC Session.
------------------
PERFORM CLOSE_BDC_SESSION.

ENDIF.

************************************************************************

E V E N T : E N D - O F - S E L E C T I O N *

************************************************************************

END-OF-SELECTION.

&----

*& Form UPLOAD_EXCEL_FILE

&----

text

----

--> p1 text
<-- p2 text

----

FORM UPLOAD_EXCEL_FILE .

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = P_FNAME

I_BEGIN_COL = 1

I_BEGIN_ROW = 4

I_END_COL = 107

I_END_ROW = 32000

TABLES

INTERN = IT_FILE_UPLOAD

EXCEPTIONS

INCONSISTENT_PARAMETERS = 1

UPLOAD_OLE = 2

OTHERS = 3

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. " UPLOAD_EXCEL_FILE

&----

*& Form CONFIRM_UPLOAD

&----

text

----

--> p1 text
<-- p2 text

----

FORM CONFIRM_UPLOAD .

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

TITLEBAR = 'Pop-Up to Confirm'

DIAGNOSE_OBJECT = ' '

TEXT_QUESTION = 'Do you like to proceed with the Upload ???'

TEXT_BUTTON_1 = 'Ja'(001)
ICON_BUTTON_1 = ' '
TEXT_BUTTON_2 = 'Nein'(002)
ICON_BUTTON_2 = ' '
DEFAULT_BUTTON = '1'
DISPLAY_CANCEL_BUTTON = 'X'
USERDEFINED_F1_HELP = ' '
START_COLUMN = 25
START_ROW = 6
POPUP_TYPE =
IV_QUICKINFO_BUTTON_1 = ' '
IV_QUICKINFO_BUTTON_2 = ' '

IMPORTING

ANSWER = GV_ANS

TABLES
PARAMETER =

EXCEPTIONS

TEXT_NOT_FOUND = 1

OTHERS = 2.

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. " CONFIRM_UPLOAD

&----

*& Form ORGANIZE_UPLOADED_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM ORGANIZE_UPLOADED_DATA .

DATA: LV_ROW_CNT TYPE I.

CLEAR: LV_ROW_CNT.

SORT IT_FILE_UPLOAD BY ROW

COL.

LOOP AT IT_FILE_UPLOAD.

CASE IT_FILE_UPLOAD-COL.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Create Material (Initial Screen).
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 1.

WA_TABDATA-MATNR = IT_FILE_UPLOAD-VALUE.

WHEN 2.

WA_TABDATA-MBRSH = IT_FILE_UPLOAD-VALUE.

WHEN 3.

WA_TABDATA-MTART = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Organizational Levels.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 4.

WA_TABDATA-WERKS = IT_FILE_UPLOAD-VALUE.

WHEN 5.

WA_TABDATA-LGORT = IT_FILE_UPLOAD-VALUE.

WHEN 6.

WA_TABDATA-VKORG = IT_FILE_UPLOAD-VALUE.

WHEN 7.

WA_TABDATA-VTWEG = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Sales Org. 1 : Tax Classification.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 8.

WA_TABDATA-TAXKM1 = IT_FILE_UPLOAD-VALUE.

WHEN 9.

WA_TABDATA-TAXKM2 = IT_FILE_UPLOAD-VALUE.

WHEN 10.

WA_TABDATA-TAXKM3 = IT_FILE_UPLOAD-VALUE.

WHEN 11.

WA_TABDATA-TAXKM4 = IT_FILE_UPLOAD-VALUE.

WHEN 12.

WA_TABDATA-TAXKM5 = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Additional Data - UoM.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 13.

WA_TABDATA-UMREN1 = IT_FILE_UPLOAD-VALUE.

WHEN 14.

WA_TABDATA-MEINH1 = IT_FILE_UPLOAD-VALUE.

WHEN 15.

WA_TABDATA-UMREZ1 = IT_FILE_UPLOAD-VALUE.

...........................................................

WHEN 16.

WA_TABDATA-UMREN2 = IT_FILE_UPLOAD-VALUE.

WHEN 17.

WA_TABDATA-MEINH2 = IT_FILE_UPLOAD-VALUE.

WHEN 18.

WA_TABDATA-UMREZ2 = IT_FILE_UPLOAD-VALUE.

...........................................................

WHEN 19.

WA_TABDATA-UMREN3 = IT_FILE_UPLOAD-VALUE.

WHEN 20.

WA_TABDATA-MEINH3 = IT_FILE_UPLOAD-VALUE.

WHEN 21.

WA_TABDATA-UMREZ3 = IT_FILE_UPLOAD-VALUE.

...........................................................

WHEN 22.

WA_TABDATA-UMREN4 = IT_FILE_UPLOAD-VALUE.

WHEN 23.

WA_TABDATA-MEINH4 = IT_FILE_UPLOAD-VALUE.

WHEN 24.

WA_TABDATA-UMREZ4 = IT_FILE_UPLOAD-VALUE.

...........................................................

WHEN 25.

WA_TABDATA-UMREN5 = IT_FILE_UPLOAD-VALUE.

WHEN 26.

WA_TABDATA-MEINH5 = IT_FILE_UPLOAD-VALUE.

WHEN 27.

WA_TABDATA-UMREZ5 = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Sales Org. 1
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 28.

WA_TABDATA-VRKME = IT_FILE_UPLOAD-VALUE.

WHEN 29.

WA_TABDATA-DWERK = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Sales Org. 2
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 30.

WA_TABDATA-VERSG = IT_FILE_UPLOAD-VALUE.

WHEN 31.

WA_TABDATA-KTGRM = IT_FILE_UPLOAD-VALUE.

WHEN 32.

WA_TABDATA-MTPOS = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
General/Plant.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 33.

WA_TABDATA-BRGEW = IT_FILE_UPLOAD-VALUE.

WHEN 34.

WA_TABDATA-NTGEW = IT_FILE_UPLOAD-VALUE.

WHEN 35.

WA_TABDATA-MTVFP = IT_FILE_UPLOAD-VALUE.

WHEN 36.

WA_TABDATA-TRAGR = IT_FILE_UPLOAD-VALUE.

WHEN 37.

WA_TABDATA-LADGR = IT_FILE_UPLOAD-VALUE.

WHEN 38.

WA_TABDATA-PRCTR = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Foreign Trade Export.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 39.

WA_TABDATA-HERKL = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Purchasing.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 40.

WA_TABDATA-BSTME = IT_FILE_UPLOAD-VALUE.

WHEN 41.

WA_TABDATA-KAUTB = IT_FILE_UPLOAD-VALUE.

WHEN 42.

WA_TABDATA-XCHPF = IT_FILE_UPLOAD-VALUE.

WHEN 43.

WA_TABDATA-EKGRP = IT_FILE_UPLOAD-VALUE.

WHEN 44.

WA_TABDATA-WEBAZ = IT_FILE_UPLOAD-VALUE.

WHEN 45.

WA_TABDATA-EKWSL = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Purch.Order Text.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 46.

WA_TABDATA-PTEXT = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 1
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 47.

WA_TABDATA-DISGR = IT_FILE_UPLOAD-VALUE.

WHEN 48.

WA_TABDATA-DISMM = IT_FILE_UPLOAD-VALUE.

WHEN 49.

WA_TABDATA-MINBE = IT_FILE_UPLOAD-VALUE.

WHEN 50.

WA_TABDATA-DISPO = IT_FILE_UPLOAD-VALUE.

WHEN 51.

WA_TABDATA-DISLS = IT_FILE_UPLOAD-VALUE.

WHEN 52.

WA_TABDATA-BSTFE = IT_FILE_UPLOAD-VALUE.

WHEN 53.

WA_TABDATA-BSTMI = IT_FILE_UPLOAD-VALUE.

WHEN 54.

WA_TABDATA-BSTMA = IT_FILE_UPLOAD-VALUE.

WHEN 55.

WA_TABDATA-AUSSS = IT_FILE_UPLOAD-VALUE.

WHEN 56.

WA_TABDATA-BSTRF = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 2
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 57.

WA_TABDATA-BESKZ = IT_FILE_UPLOAD-VALUE.

WHEN 58.

WA_TABDATA-SOBSL = IT_FILE_UPLOAD-VALUE.

WHEN 59.

WA_TABDATA-LGPRO = IT_FILE_UPLOAD-VALUE.

WHEN 60.

WA_TABDATA-RGEKZ = IT_FILE_UPLOAD-VALUE.

WHEN 61.

WA_TABDATA-LGFSB = IT_FILE_UPLOAD-VALUE.

WHEN 62.

WA_TABDATA-DZEIT = IT_FILE_UPLOAD-VALUE.

WHEN 63.

WA_TABDATA-PLIFZ = IT_FILE_UPLOAD-VALUE.

WHEN 64.

WA_TABDATA-MRPPP = IT_FILE_UPLOAD-VALUE.

WHEN 65.

WA_TABDATA-FHORI = IT_FILE_UPLOAD-VALUE.

WHEN 66.

WA_TABDATA-EISBE = IT_FILE_UPLOAD-VALUE.

WHEN 67.

WA_TABDATA-WEBAZ1 = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 3
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 68.

WA_TABDATA-STRGR = IT_FILE_UPLOAD-VALUE.

WHEN 69.

WA_TABDATA-VRMOD = IT_FILE_UPLOAD-VALUE.

WHEN 70.

WA_TABDATA-VINT1 = IT_FILE_UPLOAD-VALUE.

WHEN 71.

WA_TABDATA-VINT2 = IT_FILE_UPLOAD-VALUE.

WHEN 72.

WA_TABDATA-MISKZ = IT_FILE_UPLOAD-VALUE.

WHEN 73.

WA_TABDATA-MTVFP1 = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MRP 4
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 74.

WA_TABDATA-ALTSL = IT_FILE_UPLOAD-VALUE.

WHEN 75.

WA_TABDATA-KAUSF = IT_FILE_UPLOAD-VALUE.

WHEN 76.

WA_TABDATA-SBDKZ = IT_FILE_UPLOAD-VALUE.

WHEN 77.

WA_TABDATA-SAUFT = IT_FILE_UPLOAD-VALUE.

WHEN 78.

WA_TABDATA-SFEPR = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Work Scheduling.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 79.

WA_TABDATA-FRTME = IT_FILE_UPLOAD-VALUE.

WHEN 80.

WA_TABDATA-FEVOR = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Plant Data / Stor. 1
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 81.

WA_TABDATA-AUSME = IT_FILE_UPLOAD-VALUE.

WHEN 82.

WA_TABDATA-MHDRZ = IT_FILE_UPLOAD-VALUE.

WHEN 83.

WA_TABDATA-MHDHB = IT_FILE_UPLOAD-VALUE.

WHEN 84.

WA_TABDATA-IPRKZ = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Quality Management.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 85.

WA_TABDATA-WEBAZ2 = IT_FILE_UPLOAD-VALUE.

WHEN 86.

WA_TABDATA-QMPUR = IT_FILE_UPLOAD-VALUE.

WHEN 87.

WA_TABDATA-SSQSS = IT_FILE_UPLOAD-VALUE.

WHEN 88.

WA_TABDATA-QZGTP = IT_FILE_UPLOAD-VALUE.

WHEN 89.

WA_TABDATA-QMATV = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Inspection Setup Data.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 90.

WA_TABDATA-ART1 = IT_FILE_UPLOAD-VALUE.

WHEN 91.

WA_TABDATA-AKTIV1 = IT_FILE_UPLOAD-VALUE.

...........................................................

WHEN 92.

WA_TABDATA-ART2 = IT_FILE_UPLOAD-VALUE.

WHEN 93.

WA_TABDATA-AKTIV2 = IT_FILE_UPLOAD-VALUE.

...........................................................

WHEN 94.

WA_TABDATA-ART3 = IT_FILE_UPLOAD-VALUE.

WHEN 95.

WA_TABDATA-AKTIV3 = IT_FILE_UPLOAD-VALUE.

...........................................................

WHEN 96.

WA_TABDATA-ART4 = IT_FILE_UPLOAD-VALUE.

WHEN 97.

WA_TABDATA-AKTIV4 = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Accounting 1.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 98.

WA_TABDATA-BKLAS = IT_FILE_UPLOAD-VALUE.

WHEN 99.

WA_TABDATA-VPRSV = IT_FILE_UPLOAD-VALUE.

WHEN 100.

WA_TABDATA-PEINH = IT_FILE_UPLOAD-VALUE.

WHEN 101.

WA_TABDATA-STPRS = IT_FILE_UPLOAD-VALUE.

WHEN 102.

WA_TABDATA-VERPR = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Cost Estimate 1.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WHEN 103.

WA_TABDATA-EKALR = IT_FILE_UPLOAD-VALUE.

WHEN 104.

WA_TABDATA-HKMAT = IT_FILE_UPLOAD-VALUE.

WHEN 105.

WA_TABDATA-AWSLS = IT_FILE_UPLOAD-VALUE.

WHEN 106.

WA_TABDATA-PRCTR1 = IT_FILE_UPLOAD-VALUE.

WHEN 107.

WA_TABDATA-LOSGR = IT_FILE_UPLOAD-VALUE.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

ENDCASE.

AT END OF ROW.

LV_ROW_CNT = LV_ROW_CNT + 1.

WA_TABDATA-ROWCNT = LV_ROW_CNT.

APPEND WA_TABDATA TO IT_TABDATA.

CLEAR: WA_TABDATA.

ENDAT.

ENDLOOP.

ENDFORM. " ORGANIZE_UPLOADED_DATA

&----

*& Form MODIFY_ROW_NUMBER

&----

text

----

--> p1 text
<-- p2 text

----

FORM MODIFY_ROW_NUMBER .

DATA: LV_ROW TYPE I.

LOOP AT IT_TABDATA INTO WA_TABDATA.

IF WA_TABDATA-MATNR NE SPACE.

CLEAR: LV_ROW.

ENDIF.

LV_ROW = LV_ROW + 1.

WA_TABDATA-ROW = LV_ROW.

MODIFY IT_TABDATA FROM WA_TABDATA

TRANSPORTING ROW.

ENDLOOP.

ENDFORM. " MODIFY_ROW_NUMBER

&----

*& Form OPEN_BDC_SESSION

&----

text

----

--> p1 text
<-- p2 text

----

FORM OPEN_BDC_SESSION .

DATA: LV_SESSION TYPE APQ_GRPN.

LV_SESSION = 'MATMAST_1'.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

DEST = FILLER8

GROUP = LV_SESSION

HOLDDATE = FILLER8

KEEP = 'X'

USER = SY-UNAME

RECORD = FILLER1
PROG = SY-CPROG
IMPORTING
QID =

EXCEPTIONS

CLIENT_INVALID = 1

DESTINATION_INVALID = 2

GROUP_INVALID = 3

GROUP_IS_LOCKED = 4

HOLDDATE_INVALID = 5

INTERNAL_ERROR = 6

QUEUE_ERROR = 7

RUNNING = 8

SYSTEM_LOCK_ERROR = 9

USER_INVALID = 10

OTHERS = 11.

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. " OPEN_BDC_SESSION

&----

*& Form BDC_OPERATION

&----

text

----

--> p1 text
<-- p2 text

----

FORM BDC_OPERATION .

LOOP AT IT_TABDATA INTO WA_TABDATA.

IF WA_TABDATA-MATNR NE ''.

------------------------------------------------------------
Transaction Code - MM01 Create Material : Initial Screen.
------------------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0060'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RMMG1-MTART'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTR'.

PERFORM BDC_FIELD USING 'RMMG1-MATNR' WA_TABDATA-MATNR.

PERFORM BDC_FIELD USING 'RMMG1-MBRSH' WA_TABDATA-MBRSH.

PERFORM BDC_FIELD USING 'RMMG1-MTART' WA_TABDATA-MTART.

IF WA_TABDATA-MTART NE 'ROH'.

------------------------------------------------------------
Transaction Code - MM01 Views Selection Screen (not ROH).
------------------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(17)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=P+'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(04)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(05)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(06)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(07)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(09)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(11)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(12)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(13)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(14)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(15)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(16)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(17)' 'X'.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(07)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTR'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(04)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(05)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(07)' 'X'.

ELSE.

------------------------------------------------------------
Transaction Code - MM01 Views Selection Screen ( = ROH).
------------------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(16)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=P+'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(04)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(05)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(06)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(07)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(09)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(11)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(12)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(13)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(14)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(15)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(16)' 'X'.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(07)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTR'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(03)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(04)' 'X'.

PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(06)' 'X'.

ENDIF.

--------------------------------------------------------
Transaction Code - MM01 Organizational Levels Screen.
--------------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0080'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RMMG1-VTWEG'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTR'.

PERFORM BDC_FIELD USING 'RMMG1-WERKS' WA_TABDATA-WERKS.

PERFORM BDC_FIELD USING 'RMMG1-LGORT' WA_TABDATA-LGORT.

PERFORM BDC_FIELD USING 'RMMG1-VKORG' WA_TABDATA-VKORG.

PERFORM BDC_FIELD USING 'RMMG1-VTWEG' WA_TABDATA-VTWEG.

---------------------------------------------------------------------
Transaction Code - MM01 Sales Organization 1 - Tax Classification.
---------------------------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MG03STEUER-TAXKM(02)'.

PERFORM BDC_FIELD USING 'MG03STEUER-TAXKM(01)' WA_TABDATA-TAXKM1.

PERFORM BDC_FIELD USING 'MG03STEUER-TAXKM(02)' WA_TABDATA-TAXKM2.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4200'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MG03STEUER-TAXKM(05)'.

PERFORM BDC_FIELD USING 'MG03STEUER-TAXKM(03)' WA_TABDATA-TAXKM3.

PERFORM BDC_FIELD USING 'MG03STEUER-TAXKM(04)' WA_TABDATA-TAXKM4.

PERFORM BDC_FIELD USING 'MG03STEUER-TAXKM(05)' WA_TABDATA-TAXKM5.

-------------------------------------------------
Transaction Code - MM01 Additional Data - UoM.
-------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ZU01'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MAKT-MAKTX'.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4300'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ZU02'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RMMG1-MATNR'.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4300'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'SMEINH-UMREZ(06)'.

PERFORM BDC_FIELD USING 'SMEINH-UMREN(02)' WA_TABDATA-UMREN1.

PERFORM BDC_FIELD USING 'SMEINH-MEINH(02)' WA_TABDATA-MEINH1.

PERFORM BDC_FIELD USING 'SMEINH-UMREZ(02)' WA_TABDATA-UMREZ1.

PERFORM BDC_FIELD USING 'SMEINH-UMREN(03)' WA_TABDATA-UMREN2.

PERFORM BDC_FIELD USING 'SMEINH-MEINH(03)' WA_TABDATA-MEINH2.

PERFORM BDC_FIELD USING 'SMEINH-UMREZ(03)' WA_TABDATA-UMREZ2.

PERFORM BDC_FIELD USING 'SMEINH-UMREN(04)' WA_TABDATA-UMREN3.

PERFORM BDC_FIELD USING 'SMEINH-MEINH(04)' WA_TABDATA-MEINH3.

PERFORM BDC_FIELD USING 'SMEINH-UMREZ(04)' WA_TABDATA-UMREZ3.

PERFORM BDC_FIELD USING 'SMEINH-UMREN(05)' WA_TABDATA-UMREN4.

PERFORM BDC_FIELD USING 'SMEINH-MEINH(05)' WA_TABDATA-MEINH4.

PERFORM BDC_FIELD USING 'SMEINH-UMREZ(05)' WA_TABDATA-UMREZ4.

PERFORM BDC_FIELD USING 'SMEINH-UMREN(06)' WA_TABDATA-UMREN5.

PERFORM BDC_FIELD USING 'SMEINH-MEINH(06)' WA_TABDATA-MEINH5.

PERFORM BDC_FIELD USING 'SMEINH-UMREZ(06)' WA_TABDATA-UMREZ5.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4300'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=MAIN'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MAKT-MAKTX'.

------------------------------------------------
Transaction Code - MM01 Sales Organization 1.
------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MVKE-DWERK'.

PERFORM BDC_FIELD USING 'MVKE-VRKME' WA_TABDATA-VRKME.

PERFORM BDC_FIELD USING 'MVKE-DWERK' WA_TABDATA-DWERK.

------------------------------------------------
Transaction Code - MM01 Sales Organization 2.
------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MVKE-MTPOS'.

PERFORM BDC_FIELD USING 'MVKE-VERSG' WA_TABDATA-VERSG.

PERFORM BDC_FIELD USING 'MVKE-KTGRM' WA_TABDATA-KTGRM.

PERFORM BDC_FIELD USING 'MVKE-MTPOS' WA_TABDATA-MTPOS.

-------------------------------------------
Transaction Code - MM01 General / Plant.
-------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'MARA-BRGEW' WA_TABDATA-BRGEW.

PERFORM BDC_FIELD USING 'MARA-NTGEW' WA_TABDATA-NTGEW.

PERFORM BDC_FIELD USING 'MARC-MTVFP' WA_TABDATA-MTVFP.

PERFORM BDC_FIELD USING 'MARA-TRAGR' WA_TABDATA-TRAGR.

PERFORM BDC_FIELD USING 'MARC-LADGR' WA_TABDATA-LADGR.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-PRCTR'.

PERFORM BDC_FIELD USING 'MARC-PRCTR' WA_TABDATA-PRCTR.

------------------------------------------------
Transaction Code - MM01 Foreign Trade Export.
------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4004'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-HERKL'.

PERFORM BDC_FIELD USING 'MARC-HERKL' WA_TABDATA-HERKL.

--------------------------------------
Transaction Code - MM01 Purchasing.
--------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-EKGRP'.

PERFORM BDC_FIELD USING 'MARA-BSTME' WA_TABDATA-BSTME.

PERFORM BDC_FIELD USING 'MARC-KAUTB' WA_TABDATA-KAUTB.

PERFORM BDC_FIELD USING 'MARC-XCHPF' WA_TABDATA-XCHPF.

PERFORM BDC_FIELD USING 'MARC-EKGRP' WA_TABDATA-EKGRP.

PERFORM BDC_FIELD USING 'MARC-WEBAZ' WA_TABDATA-WEBAZ.

PERFORM BDC_FIELD USING 'MARA-EKWSL' WA_TABDATA-EKWSL.

-----------------------------------------------
Transaction Code - MM01 Purchase Order Text.
-----------------------------------------------
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4040'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '=LTEX'.

PERFORM BDC_DYNPRO USING 'SAPLSTXX' '1100'.
PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RSTXT-TXLINE(02)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '=TXBA'.
PERFORM BDC_FIELD USING 'RSTXT-TXLINE(02)' WA_TABDATA-PTEXT.

PERFORM BDC_DYNPRO USING 'SAPLSPO1' '0100'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '=YES'.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4040'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=SP12'.

---------------------------------
Transaction Code - MM01 MRP 1.
---------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'MARC-DISGR' WA_TABDATA-DISGR.

PERFORM BDC_FIELD USING 'MARC-DISMM' WA_TABDATA-DISMM.

PERFORM BDC_FIELD USING 'MARC-MINBE' WA_TABDATA-MINBE.

PERFORM BDC_FIELD USING 'MARC-DISPO' WA_TABDATA-DISPO.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-BSTRF'.

PERFORM BDC_FIELD USING 'MARC-DISLS' WA_TABDATA-DISLS.

PERFORM BDC_FIELD USING 'MARC-BSTFE' WA_TABDATA-BSTFE.

PERFORM BDC_FIELD USING 'MARC-BSTMI' WA_TABDATA-BSTMI.

PERFORM BDC_FIELD USING 'MARC-BSTMA' WA_TABDATA-BSTMA.

PERFORM BDC_FIELD USING 'MARC-AUSSS' WA_TABDATA-AUSSS.

PERFORM BDC_FIELD USING 'MARC-BSTRF' WA_TABDATA-BSTRF.

---------------------------------
Transaction Code - MM01 MRP 2.
---------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' 'SP14'.

PERFORM BDC_FIELD USING 'MARC-BESKZ' WA_TABDATA-BESKZ.

PERFORM BDC_FIELD USING 'MARC-SOBSL' WA_TABDATA-SOBSL.

PERFORM BDC_FIELD USING 'MARC-LGPRO' WA_TABDATA-LGPRO.

PERFORM BDC_FIELD USING 'MARC-RGEKZ' WA_TABDATA-RGEKZ.

PERFORM BDC_FIELD USING 'MARC-LGFSB' WA_TABDATA-LGFSB.

PERFORM BDC_FIELD USING 'MARC-DZEIT' WA_TABDATA-DZEIT.

PERFORM BDC_FIELD USING 'MARC-PLIFZ' WA_TABDATA-PLIFZ.

PERFORM BDC_FIELD USING 'MARC-MRPPP' WA_TABDATA-MRPPP.

PERFORM BDC_FIELD USING 'MARC-FHORI' WA_TABDATA-FHORI.

PERFORM BDC_FIELD USING 'MARC-EISBE' WA_TABDATA-EISBE.

IF WA_TABDATA-WEBAZ EQ ''.

PERFORM BDC_FIELD USING 'MARC-WEBAZ' WA_TABDATA-WEBAZ1.

ENDIF.

---------------------------------
Transaction Code - MM01 MRP 3.
---------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' 'SP15'.

PERFORM BDC_FIELD USING 'MARC-STRGR' WA_TABDATA-STRGR.

PERFORM BDC_FIELD USING 'MARC-VRMOD' WA_TABDATA-VRMOD.

PERFORM BDC_FIELD USING 'MARC-VINT1' WA_TABDATA-VINT1.

PERFORM BDC_FIELD USING 'MARC-VINT2' WA_TABDATA-VINT2.

PERFORM BDC_FIELD USING 'MARC-MISKZ' WA_TABDATA-MISKZ.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-MTVFP'.

IF WA_TABDATA-MTVFP EQ ''.

PERFORM BDC_FIELD USING 'MARC-MTVFP' WA_TABDATA-MTVFP1.

ENDIF.

---------------------------------
Transaction Code - MM01 MRP 4.
---------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'MARC-ALTSL' WA_TABDATA-ALTSL.

PERFORM BDC_FIELD USING 'MARC-KAUSF' WA_TABDATA-KAUSF.

PERFORM BDC_FIELD USING 'MARC-SBDKZ' WA_TABDATA-SBDKZ.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-SFEPR'.

PERFORM BDC_FIELD USING 'MARC-SAUFT' WA_TABDATA-SAUFT.

PERFORM BDC_FIELD USING 'MARC-SFEPR' WA_TABDATA-SFEPR.

IF WA_TABDATA-MTART NE 'ROH'.

-------------------------------------------
Transaction Code - MM01 Work Scheduling.
-------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-FEVOR'.

PERFORM BDC_FIELD USING 'MARC-FRTME' WA_TABDATA-FRTME.

PERFORM BDC_FIELD USING 'MARC-FEVOR' WA_TABDATA-FEVOR.

ENDIF.

------------------------------------------------
Transaction Code - MM01 Plant Data / Stor. 1.
------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'MARC-AUSME' WA_TABDATA-AUSME.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARA-IPRKZ'.

PERFORM BDC_FIELD USING 'MARA-MHDRZ' WA_TABDATA-MHDRZ.

PERFORM BDC_FIELD USING 'MARA-MHDHB' WA_TABDATA-MHDHB.

PERFORM BDC_FIELD USING 'MARA-IPRKZ' WA_TABDATA-IPRKZ.

----------------------------------------------
Transaction Code - MM01 Quality Management.
----------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=PB01'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-QZGTP'.

PERFORM BDC_FIELD USING 'MARC-WEBAZ' WA_TABDATA-WEBAZ2.

PERFORM BDC_FIELD USING 'MARA-QMPUR' WA_TABDATA-QMPUR.

PERFORM BDC_FIELD USING 'MARC-SSQSS' WA_TABDATA-SSQSS.

PERFORM BDC_FIELD USING 'MARC-QZGTP' WA_TABDATA-QZGTP.

IF WA_TABDATA-QMATV EQ 'X'.

-------------------------------------------------
Transaction Code - MM01 Inspection Setup Data.
-------------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLQPLS' '0100'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RMQAM-ARGUMENT'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=NEU'.

PERFORM BDC_DYNPRO USING 'SAPLQPLS' '0100'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RMQAM-AKTIV(04)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=WEIT'.

PERFORM BDC_FIELD USING 'RMQAM-ART(01)' WA_TABDATA-ART1.

PERFORM BDC_FIELD USING 'RMQAM-AKTIV(01)' WA_TABDATA-AKTIV1.

PERFORM BDC_FIELD USING 'RMQAM-ART(02)' WA_TABDATA-ART2.

PERFORM BDC_FIELD USING 'RMQAM-AKTIV(02)' WA_TABDATA-AKTIV2.

PERFORM BDC_FIELD USING 'RMQAM-ART(03)' WA_TABDATA-ART3.

PERFORM BDC_FIELD USING 'RMQAM-AKTIV(03)' WA_TABDATA-AKTIV3.

PERFORM BDC_FIELD USING 'RMQAM-ART(04)' WA_TABDATA-ART4.

PERFORM BDC_FIELD USING 'RMQAM-AKTIV(04)' WA_TABDATA-AKTIV4.

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MAKT-MAKTX'.

ENDIF.

----------------------------------------
Transaction Code - MM01 Accounting 1.
----------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=SP26'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MBEW-BKLAS'.

PERFORM BDC_FIELD USING 'MBEW-BKLAS' WA_TABDATA-BKLAS.

PERFORM BDC_FIELD USING 'MBEW-VPRSV' WA_TABDATA-VPRSV.

PERFORM BDC_FIELD USING 'MBEW-PEINH' WA_TABDATA-PEINH.

PERFORM BDC_FIELD USING 'MBEW-STPRS' WA_TABDATA-STPRS.

PERFORM BDC_FIELD USING 'MBEW-VERPR' WA_TABDATA-VERPR.

-------------------------------------------
Transaction Code - MM01 Cost Estimate 1.
-------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4000'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'MBEW-EKALR' WA_TABDATA-EKALR.

PERFORM BDC_FIELD USING 'MBEW-HKMAT' WA_TABDATA-HKMAT.

IF WA_TABDATA-MTART NE 'ROH'.

PERFORM BDC_FIELD USING 'MARC-AWSLS' WA_TABDATA-AWSLS.

ENDIF.

PERFORM BDC_FIELD USING 'MARC-PRCTR' WA_TABDATA-PRCTR1.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MARC-LOSGR'.

PERFORM BDC_FIELD USING 'MARC-LOSGR' WA_TABDATA-LOSGR.

------------------------------------------
Transaction Code - MM01 Saving of Data.
------------------------------------------

PERFORM BDC_DYNPRO USING 'SAPLSPO1' '0300'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=YES'.

------------------------------------------
Call Transaction - CA01 to create Routing.
------------------------------------------

CALL TRANSACTION 'MM01' USING BDCDATA

MODE 'E'

UPDATE 'A'

MESSAGES INTO MSGTAB.

CLEAR: BDCDATA.

REFRESH BDCDATA.

ENDIF.

ENDLOOP.

ENDFORM. " BDC_OPERATION

&----

*& Form CLOSE_BDC_SESSION

&----

text

----

--> p1 text
<-- p2 text

----

FORM CLOSE_BDC_SESSION .

CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS

NOT_OPEN = 1

QUEUE_ERROR = 2

OTHERS = 3.

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. " CLOSE_BDC_SESSION

&----

*& Form BDC_DYNPRO

&----

text

----

-->PROGRAM text
-->DYNPRO text

----

FORM BDC_DYNPRO USING PROGRAM

DYNPRO.

CLEAR: BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM. " BDC_DYNPRO

&----

*& Form BDC_FIELD

&----

text

----

-->FNAM text
-->FVAL text

----

FORM BDC_FIELD USING FNAM

FVAL.

CLEAR: BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

ENDFORM. " BDC_FIELD

Regards,

Abir

***************************************

Don't forget to Reward Points *

topic Re: uploading material master text in Application Development and Automation Discussions

uploading material master text

Re: uploading material master text

Re: uploading material master text