BDC for MM01

Question

Hi all.
I need BDC code for MM01,i need to populate values depending upon "Material type",Because view changing depending upon material type.
please give me code for that.
To be reward all helpfull answers.
Regards.
jay

Answer 1

Hi,
This is a BDC for MM for T-code MM01.I hope this will help u.
Below is the coding.
Reward if helpful.
Regards,
Seevangi
REPORT  ZMMBDC_MATERIAL_MASTER_UPD
LINE-SIZE 255 NO STANDARD PAGE HEADING LINE-COUNT 65.
Tables
Structure declaration
Work Variables and internal tables
Constants
Parameters
Events: Start-Of-Selection
data : begin of i_mara occurs 0,
        matnr like mara-matnr,
       end of i_mara.
data : begin of ty_matdata,
        matnr like mara-matnr,   "material number
        mbrsh like rmmg1-mbrsh,  "Industry sector
        mtart like rmmg1-mtart,  "Material Type
        werks like rmmg1-werks,  "Plant
        lgort like rmmg1-lgort,  "Storage Location
        vkorg like rmmg1-vkorg,  "Sales Organization
        vtweg like rmmg1-vtweg,  "Distribution Channel
        maktx like makt-maktx,   "Material Description (Short Text)
        meins like mara-meins,   "Base Unit of Measure
        matkl like mara-matkl,   "Material Group
        bismt like mara-bismt,   "Old material number
        spart like mara-spart,   "Division
        brgew(15) ," like mara-brgew,   "Gross Weight
        ntgew(15), " like mara-ntgew,   "Net Weight
        ekgrp like marc-ekgrp,   "Purchasing Group
        gewei like mara-gewei,   "Weight Unit
        klart like rmclf-klart,  "Class Type
        taxkm like MG03STEUER-TAXKM, "Tax classification material
        ladgr like marc-ladgr,   "Loading Group
        tragr like mara-tragr,   "Transportation Group
        dismm like marc-dismm, "MRP Type
        dispo like marc-dispo, "MRP Controller (Materials Planner)
        fhori like marc-fhori, "Scheduling margin key
        disls like marc-disls, " lot size
        prmod like mpop-prmod, "Forecast model
        peran(3)," like mpop-peran,   "Number of historical periods
        anzpr(3)," like mpop-anzpr,   "Number of forecast periods
        kzini like mpop-kzini,   "Initialization indicator
        siggr(9)," like mpop-siggr,   "Tracking limit
        autru like marc-autru,   "Reset Forecast Model Automatically
        modav like mpop-modav,   "Model selection procedure
        perkz like marc-perkz, "Period Indicator
        verpr(13), " like mbew-verpr, "Moving Average Price/Periodic Unit Price
        prctr like marc-prctr, "Profit Center
        mtvfp like marc-mtvfp, "Checking Group for Availability Check
        bklas like mbew-bklas, "Valuation Class
        vprsv like mbew-vprsv, "Price control indicator
        stprs(13) ," like mbew-stprs, "Standard price
        peinh(5) ,"like mbew-peinh, "Price Unit
       end of ty_matdata,
       begin of ty_matdata1,
       matnr like mara-matnr,   "material number
        mbrsh like rmmg1-mbrsh,  "Industry sector
        mtart like rmmg1-mtart,  "Material Type
        werks like rmmg1-werks,  "Plant
        lgort like rmmg1-lgort,  "Storage Location
        vkorg like rmmg1-vkorg,  "Sales Organization
        vtweg like rmmg1-vtweg,  "Distribution Channel
        maktx like makt-maktx,   "Material Description (Short Text)
        meins like mara-meins,   "Base Unit of Measure
        matkl like mara-matkl,   "Material Group
        bismt like mara-bismt,   "Old material number
        spart like mara-spart,   "Division
        brgew(15) ," like mara-brgew,   "Gross Weight
        ntgew(15), " like mara-ntgew,   "Net Weight
        ekgrp like marc-ekgrp,   "Purchasing Group
        gewei like mara-gewei,   "Weight Unit
        klart like rmclf-klart,  "Class Type
        taxkm like MG03STEUER-TAXKM, "Tax classification material
        ladgr like marc-ladgr,   "Loading Group
        tragr like mara-tragr,   "Transportation Group
        dismm like marc-dismm, "MRP Type
        dispo like marc-dispo, "MRP Controller (Materials Planner)
        fhori like marc-fhori, "Scheduling margin key
        prmod like mpop-prmod, "Forecast model
        peran(3)," like mpop-peran,   "Number of historical periods
        anzpr(3)," like mpop-anzpr,   "Number of forecast periods
        kzini like mpop-kzini,   "Initialization indicator
        siggr(9)," like mpop-siggr,   "Tracking limit
        autru like marc-autru,   "Reset Forecast Model Automatically
        modav like mpop-modav,   "Model selection procedure
        perkz like marc-perkz, "Period Indicator
        verpr(13), " like mbew-verpr, "Moving Average Price/Periodic Unit Price
        prctr like marc-prctr, "Profit Center
        mtvfp like marc-mtvfp, "Checking Group for Availability Check
        bklas like mbew-bklas, "Valuation Class
        vprsv like mbew-vprsv, "Price control indicator
        stprs(13) ," like mbew-stprs, "Standard price
        peinh(5) ,"like mbew-peinh, "Price Unit
        message like bapiret2-message, "Error Message.
       end of ty_matdata1,
       begin of ty_error,
         matnr like mara-matnr,
         mbrsh like rmmg1-mbrsh,  "Industry sector
         mtart like rmmg1-mtart,  "Material Type
         werks like rmmg1-werks,  "Plant
         message like bapiret2-message,
       end of ty_error.
      Data                     Begin with W_                        *
