Pls some one send me mm inventory report

Question

hi all,'
            pls some one send me mm inventory report.
                  i m facing problem in mm  report.
regards
vikas saini.

Answer 1

Hai.
check the examople codes.
MM Process flow
The typical procurement cycle for a service or material consists of the following phases:
1. Determination of Requirements
Materials requirements are identified either in the user departments or via materials planning and control. (This can cover both MRP proper and the demand-based approach to inventory control. The regular checking of stock levels of materials defined by master records, use of the order-point method, and forecasting on the basis of past usage are important aspects of the latter.) You can enter purchase requisitions yourself, or they can be generated automatically by the materials planning and control system.
2. Source Determination
The Purchasing component helps you identify potential sources of supply based on past orders and existing longer-term purchase agreements. This speeds the process of creating requests for quotation (RFQs), which can be sent to vendors electronically via SAP EDI, if desired.
3.Vendor Selection and Comparison of Quotations
The system is capable of simulating pricing scenarios, allowing you to compare a number of different quotations. Rejection letters can be sent automatically.
4. Purchase Order Processing
The Purchasing system adopts information from the requisition and the quotation to help you create a purchase order. As with purchase requisitions, you can generate Pos yourself or have the system generate them automatically. Vendor scheduling agreements and contracts (in the SAP System, types of longer-term purchase agreement) are also supported.
5. Purchase Order Follow-Up
The system checks the reminder periods you have specified and - if necessary - automatically prints reminders or expediters at the predefined intervals. It also provides you with an up-to-date status of all purchase requisitions, quotations, and purchase orders.
6. Goods Receiving and Inventory Management
Goods Receiving personnel can confirm the receipt of goods simply by entering the Po number. By specifying permissible tolerances, buyers can limit over- and underdeliveries of ordered goods.
7. Invoice Verification
The system supports the checking and matching of invoices. The accounts payable clerk is notified of quantity and price variances because the system has access to PO and goods receipt data. This speeds the process of auditing and clearing invoices for payment.
example code.
REPORT ZMMBDC1_1 NO STANDARD PAGE HEADING MESSAGE-ID ZT.
      Declaration of internal tables
internal table for selecting data from flat file
DATA : BEGIN OF IT_DATA OCCURS 0,
         MBRSH,                    " Industry sector
         MTART(4),                 " Material type
         KZSEL,                    " Checkbox
         MAKTX(40),                " Material description
         MEINS(3),                 " Base unit of measure
         MATKL(9),                 " Material group
         BISMT(18),                " Old material number
       END OF IT_DATA.
internal table for bdcdata
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
internal table to handle messages
DATA : IT_MESSAGES LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
Variables &  Flag declaration
variables declaration
DATA : V_MESG(50).
flag declaration
DATA : FG_BDC,
       FG_FLAG1 TYPE I.
selection screen
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
parameter
PARAMETERS : P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BLK1.
initialization
INITIALIZATION.
peform to initialize parameter
  PERFORM INIT_PARM.
start of selection
start-of-selection.
perform to upload it_data
  PERFORM UP_LOAD_IT_DATA.
perform transfer data
  PERFORM TRANSFER_DATA.
end of selection
END-OF-SELECTION.
*&      Form  INIT_PARM
Initializing parameter
FORM INIT_PARM.
P_FILE = 'C:\'.
ENDFORM.                    " INIT_PARM
*&      Form  UP_LOAD_IT_DATA
Transfering data from file to internal table
FORM UP_LOAD_IT_DATA.
  CALL FUNCTION 'WS_UPLOAD'
      EXPORTING
           FILENAME                = P_FILE
           FILETYPE                = 'ASC'
       TABLES
            DATA_TAB                = IT_DATA
       EXCEPTIONS
            CONVERSION_ERROR        = 1
            FILE_OPEN_ERROR         = 2
            FILE_READ_ERROR         = 3
            INVALID_TABLE_WIDTH     = 4
            INVALID_TYPE            = 5
            NO_BATCH                = 6
            UNKNOWN_ERROR           = 7
            GUI_REFUSE_FILETRANSFER = 8
            OTHERS                  = 9.
    IF SY-SUBRC = 2 .
       FG_FLAG1 = 1.
       MESSAGE I001.
    ENDIF.
ENDFORM.                    " UP_LOAD_IT_DATA
*&      Form  TRANSFER_DATA
   Processing the data
