BDC Program to Upload Material Master Data (MM01)

最新推荐文章于 2022-02-25 19:38:17 发布
最新推荐文章于 2022-02-25 19:38:17 发布
阅读量8k 收藏
点赞数
分类专栏： 02 SAP MM 14 SAP BAPI 文章标签： upload file classification c session button

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&

JackWu
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
SAP ABAP BDC.详解
12-11
BDC.详解
上传文件改sap MM03下载文件到本地
cmmkkw86088的博客
01-08 284
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { fo...
导入会计 、成本 视图（开发笔记）
Nathan的博客
01-20 518
*&---------------------------------------------------------------------**&ReportZMMR110*&---------------------------------------------------------------------**&*&---------------...
MRP4 -- Dependent requirements ind. for individual and coll. reqmts
weixin_30653023的博客
03-31 273
Dependent requirements ind. for individual and coll. reqmts Indicator determining whether the following requirements are allowed for the dependent requirements of the material: Individual requirem...
Component scrap的优先级问题
如果没有了SAP我们还会什么？
08-31 1004
众所周知Component scrap 的设置既可以在物料主档的MRP4试图进行设置，也可以在BOM中设置，那么谁的优先级更高的呢？ 做个测试： 物料号1850 1851  创建BOM， 一件1850 需要100件1851 设置bom中的废品率为2 设置物料主档中的废品为4件  创建独立需求 1件1850 运行MD03 查看MD04
SAP BDC 学习
cscsu668602的博客
02-18 139
以下以MM01为例介绍一下如何编写BDC程序首先运行T-code SHDB录屏是比较简单的，按你需要的步骤做就可以了，最后可以得到一张BDC表如下所示：这个附件： 点击后退，再点PROGRAM系统就会自动生成程序了，...
BDC.rar_BDC SIMULINK
07-13
用simulink搭建的直流电机模型，可以和控制程序仿真运行
BDC.rar_bdc.youzack_com_单词_背单词
09-21
使用金山词霸做界面编写的背单词，利用上班时间修炼英语，以防老板查觉。
bdc.rar_BDC_bdc20_flash chat_讯通
09-20
这也是讯通的程序不过有点老!现在用的插件都是通用4.0.0.32他用的是最古老的心聊插件!里边的插件不太好使!介意你使用的时候换上心聊插件!提供给初学者研究
BDC技术（Batch Data Conversion）：
02-20
BDC（Batch Data Conversion）： 在SAP系统里，由于某种原因，可能需要重复输入数据，（数据不同，但是操作是相同的，典型的情形就是切换系统的时候，旧系统的数据需要导入SAP），大致过程不外乎是这样： 输入一个...
SAP MM MB21创建预留单据报错- Error during conversion to alternative units of measure -
喜欢打酱油的老鸟
05-15 835
SAP MM MB21创建预留单据报错- Error during conversion to alternative units of measure - 某日下午收到业务部门报错，说是创建预留单保存报错， 详细错误信息如下： Error during conversion to alternative units of measure M...
BDC Program to Upload Material Master Data MM01
hdduugc的博客
11-15 407
BDC Program to Upload Material Master Data MM01
物料主数据批导程序
宇宙丶帅的博客
07-02 1796
*&---------------------------------------------------------------------* *& 程序名称 ：Z_MM_001 * *& 程序目的 ：物料主数据批导程序 *&--------------------------...
SAP 物料主数据增强自定义字段
热门推荐
heng0757的专栏
10-13 3万+
物料主数据自定义字段增强 1.  SE11 创建自定义表 ZPARTAPPEND   2. SPRO--后勤-常规--物料主数据 -- 配置物料主记录 --  创建定制子屏幕的程序   3. SE80 -- 输入函数组 ZMGD1   在屏幕 0001 里增加 三个 函数：   代码如下： *&---------------------------------
SAP 批量扩充会计和成本视图
heng0757的专栏
03-06 6895
前几天财务在给成本发布成本价格时，有很多物料都提示没维护成本视图，取不到标准价格（成品和半成品是标准价格，原材料是移动平均价格） 可以在表MARC-PSTAT 这个字段没包含有“B” 的就表示没扩充成本视图， 因为物料比较多，一个一个的扩充不现实，就做了这个BDC 。   *&---------------------------------------------------------
K8s 很难么？带你从头到尾捋一遍，不信你学不会
民工哥的博客
02-23 8698
点击关注公众号，回复“1024”获取2TB学习资源！为什么要学习 Kubernetes?虽然 Docker 已经很强大了，但是在实际使用上还是有诸多不便，比如集群管理、资源调度、文件管理等...
10天智能锁项目实战第1天（了解单片机STM32F401RET6和C语言基础）
北豼不太皮的博客
02-21 3093
10天智能锁项目实战第1天（了解单片机STM32F401RET6和C语言基础）一、学习目标二、了解单片机STM32F401RET6三、C语言基础 一、学习目标 二、了解单片机STM32F401RET6 4、STM32F401RE特征 三、C语言基础 1.数据类型 常用2的次方： 2^7 = 128 2^8 = 256 2^15 = 32768 2^16= 65536 51单片机常见的数据类型： char: 占内存1字节 取值范围：-128~127 -2^7 ~ 2
Android开发（1） | Fragment 的应用——新闻应用
Jormungand_V的博客
02-21 3537
文章目录 news_item.xml： <TextView xmlns:android="http://schemas.android.com/apk/res/android" android:id="@+id/news_title" android:layout_width="match_parent" android:layout_height="wrap_content" android:lines="1" android:ellipsize="
系统学习 TypeScript（四）——变量声明的初步学习
编程三昧
02-25 1432
认识了 TypeScript 中的基础类型，接下来当然是变量声明的相关学习了，我在这里记录一下我学习过程中的一些总结。
ABAP 关于BDC面试题
最新发布
12-01
ABAP中的BDC（Batch Data Communication）是一种用于在SAP系统中批量处理数据的技术。下面是一些ABAP关于BDC的面试题及其答案： 1. 什么是BDC？ BDC是一种用于在SAP系统中批量处理数据的技术。它可以模拟用户的输入...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值