data : i_matdata like standard table of ty_matdata with header line.
BAPIMATHEAD - Header Segment with Control Information
data : i_headdata like bapimathead occurs 0 with header line.
bapi_makt - Material Descriptions.
data : i_bapi_makt like bapi_makt occurs 0 with header line.
*bapi_mlan - Tax data
data : i_bapi_mlan like bapi_mlan occurs 0 with header line.
bapi_mara - Material Data at Client Level.
data : i_clientdata like bapi_mara occurs 0 with header line.
bapi_marax - Checkbox Structure for BAPI_MARA.
data : i_clientdatax like bapi_marax occurs 0 with header line.
bapi_marc - Material Data at Plant Level.
data : i_plantdata like bapi_marc occurs 0 with header line.
bapi_marcx - Checkbox Structure for BAPI_MARA.
data : i_plantdatax like bapi_marcx occurs 0 with header line.
BAPI_MARD - Material Data at Storage Location Level.
data : i_storagelocationdata like bapi_mard occurs 0 with header line.
bapi_mardx - Checkbox Structure for BAPI_MARD
data : i_storagelocationdatax like bapi_mardx occurs 0 with header line.
*bapi_mpop - Forecast Parameters
data : i_forcastingparameter like BAPI_MPOP occurs 0 with header line.
*bapi_mpopx - Checkbox Structure for BAPI_MPOP
data : i_forcastingparameterx like BAPI_MPOPX occurs 0 with header line.
*bapi_mbew - Valuation Data
data : i_valuationdata like BAPI_MBEW occurs 0 with header line.
*bapi_mbewx - Checkbox Structure for BAPI_MBEW
data : i_valuationdatax like BAPI_MBEWX occurs 0 with header line.
*bapi_mvke - Sales Data
data : i_salesdata like BAPI_MVKE occurs 0 with header line.
*bapi_mvkex - Checkbox Structure for BAPI_MVKE
data : i_salesdatax like BAPI_MVKEX occurs 0 with header line.
bapiret2 - Return parameter
data : i_return like bapiret2 occurs 0 with header line.
Errors displayed on screen.
data : i_error like standard table of ty_error with header line.
*Error data to be loaded after correction.
data : i_matdata1 like standard table of ty_matdata1 with header line.
*bapi_marm - Unit of measure
data : i_bapi_marm like bapi_marm occurs 0 with header line.
*bapi_marmx - unit of measurex
data : i_bapi_marmx like bapi_marmx occurs 0 with header line.
To determine error.
data : w_flg(1).
   S E L E C T I O N     S C R E E N / P A R A M E T E R S