FORM TRANSFER_DATA.
FG_BDC = 'N'.
LOOP AT IT_DATA.
perform to fill it_bdcdata.
PERFORM FILL_IT_BDCDATA.
CALL TRANSACTION 'MM01' USING IT_BDCDATA MODE 'N' UPDATE 'S'
                                   MESSAGES INTO IT_MESSAGES.
   IF SY-SUBRC <> 0.
     FG_FLAG1 = 1.
if error occurs in transaction mode run bdc session for that data
     PERFORM BDC_PROCESS.
   ENDIF.
Handles error messages
      PERFORM ERROR_MESSAGES.
     CLEAR : IT_BDCDATA,IT_DATA,IT_MESSAGES.
     REFRESH : IT_BDCDATA,IT_MESSAGES.
ENDLOOP.
IF FG_FLAG1 = 0.
   MESSAGE I003.
ENDIF.
IF FG_BDC = 'O'.
close bdc if it is open
   PERFORM CLOSE_BDC.
ENDIF.
ENDFORM.                    " TRANSFER_DATA
*&      Form  FILL_IT_BDCDATA
Filling Bdcdata structure with it_data
Some fields have been commented for future updations
FORM FILL_IT_BDCDATA.
PERFORM BDC_DYNPRO USING : 'SAPLMGMM' '0060'.
PERFORM BDC_FIELD  USING : 'BDC_OKCODE' '/00',
                         : 'BDC_CURSOR' 'RMMG1_REF-MATNR',
                         : 'RMMG1-MBRSH' IT_DATA-MBRSH,
                         : 'RMMG1-MTART' IT_DATA-MTART.
PERFORM BDC_DYNPRO USING : 'SAPLMGMM' '0070'.
PERFORM BDC_FIELD  USING : 'BDC_OKCODE' '=RESA'.
PERFORM BDC_DYNPRO USING : 'SAPLMGMM' '0070'.
PERFORM BDC_FIELD  USING : 'BDC_OKCODE' '=ENTR',
                         : 'MSICHTAUSW-KZSEL(01)' IT_DATA-KZSEL.
PERFORM BDC_DYNPRO USING : 'SAPLMGMM' '4000'.
PERFORM BDC_FIELD  USING : 'BDC_OKCODE' '=BU',
                         : 'BDC_SUBSCR' 'SAPLMGMM' & '  2000TABFRA1',
                         : 'BDC_SUBSCR' 'SAPLMGD1' & '  1002SUB1',
                         : 'BDC_CURSOR' 'MAKT-MAKTX',
                         : 'MAKT-MAKTX' IT_DATA-MAKTX,
                         : 'BDC_SUBSCR' 'SAPLMGD1' & '  2001SUB2',
                         : 'MARA-MEINS' IT_DATA-MEINS,
                         : 'MARA-MATKL' IT_DATA-MATKL,
                         : 'MARA-BISMT' IT_DATA-BISMT,
                         : 'BDC_OKCODE' '=BU'.
*perform bdc_field       using 'MARA-EXTWG'  ''.
*perform bdc_field       using 'MARA-LABOR' ''.
*perform bdc_field       using 'MARA-KOSCH' ''.
*perform bdc_field       using 'MARA-MSTAE' ''.
*perform bdc_field       using 'MARA-MSTDE' ''.
*perform bdc_field       using 'BDC_SUBSCR' 'SAPLMGD1' & '  2561SUB3'.
*perform bdc_field       using 'MARA-BEGRU' ''.
*perform bdc_field       using 'BDC_SUBSCR' 'SAPLMGD1' & '  2007SUB4'.
*perform bdc_field       using 'MARA-NTGEW' ''.
*perform bdc_field       using 'MARA-BRGEW' ''.
*perform bdc_field       using 'MARA-GEWEI' ''.
*perform bdc_field       using 'MARA-VOLUM' ''.
*perform bdc_field       using 'MARA-VOLEH' ''.
*PERFORM BDC_FIELD       USING 'MARA-GROES' ''.
*perform bdc_field       using 'MARA-EAN11' ''.
*perform bdc_field       using 'MARA-NUMTP' ''.
*PERFORM BDC_FIELD       USING 'BDC_SUBSCR' 'SAPLMGD1' & '  2005SUB5'.
*perform bdc_field       using 'BDC_SUBSCR' 'SAPLMGD1' & '  2011SUB6'.
*perform bdc_field       using 'MARA-MAGRV' ''.
ENDFORM.                    " FILL_IT_BDCDATA
*&      Form  BDC_DYNPRO
Filling the it_bdcdata table with program name & screen number
FORM BDC_DYNPRO USING    PROGRAM LIKE BDCDATA-PROGRAM
                         DYNPRO LIKE BDCDATA-DYNPRO.
  IT_BDCDATA-PROGRAM = PROGRAM.
  IT_BDCDATA-DYNPRO = DYNPRO.
  IT_BDCDATA-DYNBEGIN = 'X'.
  APPEND IT_BDCDATA.
  CLEAR IT_BDCDATA.
