Google Search - Blog...........

ABAP - BDC Program To Upload Material Master Data (MM01).

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


Tags , , ,

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)