selection-screen: begin of block b1 with frame.
parameters: p_file like rlgrap-filename obligatory.
selection-screen: end of block b1.
selection-screen skip 1.
selection-screen: begin of block b2 with frame.
parameters: p_file1 like rlgrap-filename .
selection-screen: end of block b2.
          A T   S E L E C T I O N   S C R E E N
at selection-screen on value-request for p_file.
WS_FILENAME_GET - Determination of a file name on the presentation
server using a file selection dialog.
  call function 'WS_FILENAME_GET'
exporting
   def_filename           = '*.TXT'
   def_path               = 'C:\'
   mask                   = ',.TXT,.*.'
   mode                   = 'O'
  TITLE                  = ' '
   importing
     filename               = p_file
  RC                     =
exceptions
   inv_winsys             = 1
   no_batch               = 2
   selection_cancel       = 3
   selection_error        = 4
   others                 = 5
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
                  T O P    O F     P A G E                          *
top-of-page.
  skip.
  write : /01 'Material Number', 30 'Error Message'.
   S T  A R T   O F   S E L E C T I O N
start-of-selection.
perform read_data.
perform create_material.
perform display_error.
*&      Form  read_data
      text
-->  p1        text
<--  p2        text
form read_data.
Uploads a file from the presentation server into an internal table.
call function 'WS_UPLOAD'
       exporting
            codepage                = 'IBM'
            filename                = p_file
            filetype                = 'DAT'
       tables
            data_tab                = i_matdata
       exceptions
            conversion_error        = 1
            file_open_error         = 2
            file_read_error         = 3
            invalid_type            = 4
            no_batch                = 5
            unknown_error           = 6
            invalid_table_width     = 7
            gui_refuse_filetransfer = 8
            customer_error          = 9
            others                  = 10.
  if sy-subrc <> 0.
    write:/ 'File Not Uploaded'.
  endif.
endform.                    " read_data
*&      Form  create_material
      text
-->  p1        text
<--  p2        text
form create_material.
loop at i_matdata.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = i_matdata-matnr
IMPORTING
   OUTPUT        = i_matdata-matnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = i_matdata-prctr
IMPORTING
   OUTPUT        = i_matdata-prctr
*select matnr from mara into table i_mara .
*sort i_mara by matnr descending.
*read table i_mara index 1.
*i_mara-matnr = i_mara-matnr + 1.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
  EXPORTING
    INPUT              =  i_mara-matnr
  IMPORTING
    OUTPUT             =  i_mara-matnr
  EXCEPTIONS
    LENGTH_ERROR       = 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.
*CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
   INPUT              =  i_matdata-matnr
IMPORTING
   OUTPUT             =  i_matdata-matnr
EXCEPTIONS
   LENGTH_ERROR       = 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.
i_headdata-material = i_matdata-matnr.
  i_headdata-material = i_mara-matnr.
  i_headdata-ind_sector = i_matdata-mbrsh.
  i_headdata-matl_type = i_matdata-mtart.
  i_headdata-basic_view = 'X'.
  i_headdata-mrp_view = 'X'.
  i_headdata-storage_view = 'X'.
  i_headdata-SALES_VIEW = 'X'.
  i_headdata-PURCHASE_VIEW = 'X'.
  i_headdata-FORECAST_VIEW = 'X'.
  i_headdata-ACCOUNT_VIEW = 'X'.
  i_headdata-COST_VIEW = 'X'.
  i_headdata-prt_view = 'X'.
  i_headdata-work_sched_view = 'X'.
  i_headdata-quality_view = 'X'.
  append i_headdata.