ENDFORM.                    " BDC_DYNPRO
*&      Form  BDC_FIELD
  Filling it_bdcdata with field name and field value
FORM BDC_FIELD USING FNAM LIKE BDCDATA-FNAM
                     FVAL.
  IT_BDCDATA-FNAM = FNAM.
  IT_BDCDATA-FVAL = FVAL.
  APPEND IT_BDCDATA.
  CLEAR IT_BDCDATA.
ENDFORM.                    " BDC_FIELD
*&      Form  ERROR_MESSAGES
Displaying error messages
FORM ERROR_MESSAGES.
    CALL FUNCTION 'FORMAT_MESSAGE'
        EXPORTING
             ID        = SY-MSGID
             LANG      = '-D'
        IMPORTING
             MSG       = V_MESG
        EXCEPTIONS
             NOT_FOUND = 1
             OTHERS    = 2.
  LOOP AT IT_MESSAGES WHERE MSGTYP = 'E'.
    WRITE : / 'Message :'(I06) ,V_MESG.
    CLEAR IT_MESSAGES.
  ENDLOOP.
ENDFORM.                    " ERROR_MESSAGES
*&      Form  BDC_PROCESS
Open bdc session if call transaction fails
FORM BDC_PROCESS.
  IF FG_BDC = 'N'.
open bdc session
   PERFORM OPEN_BDC.
   FG_BDC = 'O'.
  ENDIF.
  IF FG_BDC = 'O'.
insert data into bdc session
    PERFORM INSERT_BDC.
  ENDIF.
ENDFORM.                    " BDC_PROCESS
*&      Form  OPEN_BDC
  Calling function module to open bdc session
FORM OPEN_BDC.
  CALL FUNCTION 'BDC_OPEN_GROUP'
    EXPORTING
      CLIENT              = SY-MANDT
      GROUP               = 'SMM1'
      KEEP                = 'X'
      USER                = SY-UNAME
    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.
ENDFORM.                    " OPEN_BDC
*&      Form  INSERT_BDC
  Insert it_bdcdata into bdc by calling function module bdc_insert
FORM INSERT_BDC.
  CALL FUNCTION 'BDC_INSERT'
    EXPORTING
      TCODE            = 'MM01'
    TABLES
      DYNPROTAB        =  IT_BDCDATA
    EXCEPTIONS
      INTERNAL_ERROR   = 1
      NOT_OPEN         = 2
      QUEUE_ERROR      = 3
      TCODE_INVALID    = 4
      PRINTING_INVALID = 5
      POSTING_INVALID  = 6
      OTHERS           = 7.
ENDFORM.                    " INSERT_BDC
*&      Form  CLOSE_BDC
Closing bdc session
FORM CLOSE_BDC.
  CALL FUNCTION 'BDC_CLOSE_GROUP'
     EXCEPTIONS
       NOT_OPEN    = 1
       QUEUE_ERROR = 2
       OTHERS      = 3.
ENDFORM.                    " CLOSE_BDC
example code.
report ZMMBDCP_MATERIAL_PRICE
       no standard page heading
       line-size 255.
                     Includes
include zbdcrecx1.
                     Tables
TABLES : MARA.
                   Internal Tables
*--Internal Table To hold Material Price data from flat file.
Data: begin of it_mat_price occurs 0,
       key(4),
       f1(10),   " date
       f2(4),    " Company Code
       f3(4),    " Plant
       f4(18),   " material
       f5(15),   " Price
      end of it_mat_price.
*--Internal Table To hold Material Price header Data .
data : begin of it_header occurs 0,
         key(4),
         f1(10),
         f2(4),
         f3(4),
       end of it_header.
*--Internal Table To hold Material Price details data .
data : begin of it_details occurs 0,
        key(4),
        f4(18),
        f5(15),
       end of it_details.
                      Variables
