BDC Program to Upload Material Master Data (MM01)

6531人阅读 评论(0) 收藏 举报

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 

source url:https://www.sdn.sap.com/irj/sdn/wiki?path=/display/Snippets/Home&

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:3168131次
    • 积分:33633
    • 等级:
    • 排名:第140名
    • 原创:362篇
    • 转载:227篇
    • 译文:21篇
    • 评论:451条
    博客专栏
    最新评论
    01 SAP官方网站