Z reports from MM point of view

Question

hi sap guru's
                 i just want verious  z reports which basically client required and which is not available in SAP MM plz send me reports
and how we can see the effect of  z reports ( mean s which T code use to see )
regards

Answer 1

Hi
Take a look at this
This is a report for pending purchase requisition
This involves abap coding
REPORT  zmmr_pending_prs  NO STANDARD PAGE HEADING LINE-COUNT
65 LINE-SIZE 255.
Structure declaration
TYPE-POOLS : slis.
TABLES : eban , ekbe ,ekko ,ekpo, lfa1,makt,mara,marc.
Work Variables and internal tables
**--Internal Table for Purchase Requisition -EBAN
DATA: BEGIN OF i_eban OCCURS 0 ,
      banfn LIKE eban-banfn,
      bnfpo LIKE eban-bnfpo,
      bsart LIKE eban-bsart,
      ekgrp LIKE eban-ekgrp,
      afnam LIKE eban-afnam,
      txz01 LIKE eban-txz01,
      matnr LIKE eban-matnr,
      werks LIKE eban-werks,
      menge LIKE eban-menge,
      badat LIKE eban-badat,
      lfdat LIKE eban-lfdat,
      ebeln LIKE eban-ebeln,
      ebelp LIKE eban-ebelp,
      bedat LIKE eban-bedat,
      bsmng LIKE eban-bsmng,
      END OF i_eban .
**-- Internal Table for Purchasing Document Item - EKPO
DATA : BEGIN OF i_ekpo OCCURS 0,
       ebeln LIKE ekpo-ebeln,
       ebelp LIKE ekpo-ebelp,
       matnr LIKE ekpo-matnr,
       werks LIKE ekpo-werks,
       banfn LIKE ekpo-banfn,
       bnfpo LIKE ekpo-bnfpo,
       END OF i_ekpo .
**--Internal Table for n  History per Purchasing Docum - EKBE
DATA: BEGIN OF i_ekbe OCCURS 0 ,
      ebeln LIKE ekbe-ebeln,
      ebelp LIKE ekbe-ebelp,
      belnr LIKE ekbe-belnr,
      bwart LIKE ekbe-bwart,
      budat LIKE ekbe-budat,
      menge LIKE ekbe-menge,
      matnr LIKE ekbe-matnr,
      werks LIKE ekbe-werks,
      END OF i_ekbe .
*--  final Intenral Table for displaying output.
DATA: BEGIN OF it_output OCCURS 0 ,
      bsart LIKE eban-bsart,
      badat LIKE eban-badat,
      matnr LIKE eban-matnr,
      werks LIKE eban-werks,
      txz01 LIKE eban-txz01,
      menge LIKE eban-menge,
      banfn LIKE eban-banfn,
      bnfpo LIKE eban-bnfpo,
      ekgrp LIKE eban-ekgrp,
      afnam LIKE eban-afnam,
      lfdat LIKE eban-lfdat,
      ebeln LIKE eban-ebeln,
      ebelp LIKE eban-ebelp,
      bedat LIKE eban-bedat,
      belnr LIKE ekbe-belnr,
      menge1 LIKE ekbe-menge,
      budat LIKE ekbe-budat,
      bwart LIKE ekbe-bwart,
      lifnr LIKE ekko-lifnr,
      END OF it_output .
***---- Data Declaration For ALV.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid,
      gt_events     TYPE slis_t_event,
      gd_prntparams TYPE slis_print_alv.
**-- Input Screen
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR eban-matnr ,
                 s_badat FOR eban-badat,
                 s_werks FOR eban-werks.
PARAMETERS :     p_afnam LIKE eban-afnam .
SELECT-OPTIONS : s_ekgrp FOR eban-ekgrp,
                 s_banfn FOR eban-banfn .
SELECTION-SCREEN END OF BLOCK blk .
*AT SELECTION-SCREEN ON p_werks.
PERFORM check_plant.             " Validation for plant.
START-OF-SELECTION.
perform top-of-page .
**-- Validate input fields.
PERFORM validate_input.
**-- Get Data for P.R.and History  per Purchasing Document
  PERFORM get_data.
**-- Process Data
  PERFORM process_data .
  PERFORM build_fieldcatalog .
  PERFORM display_data .
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data .
***---- Get All the data for Purchase Requisition From EBAN
SELECT banfn bnfpo bsart ekgrp afnam txz01 matnr werks menge badat lfdat
  ebeln ebelp bedat bsmng INTO TABLE i_eban FROM eban CLIENT SPECIFIED
  WHERE mandt = sy-mandt
  AND banfn IN s_banfn
  AND ekgrp IN s_ekgrp