data : v_sno(2),              " Serial Number
       v_rows type i,         " Number of Rows
       v_fname(40).           " To store Field Name
                      Start of Selection
start-of-selection.
clear    it_mat_price.
refresh  it_mat_price.
clear    it_header.
refresh  it_header.
clear    it_details.
refresh  it_details.
WRITE : / 'Upload Material Price Change from ',
            P_FNAME, ' on ', SY-DATUM.
*--To Upload Material Price Data from Flat file.
CALL FUNCTION 'UPLOAD'
      EXPORTING
           FILENAME                =
                        'C:\WINDOWS\Desktop\mat_price_change.txt'
           FILETYPE                = 'DAT'
      TABLES
           DATA_TAB                = it_mat_price
      EXCEPTIONS
           CONVERSION_ERROR        = 1
           INVALID_TABLE_WIDTH     = 2
           INVALID_TYPE            = 3
           NO_BATCH                = 4
           UNKNOWN_ERROR           = 5
           GUI_REFUSE_FILETRANSFER = 6
           OTHERS                  = 7.
    OPEN DATASET P_FNAME FOR INPUT IN TEXT MODE.
  IF SY-SUBRC NE 0.
    WRITE : / 'File could not be opened. Please check file name.'.
    STOP.
  ENDIF.
  CLEAR : it_mat_price[], it_mat_price.
  DO.
    READ DATASET P_FNAME INTO V_STR.
    IF SY-SUBRC NE 0.
      EXIT.
    ENDIF.
write v_str.
translate v_str using '#/'.
    SPLIT V_STR AT ',' INTO  it_mat_price-key
                             it_mat_price-F1   it_mat_price-F2
                             it_mat_price-F3  it_mat_price-F4
                             it_mat_price-F5.
    APPEND it_mat_price.
    CLEAR it_mat_price.
  ENDDO.
  IF it_mat_price[] IS INITIAL.
    WRITE : / 'No data found to upload'.
    STOP.
  ENDIF.
*--Separating Header & Details Records
  loop at it_mat_price.
    At new key.
      read table it_mat_price index sy-tabix.
      move-corresponding it_mat_price to it_header.  " Header
      append it_header.
      clear it_header.
    endat.
      move-corresponding it_mat_price to it_details.   " Details
      append it_details.
      clear it_details.
  endloop.
*--Perform to open Session
  perform open_group.
*--To get Number of rows for Table Control
  v_rows = sy-srows - 13.
*--Looping on Header record
  loop at it_header.
    perform bdc_dynpro      using 'SAPRCKM_MR21' '0201'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'MR21HEAD-WERKS'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    perform bdc_field       using 'MR21HEAD-BUDAT'
                                   it_header-f1.
    perform bdc_field       using 'MR21HEAD-BUKRS'
                                   it_header-f2.
    perform bdc_field       using 'MR21HEAD-WERKS'
                                   it_header-f3.
    perform bdc_field       using 'MR21HEAD-SCREEN_VARIANT'
                                  'MR21_LAGERMATERIAL_0250'.
    v_sno = 0.
*--Looping On detials record.
    loop at it_details where key eq it_header-key.
      SELECT SINGLE MATNR INTO IT_DETAILS-F4
             FROM MARA
             WHERE BISMT EQ IT_DETAILS-F4.
      if v_sno le v_rows.
        v_sno = v_sno + 1.
      endif.
      perform bdc_dynpro      using 'SAPRCKM_MR21' '0201'.
      perform bdc_field       using 'BDC_OKCODE'
                                      '=ENTR'.
      clear v_fname.
      CONCATENATE 'CKI_MR21_0250-MATNR(' V_SNO ')' INTO V_FNAME.
      perform bdc_field       using v_fname
                                    it_details-f4.
      clear v_fname.
      CONCATENATE 'CKI_MR21_0250-NEWVALPR(' V_SNO ')' INTO V_FNAME.
      perform bdc_field       using v_fname
                                    it_details-f5.
    endloop.
    perform bdc_dynpro      using 'SAPRCKM_MR21' '0201'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=SAVE'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'MR21HEAD-SCREEN_VARIANT'.
    perform bdc_field       using 'MR21HEAD-SCREEN_VARIANT'
                                  'MR21_LAGERMATERIAL_BWKEY_0250'.
*--Call Transaction to upadate New price
    perform bdc_transaction using 'MR21'.
  endloop.
  perform close_group.
regards.
sowjanya.b