Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Please provide a sample code for MM session in BDC?

Go to solution
Former Member

‎06-16-2008 10:52 AM

0 Kudos

Hi all,

i am working on BDC and i want the help to write the code if any one have sample code or any useful links where i can find the sample code then please send. if anyone had any kind of documents then send it to my id.

regards.

raman.

1 ACCEPTED SOLUTION

Go to solution
Former Member

‎06-16-2008 11:00 AM

0 Kudos

see this program

report ZBDC_MM01_TEST

no standard page heading line-size 255.

include bdcrecx1.

data: begin of wa_mm01,

mbrsh like RMMG1-MBRSH,

mtart like RMMG1-MTART,

u2022 type(2),

maktx like makt-maktx,

meins like mara-meins,

end of wa_mm01.

data: i_mm01 like table of wa_mm01.

start-of-selection.

CALL FUNCTION 'UPLOAD'

EXPORTING

u2022 CODEPAGE = ' '

u2022 FILENAME = ' '

FILETYPE = 'DAT'

u2022 ITEM = ' '

u2022 FILEMASK_MASK = ' '

u2022 FILEMASK_TEXT = ' '

u2022 FILETYPE_NO_CHANGE = ' '

u2022 FILEMASK_ALL = ' '

u2022 FILETYPE_NO_SHOW = ' '

u2022 LINE_EXIT = ' '

u2022 USER_FORM = ' '

u2022 USER_PROG = ' '

u2022 SILENT = 'S'

u2022 IMPORTING

u2022 FILESIZE =

u2022 CANCEL =

u2022 ACT_FILENAME =

u2022 ACT_FILETYPE =

TABLES

data_tab = i_mm01

EXCEPTIONS

CONVERSION_ERROR = 1

INVALID_TABLE_WIDTH = 2

INVALID_TYPE = 3

NO_BATCH = 4

UNKNOWN_ERROR = 5

GUI_REFUSE_FILETRANSFER = 6

OTHERS = 7

.

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 open_group.

loop at i_mm01 into wa_mm01.

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_CURSOR'

'RMMG1-MATNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RMMG1-MBRSH'

wa_mm01-mbrsh.

perform bdc_field using 'RMMG1-MTART'

wa_mm01-mtart.

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_field using 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_field using 'MSICHTAUSW-KZSEL(02)'

'X'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'MAKT-MAKTX'

wa_mm01-maktx.

perform bdc_field using 'BDC_CURSOR'

'MARA-SPART'.

perform bdc_field using 'MARA-MEINS'

wa_mm01-meins.

perform bdc_field using 'MARA-SPART'

'00'.

perform bdc_field using 'MARA-MTPOS_MARA'

'LEIS'.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

endloop.

perform bdc_transaction using 'MM01'.

perform close_group.

Hope this helps.

3 REPLIES 3

Go to solution
Former Member

‎06-16-2008 10:55 AM

0 Kudos

Hi there,

Here is a sample code to help you out!

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.

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 - MM01 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

REWARDS would be appreciated!!

Go to solution
Former Member

‎06-16-2008 11:00 AM

0 Kudos

see this program

report ZBDC_MM01_TEST

no standard page heading line-size 255.

include bdcrecx1.

data: begin of wa_mm01,

mbrsh like RMMG1-MBRSH,

mtart like RMMG1-MTART,

u2022 type(2),

maktx like makt-maktx,

meins like mara-meins,

end of wa_mm01.

data: i_mm01 like table of wa_mm01.

start-of-selection.

CALL FUNCTION 'UPLOAD'

EXPORTING

u2022 CODEPAGE = ' '

u2022 FILENAME = ' '

FILETYPE = 'DAT'

u2022 ITEM = ' '

u2022 FILEMASK_MASK = ' '

u2022 FILEMASK_TEXT = ' '

u2022 FILETYPE_NO_CHANGE = ' '

u2022 FILEMASK_ALL = ' '

u2022 FILETYPE_NO_SHOW = ' '

u2022 LINE_EXIT = ' '

u2022 USER_FORM = ' '

u2022 USER_PROG = ' '

u2022 SILENT = 'S'

u2022 IMPORTING

u2022 FILESIZE =

u2022 CANCEL =

u2022 ACT_FILENAME =

u2022 ACT_FILETYPE =

TABLES

data_tab = i_mm01

EXCEPTIONS

CONVERSION_ERROR = 1

INVALID_TABLE_WIDTH = 2

INVALID_TYPE = 3

NO_BATCH = 4

UNKNOWN_ERROR = 5

GUI_REFUSE_FILETRANSFER = 6

OTHERS = 7

.

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 open_group.

loop at i_mm01 into wa_mm01.

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_CURSOR'

'RMMG1-MATNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RMMG1-MBRSH'

wa_mm01-mbrsh.

perform bdc_field using 'RMMG1-MTART'

wa_mm01-mtart.

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_field using 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_field using 'MSICHTAUSW-KZSEL(02)'

'X'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'MAKT-MAKTX'

wa_mm01-maktx.

perform bdc_field using 'BDC_CURSOR'

'MARA-SPART'.

perform bdc_field using 'MARA-MEINS'

wa_mm01-meins.

perform bdc_field using 'MARA-SPART'

'00'.

perform bdc_field using 'MARA-MTPOS_MARA'

'LEIS'.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

endloop.

perform bdc_transaction using 'MM01'.

perform close_group.

Hope this helps.