clear i_headdata.
  i_bapi_makt-langu     = sy-langu.
  i_bapi_makt-matl_desc = i_matdata-maktx.
  append i_bapi_makt.
clear i_bapi_makt.
  i_clientdata-matl_group = i_matdata-matkl.
  i_clientdata-old_mat_no = i_matdata-bismt.
  i_clientdata-base_uom = i_matdata-meins.
  i_clientdata-division = i_matdata-spart.
  i_clientdata-UNIT_OF_WT = i_matdata-gewei.
  i_clientdata-TRANS_GRP = i_matdata-tragr.
  i_clientdata-NET_WEIGHT = i_matdata-ntgew.
  append i_clientdata.
clear i_clientdata.
  i_clientdatax-matl_group = 'X'.
  i_clientdatax-old_mat_no = 'X'.
  i_clientdatax-base_uom = 'X'.
  i_clientdatax-division = 'X'.
  i_clientdatax-UNIT_OF_WT = 'X'.
  i_clientdatax-TRANS_GRP = 'X'.
  i_clientdatax-NET_WEIGHT = 'X'.
  append i_clientdatax.
clear i_clientdatax.
  i_plantdata-plant = i_matdata-werks.
  i_plantdata-mrp_type = i_matdata-dismm.
  i_plantdata-mrp_ctrler = i_matdata-dispo.
  i_plantdata-availcheck = i_matdata-mtvfp.
  i_plantdata-profit_ctr = i_matdata-prctr.
  i_plantdata-LOADINGGRP = i_matdata-ladgr.
  i_plantdata-PUR_GROUP = i_matdata-ekgrp.
  i_plantdata-AUTO_RESET = i_matdata-autru.
  i_plantdata-PERIOD_IND = i_matdata-perkz.
  i_plantdata-MRP_CTRLER = i_matdata-dispo.
  i_plantdata-SM_KEY = i_matdata-fhori.
  i_plantdata-LOTSIZEKEY = i_matdata-disls.
  append i_plantdata.
clear i_plantdata.
  i_plantdatax-plant = i_plantdata-plant.
  i_plantdatax-mrp_type = 'X'.
  i_plantdatax-mrp_ctrler = 'X'.
  i_plantdatax-availcheck = 'X' .
  i_plantdatax-profit_ctr = 'X' .
  i_plantdatax-LOADINGGRP = 'X' .
  i_plantdatax-PUR_GROUP = 'X' .
  i_plantdatax-AUTO_RESET = 'X'.
  i_plantdatax-PERIOD_IND = 'X'.
  i_plantdatax-MRP_CTRLER = 'X'.
  i_plantdatax-SM_KEY = 'X'.
  i_plantdatax-LOTSIZEKEY = 'X'.
  append i_plantdatax.