AND afnam = p_afnam
  AND matnr IN s_matnr
  AND werks IN s_werks
  AND badat IN s_badat.       " Index EBAN~1 used
  SORT i_eban BY banfn .
DELETE i_eban WHERE banfn NOT IN s_banfn .
  IF NOT i_eban[] IS INITIAL .
    SELECT ebeln ebelp  matnr werks banfn bnfpo INTO TABLE i_ekpo
    FROM ekpo CLIENT SPECIFIED
    FOR ALL ENTRIES IN i_eban
    WHERE mandt = sy-mandt
     AND matnr = i_eban-matnr
     AND werks = i_eban-werks
     AND banfn = i_eban-banfn
     AND bnfpo = i_eban-bnfpo.
  ENDIF .
***---- Get All the data for History per Purchasing Document from EKBE
  IF NOT i_ekpo[] IS INITIAL .
    SELECT ebeln ebelp belnr bwart budat menge matnr werks
    INTO TABLE i_ekbe
    FROM ekbe CLIENT SPECIFIED
    FOR ALL ENTRIES IN i_ekpo
    WHERE mandt = sy-mandt
    AND ebeln = i_ekpo-ebeln
    AND ebelp = i_ekpo-ebelp
    AND bwart = '105'
    AND matnr = i_ekpo-matnr
    AND werks = i_ekpo-werks. " ebeln ebelp primary keys
  ENDIF.
ENDFORM.                    " get_data
*&      Form  build_fieldcatalog
      text
-->  p1        text
<--  p2        text
FORM build_fieldcatalog .
  DATA position TYPE i.
  position = -1.
  position = position + 1.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'BSART'.
  fieldcatalog-seltext_m   = 'PR Type'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 4.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'BADAT'.
  fieldcatalog-seltext_m   = 'PR Date'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 10.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'MATNR'.
  fieldcatalog-seltext_m   = 'Item Code'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 18.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'TXZ01'.
  fieldcatalog-seltext_m   = 'Material Description'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 40.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'MENGE'.
  fieldcatalog-seltext_m   = 'PR Qty'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 13.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'BANFN'.
  fieldcatalog-seltext_m   = 'PR No'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 10.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'EKGRP'.
  fieldcatalog-seltext_m   = 'Pur Grp'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 7.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'AFNAM'.
  fieldcatalog-seltext_m   = 'Raised By'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 12.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'LFDAT'.
  fieldcatalog-seltext_m   = 'Required Date'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 13.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'EBELN'.
  fieldcatalog-seltext_m   = 'PO Number'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 18.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'BEDAT'.
  fieldcatalog-seltext_m   = 'PO Date'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 10.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'BELNR'.
  fieldcatalog-seltext_m   = 'GR NO'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 18.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'MENGE1'.
  fieldcatalog-seltext_m   = 'Supplied Qty'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 13.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'BUDAT'.
  fieldcatalog-seltext_m   = 'Supplied Date'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 13.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
position = position + 1.
fieldcatalog-fieldname   = 'BWART'.
fieldcatalog-seltext_m   = 'movement type'.
fieldcatalog-col_pos     = position.
fieldcatalog-outputlen   = 3.
APPEND fieldcatalog TO fieldcatalog.
CLEAR  fieldcatalog.
  position = position + 1.
  fieldcatalog-fieldname   = 'LIFNR'.
  fieldcatalog-seltext_m   = 'Supplier'.
  fieldcatalog-col_pos     = position.
  fieldcatalog-outputlen   = 10.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
ENDFORM.                    "build_fieldcatalog
*&      Form  display_data
      text
-->  p1        text
<--  p2        text
FORM display_data .
  IF it_output[] IS INITIAL.
    MESSAGE 'No Data Exist' TYPE 'E'.
  ENDIF.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
            i_callback_user_command = 'USER_COMMAND'(001)
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
            it_events               = gt_events
            is_print                = gd_prntparams
            i_save                  = 'X'
           is_variant              = z_template
       TABLES
            t_outtab                = it_output
            EXCEPTIONS
            program_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.
*ENDFORM.                    " display_alv_data
ENDFORM.                    " display_data
FORM top-of-page.
*ALV Header declarations
  DATA: t_header TYPE slis_t_listheader,
        wa_header TYPE slis_listheader,
        t_line LIKE wa_header-info,
        ld_lines TYPE i,
        ld_linesc(10) TYPE c.