clear i_plantdatax.
  clear i_forcastingparameter.
  i_forcastingparameter-PLANT = i_matdata-werks.
  i_forcastingparameter-HIST_VALS = i_matdata-peran.
  i_forcastingparameter-FORE_PDS = i_matdata-anzpr.
  i_forcastingparameter-INITIALIZE = i_matdata-kzini.
  i_forcastingparameter-TRACKLIMIT = i_matdata-siggr.
  i_forcastingparameter-MODEL_SP = i_matdata-modav.
  i_forcastingparameter-FORE_MODEL = i_matdata-prmod.
  append i_forcastingparameter.
  clear i_forcastingparameterx.
  i_forcastingparameterx-PLANT = i_matdata-werks.
  i_forcastingparameterx-HIST_VALS = 'X'.
  i_forcastingparameterx-FORE_PDS = 'X'.
  i_forcastingparameterx-INITIALIZE = 'X'.
  i_forcastingparameterx-TRACKLIMIT = 'X'.
  i_forcastingparameterx-MODEL_SP = 'X'.
  i_forcastingparameterx-FORE_MODEL = 'X'.
  append i_forcastingparameterx.
  i_valuationdata-MOVING_PR = i_matdata-verpr.
  i_valuationdata-STD_PRICE = i_matdata-stprs.
  i_valuationdata-PRICE_CTRL = i_matdata-VPRSV.
  i_valuationdata-VAL_CLASS = i_matdata-bklas.
  i_valuationdata-PRICE_UNIT = i_matdata-peinh.
  i_valuationdata-VAL_AREA = i_matdata-werks.
  append i_valuationdata.
  i_valuationdatax-VAL_AREA = i_matdata-werks.
  i_valuationdatax-MOVING_PR = 'X'.
  i_valuationdatax-STD_PRICE = 'X'.
  i_valuationdatax-PRICE_CTRL = 'X'.
  i_valuationdatax-VAL_CLASS = 'X'.
  i_valuationdatax-PRICE_UNIT = 'X'.
  append i_valuationdatax.
  i_salesdata-SALES_ORG = i_matdata-vkorg.
  i_salesdata-DISTR_CHAN = i_matdata-vtweg.
  i_salesdata-DELY_UOM = i_matdata-meins.
  append i_salesdata.
  i_salesdatax-SALES_ORG = i_matdata-vkorg.
  i_salesdatax-DISTR_CHAN = i_matdata-vtweg.
  i_salesdata-DELY_UOM = 'X'.
  append i_salesdatax.
  i_bapi_marm-ALT_UNIT = i_matdata-meins.
  i_bapi_marm-GROSS_WT = i_matdata-brgew.
  append i_bapi_marm.
  i_storagelocationdata-plant = i_plantdatax-plant.
  i_storagelocationdata-stge_loc = i_matdata-lgort.
  append i_storagelocationdata.
clear i_storagelocationdata.
  i_storagelocationdatax-plant = i_plantdatax-plant.
  i_storagelocationdatax-stge_loc = i_storagelocationdata-stge_loc.
  append i_storagelocationdatax.
clear i_storagelocationdatax.
i_bapi_mlan-TAXCLASS_1 = i_matdata-TAXKM.
  append i_bapi_mlan.
BAPI - BAPI_MATERIAL_SAVEDATA is used to Create and Change Material
Master Data.
  call function 'BAPI_MATERIAL_SAVEDATA'
    exporting
      headdata                   = i_headdata
      clientdata                 = i_clientdata
      clientdatax                = i_clientdatax
      plantdata                  = i_plantdata
      plantdatax                 = i_plantdatax
      FORECASTPARAMETERS         = i_forcastingparameter
      FORECASTPARAMETERSX        = i_forcastingparameterx
    PLANNINGDATA               =
    PLANNINGDATAX              =
      storagelocationdata        = i_storagelocationdata
      storagelocationdatax       = i_storagelocationdatax
      VALUATIONDATA              = i_valuationdata
      VALUATIONDATAX             = i_valuationdatax
    WAREHOUSENUMBERDATA        =
    WAREHOUSENUMBERDATAX       =
      SALESDATA                  = i_salesdata
      SALESDATAX                 = i_salesdatax
    STORAGETYPEDATA            =
    STORAGETYPEDATAX           =
    FLAG_ONLINE                = ' '
    FLAG_CAD_CALL              = ' '
    importing
      return                     = i_return
    tables
      materialdescription        = i_bapi_makt
      UNITSOFMEASURE             = i_bapi_marm
      UNITSOFMEASUREX            = i_bapi_marmx
    INTERNATIONALARTNOS        =
    MATERIALLONGTEXT           =
     TAXCLASSIFICATIONS         = i_bapi_mlan
    RETURNMESSAGES             =
    PRTDATA                    =
    PRTDATAX                   =
    EXTENSIONIN                =
    EXTENSIONINX               =
if i_return-type = 'E'.
    i_error-matnr = i_mara-matnr.
    i_error-mbrsh = i_matdata-mbrsh.
    i_error-mtart = i_matdata-mtart.
    i_error-werks = i_matdata-werks.
    i_error-message = i_return-message.
  append i_error.
  clear i_error.
  w_flg = 'X'.
*else.
Execute external Commit when using BAPIs
When you call BAPIs in your program that change data in the R/3
System afterwards you must call this method to write the changes to *
the database.
call function 'BAPI_TRANSACTION_COMMIT'
exporting
   wait          = 'X'
importing
   return        = i_return
endif.
refresh : i_headdata ,  i_bapi_makt, i_clientdata, i_clientdatax ,
          i_plantdata, i_plantdatax,
          i_storagelocationdata,i_storagelocationdatax,
          i_salesdata , i_salesdatax ,
          i_valuationdata , i_valuationdatax,
          i_bapi_marm,i_bapi_marmx,
          i_bapi_mlan.
clear : i_headdata ,  i_bapi_makt, i_clientdata, i_clientdatax ,
          i_plantdata, i_plantdatax, i_storagelocationdata,
          i_storagelocationdatax,
          i_valuationdata , i_valuationdatax,
          i_bapi_marm,i_bapi_marmx,
          i_bapi_mlan.
endloop.
endform.                    " create_material
*&      Form  display_error
      text
-->  p1        text
<--  p2        text
form display_error.
loop at i_error.
read table i_matdata with key matnr = i_error-matnr.
if sy-subrc = 0.
    i_matdata1-matnr = i_mara-matnr.
    i_matdata1-mbrsh = i_matdata-mbrsh.
    i_matdata1-mtart = i_matdata-mtart.
    i_matdata1-maktx = i_matdata-maktx.
    i_matdata1-meins = i_matdata-meins.
   i_matdata1-matkl = i_matdata-matkl.
   i_matdata1-bismt = i_matdata-bismt.
   i_matdata1-zeinr = i_matdata-zeinr.
   i_matdata1-spart = i_matdata-spart.
   i_matdata1-werks = i_matdata-werks.
   i_matdata1-dismm = i_matdata-dismm.
   i_matdata1-dispo = i_matdata-dispo.
   i_matdata1-beskz = i_matdata-beskz.
   i_matdata1-sobsl = i_matdata-sobsl.
   i_matdata1-lgpro = i_matdata-lgpro.
   i_matdata1-lgfsb = i_matdata-lgfsb.
   i_matdata1-eprio = i_matdata-eprio.
   i_matdata1-mtvfp = i_matdata-mtvfp.
   i_matdata1-lgort = i_matdata-lgort.
   i_matdata1-lgpbe = i_matdata-lgpbe.
   i_matdata1-prctr = i_matdata-prctr.
   i_matdata1-message = i_error-message.
    append i_matdata1.
    clear i_matdata1.
endif.
endloop.
loop at i_error.
  write :/01 i_error-matnr , 30 i_error-message.
endloop.
if i_error is initial.
  write :/01 text-001.
endif.
if w_flg = 'X'.
  call function 'WS_DOWNLOAD'
   exporting
    BIN_FILESIZE                  = ' '
     codepage                      = 'IBM'
     filename                      = p_file1
     filetype                      = 'DAT'
    MODE                          = ' '
    WK1_N_FORMAT                  = ' '
    WK1_N_SIZE                    = ' '
    WK1_T_FORMAT                  = ' '
    WK1_T_SIZE                    = ' '
    COL_SELECT                    = ' '
    COL_SELECTMASK                = ' '
    NO_AUTH_CHECK                 = ' '
  IMPORTING
    FILELENGTH                    =
    tables
      data_tab                      = i_error
    FIELDNAMES                    =
   exceptions
     file_open_error               = 1
     file_write_error              = 2
     invalid_filesize              = 3
     invalid_type                  = 4
     no_batch                      = 5
     unknown_error                 = 6
     invalid_table_width           = 7
     gui_refuse_filetransfer       = 8
     customer_error                = 9
     others                        = 10
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endif.
endform.                    " display_error7