Title
  wa_header-typ  = 'H'.
  wa_header-info = 'Pending Purchase Requisition Report '
  DESCRIBE TABLE i_eban LINES ld_lines.
  ld_linesc = ld_lines.
  CONCATENATE 'Total No. of Records: ' ld_linesc
                    INTO t_line SEPARATED BY space.
  APPEND wa_header TO t_header.
  CLEAR wa_header.
Date
  wa_header-typ  = 'S'.
  wa_header-key = 'Date: '.
  CONCATENATE  sy-datum+6(2) '.'
               sy-datum+4(2) '.'
               sy-datum(4) INTO wa_header-info.   "todays date
  APPEND wa_header TO t_header.
  CLEAR: wa_header.
  wa_header-typ  = 'A'.
  wa_header-info = t_line.
  APPEND wa_header TO t_header.
  CLEAR: wa_header, t_line.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = t_header.
           i_logo             = 'Z_LOGO'.0
ENDFORM .                    "top-of-page
*&      Form  validate_input
      text
-->  p1        text
<--  p2        text
*FORM validate_input .
*-- validate the input material.
SELECT SINGLE * FROM mara CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND  matnr IN s_matnr.
IF sy-subrc <> 0.
   MESSAGE 'Enter Valid Material Number' TYPE 'E'.
ENDIF.
*-- validate the input plant.
SELECT SINGLE * FROM t001w CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND werks  = p_werks.
IF sy-subrc <> 0.
   MESSAGE 'Enter Valid plant.' TYPE 'E'.
ENDIF.
*-- validate the input plant / material record
SELECT SINGLE * FROM marc CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND matnr IN s_matnr
AND werks  = p_werks .
IF sy-subrc <> 0.
   MESSAGE 'Material is not defined in Selected Entered Plant.'
    TYPE 'E'.
ENDIF.
*-- validate the input Purchase Grp.
SELECT SINGLE * FROM marc CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND matnr IN s_matnr
AND werks  = p_werks
AND ekgrp IN s_ekgrp.
IF sy-subrc <> 0.
   MESSAGE 'Material is not defined in Selected Entered Plant.'
    TYPE 'E'.
ENDIF.
*ENDFORM.                    " validate_input
*&      Form  process_data
      text
-->  p1        text
<--  p2        text
FORM process_data .
**-- Process All the data into Final Internal table it_output
  LOOP AT i_eban.
    it_output-bsart = i_eban-bsart.
    it_output-badat = i_eban-badat.
    it_output-matnr = i_eban-matnr.
    it_output-werks = i_eban-werks.
    it_output-txz01 = i_eban-txz01.
    it_output-menge = i_eban-menge.
    it_output-banfn = i_eban-banfn.
    it_output-bnfpo = i_eban-bnfpo.
    it_output-ekgrp = i_eban-ekgrp.
    it_output-afnam = i_eban-afnam.
    it_output-lfdat = i_eban-lfdat.
    it_output-ebeln = i_eban-ebeln.
     ebelp LIKE eban-ebelp,
    it_output-bedat = i_eban-bedat.
    READ TABLE i_ekpo WITH KEY matnr = it_output-matnr
                               werks = it_output-werks
                               banfn = it_output-banfn
                               bnfpo = it_output-bnfpo.
    IF sy-subrc = 0.
      it_output-ebeln = i_ekpo-ebeln.
      it_output-ebelp = i_ekpo-ebelp.
    ENDIF.
    SELECT SINGLE lifnr INTO ekko-lifnr FROM ekko CLIENT SPECIFIED
    WHERE mandt = sy-mandt
    AND ebeln = it_output-ebeln.
    IF sy-subrc = 0.
      it_output-lifnr = ekko-lifnr.
    ENDIF.
    READ TABLE i_ekbe WITH KEY ebeln = it_output-ebeln
                               ebelp = it_output-ebelp
                               matnr = it_output-matnr
                               werks = it_output-werks.
    IF sy-subrc = 0.
      it_output-menge1 = i_ekbe-menge.
      it_output-budat = i_ekbe-budat.
      it_output-bwart = i_ekbe-bwart.
      it_output-belnr = i_ekbe-belnr.
    ENDIF.
    APPEND it_output.
    CLEAR it_output.
  ENDLOOP.
ENDFORM.                    " process_data