Vendor's material

Question

Hi experts,
I am creating vendor's stock report. I am facing problem i am not getting all material for perticular vendor in MSEG but when i am checking standard report ME2O or MB5B it showing the material at vendor. so how can i get all material for perticular vendor. any FM or somthing else plz giv me solution.
SELECT * FROM MKPF
INTO TABLE IT_MKPF
WHERE BUDAT IN PODATE.
  IF NOT IT_MKPF[] IS INITIAL.
     SELECT * FROM MSEG
              INTO TABLE IT_MSEG
              FOR ALL ENTRIES IN IT_MKPF
              WHERE MBLNR = IT_MKPF-MBLNR AND
                    MJAHR = IT_MKPF-MJAHR AND
                    WERKS = PLANT         AND
                    LIFNR = VENDOR        AND
                   (  BWART =  '541' AND SHKZG = 'S'  OR
                      BWART =  '542' AND SHKZG = 'H'  OR
                      BWART =  '543' AND SHKZG = 'H'  OR
                      BWART =  '544' AND SHKZG = 'S'  OR
                      BWART =  '548' AND SHKZG = 'H'  OR
                      BWART =  '549' AND SHKZG = 'S' ) .
  ENDIF. plz giv me solution.
Thanks,
Vishal.

Answer 1

*& Report  Z_MM_STCK_FG_T
report  z_mm_stck_fg_t.
TABLES:mara,marc,mkpf,mseg,komp,vbrp.
TYPE-POOLS:slis.
TYPES :BEGIN OF ty_mb5b,
        matnr   TYPE matnr,
        budat   TYPE budat,
        mb_open  TYPE p DECIMALS 3,
        END OF ty_mb5b.
DATA:wa_mb5b  TYPE ty_mb5b.
DATA:it_mb5b TYPE STANDARD TABLE OF  ty_mb5b  INITIAL SIZE 0.
TYPES:BEGIN OF ty_fgl,
      mblnr  TYPE mblnr,
      vgart TYPE vgart,
      blart TYPE blart,
      bldat TYPE bldat,
      budat TYPE  budat,
      aedat TYPE aedat,
      xblnr TYPE xblnr1,
      bktxt TYPE bktxt,
      zeile TYPE mblpo,
      bwart TYPE bwart,
      xauto TYPE mb_xauto,
      matnr TYPE matnr,
      werks TYPE werks_d,
      lgort TYPE lgort_d,
      charg TYPE charg_d,
      insmk TYPE mb_insmk,
      zusch TYPE dzusch,
      zustd TYPE dzustd,
      sobkz TYPE sobkz,
      lifnr TYPE elifn,
      kunnr TYPE ekunn,
      kdauf TYPE kdauf,
      kdpos TYPE kdpos,
      kdein TYPE kdein,
      plpla TYPE plpla,
      shkzg  TYPE shkzg,
      waers TYPE waers,
      dmbtr TYPE dmbtr,
      bnbtr TYPE bnbtr,
      bualt  TYPE bualt,
      shkum TYPE shkum,
      dmbum TYPE dmbum,
      bwtar TYPE bwtar_d,
      menge TYPE  menge_d,
      meins TYPE meins,
      erfmg TYPE erfmg,
      erfme TYPE erfme,
      bpmng TYPE  bpmng,
      bprme TYPE bbprm,
      ebeln TYPE bstnr,
      ebelp TYPE ebelp,
      lfbja TYPE lfbja,
      lfbnr TYPE lfbnr,
      lfpos TYPE lfpos,
      sjahr TYPE mjahr,
      smbln TYPE mblnr,
      smblp  TYPE mblpo,
      elikz TYPE elikz,
      sgtxt TYPE sgtxt,
      equnr TYPE equnr,
      wempf  TYPE wempf,
      ablad TYPE ablad,
      gsber TYPE gsber,
      kzbew TYPE kzbew,
      tcode2 TYPE  tcode,
      umwrk  TYPE umwrk,
      umcha TYPE umcha,
      END OF ty_fgl.
TYPES:BEGIN OF ty_fgl1,
      mblnr TYPE mblnr,
      vgart TYPE vgart,
      blart  TYPE blart,
      bldat TYPE bldat,
      budat TYPE budat,
      aedat TYPE aedat,
      xblnr TYPE  xblnr1,
      bktxt TYPE bktxt,
      zeile TYPE mblpo,
      bwart TYPE bwart,
      xauto TYPE mb_xauto,
      matnr TYPE matnr,
      werks TYPE werks_d,
      lgort TYPE lgort_d,
      charg TYPE charg_d,
      insmk TYPE mb_insmk,
      zusch TYPE dzusch,
      zustd TYPE dzustd,
      sobkz TYPE sobkz,
      lifnr TYPE elifn,
      kunnr TYPE ekunn,
      kdauf TYPE kdauf,
      kdpos TYPE kdpos,
      kdein  TYPE kdein,
      plpla TYPE plpla,
      shkzg TYPE shkzg,
      waers TYPE waers,
      dmbtr  TYPE dmbtr,
      bnbtr TYPE bnbtr,
      bualt TYPE bualt,
      shkum TYPE shkum,
      dmbum TYPE  dmbum,
      bwtar TYPE bwtar_d,
      menge TYPE menge_d,
      meins TYPE meins,
      erfmg TYPE erfmg,
      erfme TYPE erfme,
      bpmng TYPE bpmng,
      bprme TYPE bbprm,
      ebeln TYPE bstnr,
      ebelp  TYPE ebelp,
      lfbja TYPE lfbja,
      lfbnr TYPE lfbnr,
      lfpos TYPE lfpos,
      sjahr  TYPE mjahr,
      smbln TYPE mblnr,
      smblp TYPE mblpo,
      elikz TYPE elikz,
      sgtxt TYPE  sgtxt,
      equnr TYPE equnr,
      wempf TYPE wempf,
      ablad TYPE ablad,
      gsber TYPE gsber,
      kzbew TYPE kzbew,
      tcode2 TYPE tcode,
      umwrk  TYPE umwrk,
      END  OF ty_fgl1.
TYPES:BEGIN OF ty_bsim,
      belnr TYPE belnr_d,
      matnr  TYPE matnr,
      bwkey TYPE bwkey,
      shkzg TYPE shkzg,
      budat TYPE budat,
      dmbtr TYPE  dmbtr,
      END OF ty_bsim.
TYPES:BEGIN OF ty_shkzg,
      mblnr    TYPE mblnr,
      matnr   TYPE matnr,
      budat   TYPE  budat,
      shkzg   TYPE shkzg,
      s_menge  TYPE menge_d,
      h_menge TYPE menge_d,
      s_dmbtr TYPE dmbtr,
      h_dmbtr TYPE dmbtr,
      lifnr    TYPE elifn,
      kunnr   TYPE ekunn,
      xblnr   TYPE xblnr1,
      charg   TYPE charg_d,
      END  OF ty_shkzg.
TYPES:BEGIN OF ty_shkzg1,
      mblnr   TYPE mblnr,
      matnr   TYPE matnr,
      budat   TYPE budat,
      shkzg   TYPE shkzg,
      s_menge TYPE menge_d,
      h_menge TYPE menge_d,
      s_dmbtr TYPE dmbtr,
      h_dmbtr TYPE dmbtr,
      lifnr   TYPE elifn,
      kunnr   TYPE ekunn,
      xblnr   TYPE xblnr1,
      charg   TYPE charg_d,
      bwart   TYPE bwart,
      ebeln   TYPE ebeln,
      ebelp   TYPE ebelp,
      lgort   TYPE lgort_d,
      umwrk   TYPE umwrk,
      END OF ty_shkzg1.
TYPES:BEGIN OF ty_makt,
      matnr    TYPE matnr,
      maktx   TYPE maktx,
      END OF ty_makt.
TYPES:BEGIN  OF ty_c_shkzg,
      mblnr   TYPE mblnr,
      matnr   TYPE matnr,
      budat   TYPE budat,
      shkzg    TYPE shkzg,
      s_menge TYPE menge_d,
      h_menge TYPE menge_d,
      s_dmbtr TYPE dmbtr,
      h_dmbtr  TYPE dmbtr,
      lifnr   TYPE elifn,
      kunnr   TYPE ekunn,
      xblnr   TYPE xblnr1,
      charg    TYPE charg_d,
      END OF ty_c_shkzg.
TYPES:BEGIN OF  ty_final,
      mblnr   TYPE mblnr,
      matnr   TYPE matnr,
      budat   TYPE budat,
      shkzg   TYPE  shkzg,
      s_menge TYPE menge_d,
      h_menge TYPE menge_d,
      s_dmbtr TYPE dmbtr,
      h_dmbtr TYPE  dmbtr,
      lifnr   TYPE elifn,
      kunnr   TYPE ekunn,
      xblnr   TYPE xblnr1,
      charg    TYPE charg_d,
      balance TYPE menge_d,
      balancev TYPE menge_d,
      open    TYPE menge_d,
      openv    TYPE menge_d,
      mb_open TYPE p DECIMALS 3,
      hsdat   TYPE  hsdat,
      END OF ty_final.
TYPES:BEGIN OF ty_f_shkzg,
      mblnr    TYPE mblnr,        "Material Document
      matnr   TYPE matnr,        "Material Number
      budat    TYPE budat,        "Posting Date
      kbetr   TYPE kbetr,        "MRP Rate
      lifnr   TYPE  elifn,        "Vendor Number
      kunnr   TYPE ekunn,        "Customer Number
      xblnr   TYPE  xblnr1,       "Reference Document Number
      open    TYPE menge_d,      "Opening Stock
      s_menge  TYPE menge_d,      "Reciept Stock
      h_menge TYPE menge_d,      "Issue Stock
      balance  TYPE menge_d,      "Closing Stock
      charg   TYPE charg_d,      "Batch Number
      hsdat   TYPE  hsdat,        "Manufaturing Period
      bwart   TYPE bwart,        "Movement type
      ebeln    TYPE ebeln,        "Purchase order No
      ebelp   TYPE ebelp,        "Purchase order Line item
      lgort    TYPE lgort_d,      "Storage Location
      s_dmbtr TYPE dmbtr,
      h_dmbtr TYPE dmbtr,
      balancev  TYPE dmbtr,
      openv    TYPE dmbtr,
      umwrk   TYPE umwrk,
      vbeln   type VBELN_VF,
      END  OF ty_f_shkzg.
*TYPES:BEGIN OF ty_f_shkzg,
     mblnr   TYPE mblnr,        "Material Document
     matnr   TYPE matnr,        "Material Number
     budat   TYPE budat,        "Posting Date
     kbetr   TYPE kbetr,        "MRP Rate
     lifnr   TYPE elifn,        "Vendor Number
     kunnr   TYPE ekunn,        "Customer Number
     xblnr   TYPE xblnr1,       "Reference Document Number
     open    TYPE p DECIMALS 2,      "Opening Stock
     s_menge TYPE p DECIMALS 2,      "Reciept Stock
     h_menge TYPE p DECIMALS 2,      "Issue Stock
     balance TYPE p DECIMALS 2,      "Closing Stock
     charg   TYPE charg_d,      "Batch Number
     hsdat   TYPE hsdat,        "Manufaturing Period
     bwart   TYPE bwart,        "Movement type
     ebeln   TYPE ebeln,        "Purchase order No
     ebelp   TYPE ebelp,        "Purchase order Line item
     lgort   TYPE lgort_d,      "Storage Location
     s_dmbtr TYPE dmbtr,
     h_dmbtr TYPE dmbtr,
     balancev TYPE dmbtr,
     openv    TYPE dmbtr,
     umwrk   TYPE umwrk,
     END OF ty_f_shkzg.
TYPES:BEGIN OF ty_f_shkzg_l,
      mblnr   TYPE mblnr,        "Material Document
      matnr    TYPE matnr,        "Material Number
      budat   TYPE budat,        "Posting Date
      kbetr    TYPE kbetr,        "MRP Rate
      lifnr   TYPE elifn,        "Vendor Number
      kunnr    TYPE ekunn,        "Customer Number
      xblnr   TYPE xblnr1,       "Reference Document Number
       open    TYPE menge_d,      "Opening Stock
      s_menge TYPE menge_d,      "Reciept Stock
      h_menge TYPE menge_d,      "Issue Stock
      balance TYPE menge_d,      "Closing Stock
      charg    TYPE charg_d,      "Batch Number
      hsdat   TYPE hsdat,        "Manufaturing Period
      bwart    TYPE bwart,        "Movement type
      ebeln   TYPE ebeln,        "Purchase order No
      ebelp    TYPE ebelp,        "Purchase order Line item
      lgort   TYPE lgort_d,      "Storage Location
      s_dmbtr  TYPE dmbtr,
      h_dmbtr TYPE dmbtr,
      balancev TYPE dmbtr,
      openv    TYPE dmbtr,
      reswk     TYPE reswk,
      werks    TYPE werks_d,      "Plant
      k_name1(40) TYPE  c,        "Customer Name
      l_name1(40) TYPE c,         "Vendor Name
      p_name1(40) TYPE c,        "Plant Name
      m_name1( 90) TYPE c,        "Material Description
      s_name1(40) TYPE  c,
      vbeln   type VBELN_VF,
      END OF ty_f_shkzg_l.
*TYPES:BEGIN OF ty_f_shkzg_l,
     mblnr   TYPE mblnr,        "Material Document
     matnr   TYPE matnr,        "Material Number
     budat   TYPE budat,        "Posting Date
     kbetr   TYPE kbetr,        "MRP Rate
     lifnr   TYPE elifn,        "Vendor Number
     kunnr   TYPE ekunn,        "Customer Number
     xblnr   TYPE xblnr1,       "Reference Document Number
     open    TYPE p DECIMALS 2,      "Opening Stock
     s_menge TYPE p DECIMALS 2,      "Reciept Stock
     h_menge TYPE p DECIMALS 2,      "Issue Stock
     balance TYPE p DECIMALS 2,      "Closing Stock
     charg   TYPE charg_d,      "Batch Number
     hsdat   TYPE hsdat,        "Manufaturing Period
     bwart   TYPE bwart,        "Movement type
     ebeln   TYPE ebeln,        "Purchase order No
     ebelp   TYPE ebelp,        "Purchase order Line item
     lgort   TYPE lgort_d,      "Storage Location
     s_dmbtr TYPE dmbtr,
     h_dmbtr TYPE dmbtr,
     balancev TYPE dmbtr,
     openv    TYPE dmbtr,
     reswk    TYPE reswk,
     werks    TYPE werks_d,      "Plant
     k_name1(40) TYPE c,        "Customer Name
     l_name1(40) TYPE c,        "Vendor Name
     p_name1(40) TYPE c,        "Plant Name
     m_name1(90) TYPE c,        "Material Description
     s_name1(40) TYPE c,
     END OF ty_f_shkzg_l.
TYPES:BEGIN OF ty_kna1,
      kunnr TYPE  kunnr,
      name1 TYPE ad_name1,
      city1 TYPE ad_city1,
      END OF ty_kna1.
TYPES:BEGIN OF ty_lfa1,
      lifnr TYPE lifnr,
      name1 TYPE ad_name1,
      city1  TYPE ad_city1,
      END OF ty_lfa1.
TYPES:BEGIN OF ty_werks,
      werks  TYPE werks_d,
      name1 TYPE ad_name1,
      city1 TYPE ad_city1,
      END OF  ty_werks.
TYPES:BEGIN OF ty_reswk,
      werks TYPE werks_d,
      name1 TYPE  ad_name1,
      city1 TYPE ad_city1,
      END OF ty_reswk.
TYPES:BEGIN  OF ty_a974,
      kschl TYPE kscha,
      matnr TYPE matnr,
      charg TYPE charg_d,
      datbi  TYPE kodatbi,
      datab TYPE kodatab,
      knumh TYPE knumh,
      kbetr TYPE kbetr,
      END  OF ty_a974.
TYPES:BEGIN OF ty_a926,
      kappl TYPE  kappl,
      kschl  TYPE  kscha,
      matnr TYPE  matnr,
      datbi TYPE  kodatbi,
      datab TYPE  kodatab,
      knumh  TYPE  knumh,
      kbetr TYPE kbetr,
      END OF ty_a926.
TYPES: BEGIN OF ty_konv,
      matnr TYPE matnr,
      knumh TYPE knumh,
      kbetr TYPE kbetr,
       END OF ty_konv.
TYPES:BEGIN OF ty_mch1,
      matnr  TYPE matnr,
      charg TYPE charg_d,
      hsdat TYPE hsdat,
      END OF ty_mch1.
TYPES:BEGIN OF ty_ekko,
      ebeln TYPE ebeln,
      ebelp TYPE ebelp,
      werks  TYPE werks_d,
      reswk TYPE reswk,
      END OF ty_ekko.
TYPES:BEGIN  OF ty_bkpf,
      bukrs TYPE bukrs,
      belnr TYPE belnr_d,
      gjahr TYPE gjahr,
      budat  TYPE budat,
      xblnr TYPE xblnr1,
      bktxt TYPE bktxt,
      tcode TYPE tcode,
      matnr  TYPE matnr,
      dmbtr TYPE dmbtr,
      END OF ty_bkpf.
TYPES:BEGIN  OF ty_bseg,
      bukrs TYPE bukrs,
      belnr TYPE belnr_d,
      gjahr TYPE gjahr,
      budat  TYPE budat,
      matnr TYPE matnr,
      werks TYPE werks,
      dmbtr TYPE dmbtr,
      END  OF ty_bseg.
TYPES : begin of ty_vbrp,
       vbeln type VBELN_VF,
        vgbel( 16) type c ,
        matnr type matnr,
       end of ty_vbrp.
DATA:  wa_shkzg     TYPE   ty_shkzg,
       wa_shkzg1    TYPE   ty_shkzg1,
       wa_c_shkzg   TYPE    ty_c_shkzg,
       wa_final     TYPE   ty_final,
       wa_f_shkzg   TYPE   ty_f_shkzg,
       wa_f_shkzg_l TYPE   ty_f_shkzg_l,
       wa_fgl       TYPE   ty_fgl,
       wa_fglc      TYPE   ty_fgl,
       wa_fgl1      TYPE   ty_fgl1,
       wa_a974       TYPE   ty_a974,
       wa_a926      TYPE   ty_a926,
       wa_konv      TYPE   ty_konv,
       wa_mch1      TYPE   ty_mch1,
       wa_kna1      TYPE   ty_kna1,
       wa_lfa1      TYPE   ty_lfa1,
       wa_werks     TYPE   ty_werks,
       wa_reswk      TYPE   ty_reswk,
       wa_makt      TYPE   ty_makt,
       wa_bkpf      TYPE   ty_bkpf,
       wa_bseg      TYPE   ty_bseg,
       wa_bsim      TYPE   ty_bsim,
       wa_ekko      TYPE   ty_ekko,
       wa_vbrp      type   ty_vbrp.
DATA:  it_fgl       TYPE STANDARD TABLE OF ty_fgl       INITIAL  SIZE 0,
       it_fglc      TYPE STANDARD TABLE OF ty_fgl        INITIAL SIZE 0,
       it_fgl1      TYPE STANDARD TABLE  OF ty_fgl1      INITIAL SIZE 0,
       it_shkzg     TYPE STANDARD  TABLE OF ty_shkzg     INITIAL SIZE 0,
       it_shkzg1    TYPE  STANDARD TABLE OF ty_shkzg1    INITIAL SIZE 0,
       it_c_shkzg    TYPE STANDARD TABLE OF ty_c_shkzg   INITIAL SIZE 0,
       it_final     TYPE STANDARD TABLE OF ty_final     INITIAL SIZE  0,
       it_f_shkzg   TYPE STANDARD TABLE OF ty_f_shkzg    INITIAL SIZE 0,
       it_f_shkzg_l TYPE STANDARD TABLE  OF ty_f_shkzg_l INITIAL SIZE 0,
       it_a974      TYPE STANDARD  TABLE OF ty_a974      INITIAL SIZE 0,
       it_a926      TYPE  STANDARD TABLE OF ty_a926      INITIAL SIZE 0,
       it_konv       TYPE STANDARD TABLE OF ty_konv      INITIAL SIZE 0,
       it_mch1      TYPE STANDARD TABLE OF ty_mch1      INITIAL SIZE  0,
       it_kna1      TYPE STANDARD TABLE OF ty_kna1       INITIAL SIZE 0,
       it_lfa1      TYPE STANDARD TABLE  OF ty_lfa1      INITIAL SIZE 0,
       it_werks     TYPE STANDARD  TABLE OF ty_werks     INITIAL SIZE 0,
       it_reswk     TYPE  STANDARD TABLE OF ty_reswk     INITIAL SIZE 0,
       it_makt       TYPE STANDARD TABLE OF ty_makt      INITIAL SIZE 0,
       it_bkpf      TYPE STANDARD TABLE OF ty_bkpf      INITIAL SIZE  0,
       it_bseg      TYPE STANDARD TABLE OF ty_bseg       INITIAL SIZE 0,
       it_ekko      TYPE STANDARD TABLE  OF ty_ekko      INITIAL SIZE 0,
       it_bsim      TYPE STANDARD  TABLE OF ty_bsim      INITIAL SIZE 0,
       it_vbrp      TYPE  STANDARD TABLE OF ty_vbrp      INITIAL SIZE 0.
*DATA: BEGIN OF bestand OCCURS 100,
       bwkey           LIKE   mbew-bwkey,
       werks           LIKE   mseg-werks,
       matnr           LIKE   mseg-matnr,
       charg           LIKE   mseg-charg,
       endmenge(09)    TYPE   p DECIMALS 3,
       anfmenge(09)    TYPE   p DECIMALS 3,
       meins           LIKE   mara-meins,
       endwert(09)     TYPE   p    DECIMALS 2,
       anfwert(09)     TYPE   p    DECIMALS 2,
       soll(09)        TYPE   p    DECIMALS 3,
       haben(09)       TYPE   p    DECIMALS 3,
       sollwert(09)    TYPE   p    DECIMALS 2,
       habenwert(09)   TYPE   p    DECIMALS 2,
       waers           LIKE        t001-waers,
     END OF bestand.
DATA:temp1    TYPE menge_d,
      temp2   TYPE dmbtr,
      c       TYPE  i,
      count   TYPE i,
      temp    TYPE menge_d,
      tempv    TYPE dmbtr,
      tgjahr  TYPE gjahr.
*For ALV
DATA: gt_fld TYPE slis_t_fieldcat_alv,
      gt_ev TYPE slis_t_event,
      gt_hdr TYPE slis_t_listheader,
      gt_sort TYPE slis_t_sortinfo_alv.
DATA: wa_fld TYPE slis_fieldcat_alv,
      wa_ev TYPE slis_alv_event,
      wa_hdr TYPE slis_listheader,
      wa_sort  TYPE slis_sortinfo_alv,
      wa_layout TYPE slis_layout_alv.
DATA: mtrl LIKE sy-repid,
      title  LIKE sy-title,
      l_matnr LIKE mara-matnr.
DEFINE fld.
  wa_fld-fieldname = & 1.
  wa_fld-tabname = &2.
  wa_fld-outputlen = &3.
  wa_fld-seltext_l = &4.
  wa_fld-seltext_m = & 5.
  wa_fld-seltext_s = &6.
  wa_fld-col_pos = &7.
  wa_fld-fix_column = &8.
  wa_fld-do_sum = & 9.
  append wa_fld to gt_fld.
  clear wa_fld.
END-OF- DEFINITION.
DATA:strtdte TYPE sy-datum.
DATA:strt1dte LIKE mkpf-budat.
RANGES : l_ra_datum FOR mkpf-budat.
CONSTANTS: c_top TYPE slis_formname VALUE 'TOP_OF_PAGE' ,
           c_user_command            TYPE  slis_formname  VALUE 'USER_COMMAND'.
SELECTION-SCREEN  BEGIN OF BLOCK b1 WITH FRAME TITLE  text-001.
SELECT-OPTIONS:matnr FOR mara-matnr." OBLIGATORY.
PARAMETERS :werks LIKE marc-werks OBLIGATORY.
*PARAMETERS:lgort LIKE mseg-lgort.
SELECT-OPTIONS:datum FOR mkpf-budat. " DEFAULT '20060831'.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON matnr.
  IF matnr-low IS INITIAL.
     MESSAGE 'Please Enter the Material Number' TYPE 'E'.
    SET CURSOR  FIELD matnr-low.
  ENDIF.
SELECT matnr
        INTO  (l_matnr)
        FROM mara
        FOR ALL ENTRIES IN matnr
        WHERE matnr = matnr-low.
ENDSELECT.
  IF sy-subrc =  0.
    SELECT matnr
           INTO  (l_matnr)
           FROM mara
            FOR ALL ENTRIES IN matnr
           WHERE matnr = matnr-low
           AND mtart =  'FERT'.
    ENDSELECT.
    IF sy-subrc NE 0.
      MESSAGE  'Please Enter Finished goods Material' TYPE 'E'.
    ENDIF.
  ELSEIF sy-subrc  NE 0.
    MESSAGE 'Material Number Does Not Exists nor Activated' TYPE 'E' .
    SET CURSOR FIELD matnr-low.
  ENDIF.
INITIALIZATION.
  mtrl = sy-repid.
  title = sy-title.
LOOP AT DATUM.
STRTDTE = DATUM-LOW.
DATUM-LOW = '31.08.2006'.
MODIFY DATUM FROM DATUM.
ENDLOOP.
*BREAK-POINT.
START-OF-SELECTION.
  PERFORM select_data_from_mkpf_mseg.
  PERFORM select_data_from_a974.
  PERFORM  select_data_from_a926.
  PERFORM select_data_from_konv.
  PERFORM select_data_from_mch1.
  PERFORM retrive_open_stock.
  PERFORM data_cal_format.
  perform data_vbrp.
  PERFORM data_cal_final.
END -OF-SELECTION.
*BUILDING FIELD CATALOG
  PERFORM build_fieldcat.
*BUILD EVENT
   PERFORM build_event.
*BUILD LISTHEADER
  PERFORM build_listheader.
*SORTING THE FIELDCAT DISPLAY
   PERFORM sort_fieldcat.
*FIELDCAT LAYOUT BUILD
  PERFORM build_layout.
*ALV GRID DISPLAY
  PERFORM  grid_display.
*&      Form  select_data_from_mkpf_mseg
Select data from MKPF and MSEG tables based on the selection parameters
-->  p1        text
<--  p2        text
FORM select_data_from_mkpf_mseg .
  DATA:tempvar TYPE p DECIMALS 3.
  LOOP AT datum INTO  l_ra_datum.
   if  not l_ra_matnr-low     is initial  and
           l_ra_matnr-sign    =  'I'      and
           l_ra_matnr-option  =  'EQ'     and
           l_ra_matnr-high    is initial.
    strtdte = datum-high.
    l_ra_datum-option  =   'BT'.
    l_ra_datum-low = '20060831'.
    l_ra_datum-high = datum-high.
    APPEND  l_ra_datum.
   endif.
    CLEAR l_ra_datum.
  ENDLOOP.
  strt1dte = '20060831'.
  SELECT   a~mblnr
          a~vgart
          a~blart
          a~bldat
          a~budat
          a~aedat
          a~xblnr
          a~bktxt
          a~tcode2
          b~matnr
          b~charg
          b~werks
          b~bwart
          b~lgort
          b~lifnr
          b~kunnr
          b~shkzg
          b~menge
          b~ebeln
          b~ebelp
          b~umwrk
          b~xauto
          b~dmbtr
          b~umcha
          INTO CORRESPONDING FIELDS OF TABLE it_fgl
           FROM mkpf AS a
          INNER JOIN mseg AS b ON a~mblnr = b~mblnr
          WHERE  b~matnr IN matnr
          AND b~werks EQ werks
         AND b~lgort EQ lgort
           AND a~budat IN l_ra_datum
          AND b~bwart NOT IN ('321', '343','344','651').
         and xauto ne 'X'.
  IF sy-subrc  NE 0.
    MESSAGE 'Data does not exists for the entered selection criteria' TYPE  'I'.
    LEAVE LIST-PROCESSING.
  ENDIF.
  it_fglc[] = it_fgl[].
  CLEAR wa_fgl.
   CLEAR wa_fglc.
  LOOP AT it_fgl INTO wa_fgl WHERE bwart = '101'  AND dmbtr EQ space.
    READ TABLE it_fglc INTO wa_fglc WITH  KEY bwart = '641' xauto = 'X' ebeln = wa_fgl-ebeln ebelp = wa_fgl-ebelp. "umcha = wa_fgl-charg.
    IF sy-subrc = 0.
      IF wa_fgl-menge NE wa_fglc-menge.
        tempvar = wa_fglc-dmbtr / wa_fglc-menge.
        wa_fgl-dmbtr = wa_fgl-menge * tempvar.
      ELSE.
        wa_fgl-dmbtr = wa_fglc-dmbtr.
      ENDIF.
    ELSE.
       READ TABLE it_fglc INTO wa_fglc WITH KEY bwart = '643'   xauto = 'X' ebeln = wa_fgl-ebeln ebelp = wa_fgl-ebelp. "umcha = wa_fgl-charg.
      IF sy-subrc = 0 .
        IF wa_fgl-menge NE wa_fglc-menge.
          tempvar = wa_fglc-dmbtr / wa_fglc-menge.
          wa_fgl-dmbtr = wa_fgl-menge * tempvar.
         ELSE.
          wa_fgl-dmbtr = wa_fglc-dmbtr.
        ENDIF.
      ENDIF.
    ENDIF.
    MODIFY  it_fgl FROM wa_fgl.
    CLEAR wa_fgl.
    CLEAR wa_fglc.
  ENDLOOP.
  LOOP  AT it_fgl INTO wa_fgl WHERE bwart = '102' AND dmbtr  EQ space.
    READ TABLE it_fglc INTO wa_fglc WITH KEY bwart =  '642' xauto = 'X' ebeln = wa_fgl-ebeln ebelp = wa_fgl-ebelp. "umcha = wa_fgl-charg.
    IF sy-subrc =  0.
      IF wa_fgl-menge NE wa_fglc-menge.
        tempvar = wa_fglc-dmbtr / wa_fglc-menge.
        wa_fgl-dmbtr = wa_fgl-menge * tempvar.
       ELSE.
        wa_fgl-dmbtr = wa_fglc-dmbtr.
      ENDIF.
    ELSE.
      READ TABLE it_fglc  INTO wa_fglc WITH KEY bwart = '644'  xauto = 'X' ebeln = wa_fgl-ebeln ebelp = wa_fgl-ebelp.  "umcha = wa_fgl-charg.
      IF sy-subrc = 0.
        IF wa_fgl-menge NE wa_fglc-menge.
          tempvar = wa_fglc-dmbtr / wa_fglc-menge.
          wa_fgl-dmbtr = wa_fgl-menge * tempvar.
        ELSE.
          wa_fgl-dmbtr = wa_fglc-dmbtr.
         ENDIF.
      ENDIF.
    ENDIF.
    MODIFY it_fgl FROM wa_fgl.
    CLEAR  wa_fgl.
    CLEAR wa_fglc.
  ENDLOOP.
*DELETE it_fgl WHERE bwart EQ '101' AND DMBTR EQ space.
*DELETE it_fgl WHERE bwart EQ '102' AND DMBTR EQ space.
  SORT it_fgl BY matnr budat.
  DELETE it_fgl WHERE  bwart EQ '641' AND xauto EQ 'X'.
  DELETE  it_fgl WHERE bwart EQ '642' AND xauto EQ 'X' .
  DELETE it_fgl WHERE bwart EQ '643' AND xauto  EQ 'X'.
  DELETE it_fgl WHERE bwart EQ '644'  AND xauto EQ 'X'.
  SELECT matnr
         bwkey
         belnr
         gjahr
         buzei
         buzid
         shkzg
         dmbtr
         budat
         blart
         FROM bsim
         INTO CORRESPONDING FIELDS  OF TABLE it_bsim
         FOR ALL ENTRIES IN it_fgl
         WHERE matnr  EQ it_fgl-matnr
         AND bwkey EQ werks
         AND budat IN l_ra_datum  "EQ it_fgl-budat
         AND blart EQ 'PR'.
  LOOP AT  it_bsim INTO wa_bsim.
    wa_fgl-mblnr = wa_bsim-belnr.
    wa_fgl-matnr = wa_bsim-matnr.
    wa_fgl-bwart = 'PRC'.
    wa_fgl-shkzg = wa_bsim-shkzg.
    wa_fgl-budat = wa_bsim-budat.
    wa_fgl-dmbtr = wa_bsim-dmbtr.
    APPEND wa_fgl TO it_fgl.
    CLEAR wa_fgl.
     CLEAR wa_bsim.
  ENDLOOP.
  SORT it_fgl BY matnr budat.
  it_fglc[] = it_fgl[].
   LOOP AT it_fgl INTO wa_fgl."WHERE tcode2 NE 'MIGO_GR'.
    wa_shkzg-matnr = wa_fgl-matnr.
    wa_shkzg-budat = wa_fgl-budat.
    wa_shkzg1-matnr = wa_fgl-matnr.
    wa_shkzg1-budat = wa_fgl-budat.
    wa_shkzg1-charg = wa_fgl-charg.
    wa_shkzg1-ebeln = wa_fgl-ebeln.
    wa_shkzg1-ebelp = wa_fgl-ebelp.
    wa_shkzg1-lgort = wa_fgl-lgort.
    wa_shkzg1-umwrk = wa_fgl-umwrk.
    IF wa_fgl-shkzg = 'S'.
      wa_shkzg1-s_menge = wa_fgl-menge.
      wa_shkzg-s_menge = wa_fgl-menge.
      wa_shkzg1-s_dmbtr = wa_fgl-dmbtr.
      wa_shkzg-s_dmbtr = wa_fgl-dmbtr.
    ELSEIF wa_fgl-shkzg = 'H'.
      wa_shkzg1-h_menge = wa_fgl-menge.
      wa_shkzg-h_menge = wa_fgl-menge.
      wa_shkzg1-h_dmbtr = wa_fgl-dmbtr.
      wa_shkzg-h_dmbtr = wa_fgl-dmbtr.
    ENDIF.
    wa_fgl1-mblnr = wa_fgl-mblnr.
    wa_fgl1-lifnr = wa_fgl-lifnr.
    wa_fgl1-kunnr = wa_fgl-kunnr.
    wa_fgl1-xblnr = wa_fgl-xblnr.
    wa_fgl1-bwart = wa_fgl-bwart.
    wa_fgl1-ebeln = wa_fgl-ebeln.
    wa_fgl1-ebelp = wa_fgl-ebelp.
    wa_fgl1-umwrk = wa_fgl-umwrk.
    APPEND wa_fgl1 TO it_fgl1.
    APPEND wa_shkzg TO it_shkzg.
    APPEND  wa_shkzg1 TO it_shkzg1.
    CLEAR wa_shkzg.
    CLEAR wa_shkzg1.
    CLEAR wa_fgl1.
     clear wa_fgl.
  ENDLOOP.
  LOOP AT it_shkzg INTO wa_shkzg.
    COLLECT  wa_shkzg INTO it_c_shkzg.
  ENDLOOP.
ENDFORM.                    " select_data_from_mkpf_mseg
*&      Form  select_data_from_a974
      text
-->  p1        text
<--  p2        text
FORM select_data_from_a974 .
   SELECT  kschl
          matnr
          charg
          datbi
          datab
          knumh
             FROM a974
           INTO CORRESPONDING  FIELDS OF TABLE it_a974
           FOR ALL ENTRIES IN it_fgl
           WHERE  matnr EQ it_fgl-matnr
           AND charg EQ it_fgl-charg
            AND  kschl  EQ 'ZMRP'.
ENDFORM.                    " select_data_from_a974
*&      Form  select_data_from_a926
Select KNUMH from a926 table
-->  p1        text
<--  p2        text
FORM select_data_from_a926 .
  SELECT matnr
         knumh
         datbi
         datab
         FROM a953
         INTO CORRESPONDING  FIELDS OF TABLE it_a926
         FOR ALL ENTRIES IN it_fgl
          WHERE  matnr EQ it_fgl-matnr
         AND  kschl  EQ 'ZMRP'.
ENDFORM .                    " select_data_from_a926
*&      Form  select_data_from_konv
select KBETR from table KONV for fetching MRP rate of Material
-->  p1        text
<--  p2        text
FORM select_data_from_konv .
  SELECT knumh
         kbetr
         FROM konp
         INTO  CORRESPONDING FIELDS OF TABLE it_konv
         FOR ALL ENTRIES  IN it_a974
         WHERE knumh = it_a974-knumh.
  SELECT   knumh
           kbetr
           FROM konp
            INTO CORRESPONDING FIELDS OF TABLE it_konv
           FOR ALL  ENTRIES IN it_a926
           WHERE knumh = it_a926-knumh.
  LOOP AT it_a974 INTO  wa_a974.
    READ TABLE it_konv INTO wa_konv WITH KEY knumh = wa_a974-knumh.
    wa_a974-kbetr = wa_konv-kbetr.
    MODIFY it_a974 FROM wa_a974 TRANSPORTING kbetr.
    CLEAR wa_a974.
  ENDLOOP .
  LOOP AT it_a926 INTO wa_a926.
    READ TABLE it_konv  INTO wa_konv WITH KEY knumh = wa_a926-knumh.
    wa_a926-kbetr = wa_konv-kbetr.
    MODIFY it_a926 FROM  wa_a926 TRANSPORTING kbetr.
    CLEAR wa_a926.
  ENDLOOP.
ENDFORM.                     " select_data_from_konv
*&      Form  select_data_from_mch1
      text
-->  p1        text
<--  p2        text
FORM select_data_from_mch1 .
  SELECT
       matnr
       charg
       hsdat
       FROM mch1
        INTO TABLE it_mch1
       FOR ALL ENTRIES IN it_fgl
       WHERE matnr = it_fgl-matnr
       AND charg = it_fgl-charg.
ENDFORM.                    " select_data_from_mch1
*&      Form  retrive_open_stock
      text
-->  p1        text
<--  p2        text
FORM retrive_open_stock .
  it_final[] = it_c_shkzg[].
SORT it_final BY matnr budat.
LOOP AT it_final INTO wa_final.
   ON CHANGE OF wa_final-matnr.
     wa_mb5b-matnr = wa_final-matnr.
     wa_mb5b-budat = wa_final-budat.
     APPEND wa_mb5b TO it_mb5b.
     CLEAR wa_mb5b.
     CLEAR wa_final.
   ENDON.
ENDLOOP.
LOOP AT it_mb5b INTO wa_mb5b.
   SUBMIT zmm_stlg_rm07mlbd
         EXPORTING LIST TO MEMORY WITH matnr EQ wa_mb5b-matnr
         WITH werks EQ werks
         WITH datum = wa_mb5b-budat
         WITH bwbst = 'X' AND RETURN.
   IMPORT bestand FROM MEMORY ID 'stockledger2'.
   LOOP AT bestand.
     wa_mb5b-mb_open = bestand-anfmenge.
     MODIFY it_mb5b FROM wa_mb5b TRANSPORTING mb_open.
   ENDLOOP.
   DELETE FROM MEMORY ID 'stockledger2'.
ENDLOOP.
  LOOP AT it_final INTO  wa_final.
    wa_final-open    = temp.
    wa_final-balance = wa_final-s_menge - wa_final-h_menge.
    temp  = wa_final-balance.
    wa_final-openv    = tempv.
    wa_final-balancev = wa_final-s_dmbtr - wa_final-h_dmbtr.
    tempv  = wa_final-balancev.
    MODIFY it_final FROM wa_final TRANSPORTING balance open.
   ENDLOOP.
ENDFORM.                    " retrive_open_stock
*&      Form  data_cal_format
      text
-->  p1        text
<--  p2        text
FORM data_cal_format .
  CLEAR wa_final.
  CLEAR  wa_shkzg.
  CLEAR wa_shkzg1.
  LOOP AT it_shkzg1 INTO wa_shkzg1.
    c  = c + 1.
    READ TABLE it_fgl1 INTO wa_fgl1 INDEX  c .
    wa_shkzg1-mblnr = wa_fgl1-mblnr.
    wa_shkzg1-lifnr = wa_fgl1-lifnr.
    wa_shkzg1-kunnr = wa_fgl1-kunnr.
    wa_shkzg1-xblnr = wa_fgl1-xblnr.
    wa_shkzg1-bwart = wa_fgl1-bwart.
    wa_shkzg1-ebeln = wa_fgl1-ebeln.
    wa_shkzg1-ebelp = wa_fgl1-ebelp.
    wa_shkzg1-umwrk = wa_fgl1-umwrk.
    MODIFY  it_shkzg1 FROM wa_shkzg1.
     CLEAR wa_shkzg1.
  ENDLOOP.
  LOOP AT it_final INTO wa_final.
     ON CHANGE OF wa_final-matnr.
      clear temp1.
      clear temp2.
       READ TABLE it_mb5b INTO wa_mb5b WITH KEY matnr = wa_final-matnr budat = wa_final-budat.
      temp1 = wa_mb5b-mb_open.
    ENDON.
    wa_f_shkzg-open = temp1.
    wa_f_shkzg-openv = temp2.
    count =  count + 1.
    LOOP AT it_shkzg1 INTO wa_shkzg1 WHERE matnr  EQ wa_final-matnr AND budat EQ wa_final-budat.
      wa_f_shkzg-matnr = wa_shkzg1-matnr.
      wa_f_shkzg-budat = wa_shkzg1-budat.
      wa_f_shkzg-charg = wa_shkzg1-charg.
      wa_f_shkzg-mblnr = wa_shkzg1-mblnr.
      wa_f_shkzg-lgort = wa_shkzg1-lgort.
      wa_f_shkzg-lifnr = wa_shkzg1-lifnr.
      wa_f_shkzg-kunnr = wa_shkzg1-kunnr.
      wa_f_shkzg-xblnr = wa_shkzg1-xblnr.
      wa_f_shkzg-bwart = wa_shkzg1-bwart.
      wa_f_shkzg-ebeln = wa_shkzg1-ebeln.
      wa_f_shkzg-ebelp = wa_shkzg1-ebelp.
      wa_f_shkzg-s_menge = wa_shkzg1-s_menge.
      wa_f_shkzg-h_menge = wa_shkzg1-h_menge.
      wa_f_shkzg-s_dmbtr = wa_shkzg1-s_dmbtr.
      wa_f_shkzg-h_dmbtr = wa_shkzg1-h_dmbtr.
      wa_f_shkzg-umwrk = wa_shkzg1-umwrk.
      APPEND wa_f_shkzg  TO it_f_shkzg.
      CLEAR wa_f_shkzg.
      CLEAR wa_shkzg.
      CLEAR wa_shkzg1.
    ENDLOOP .
    wa_f_shkzg-budat = wa_final-budat.
    wa_f_shkzg-s_menge = wa_final-s_menge.
    wa_f_shkzg-h_menge = wa_final-h_menge.
    wa_f_shkzg-balance = ( ( temp1 + wa_final-s_menge ) - wa_final-h_menge ).
    wa_f_shkzg-open = temp1.
    temp1 = wa_f_shkzg-balance.
    wa_f_shkzg-s_dmbtr = wa_final-s_dmbtr.
    wa_f_shkzg-h_dmbtr = wa_final-h_dmbtr.
    wa_f_shkzg-balancev = ( ( temp2 + wa_final-s_dmbtr ) - wa_final-h_dmbtr ).
    wa_f_shkzg-openv = temp2.
    temp2 = wa_f_shkzg-balancev.
    APPEND wa_f_shkzg TO it_f_shkzg.
    CLEAR wa_final.
    CLEAR wa_f_shkzg.
  ENDLOOP.
  LOOP AT it_f_shkzg INTO wa_f_shkzg.
    READ TABLE it_a974 INTO wa_a974 WITH KEY matnr = wa_f_shkzg-matnr charg = wa_f_shkzg-charg.
    IF wa_f_shkzg-budat BETWEEN wa_a974-datab AND wa_a974-datbi.
      wa_f_shkzg-kbetr = wa_a974-kbetr.
    ENDIF .
    IF wa_a974-kbetr IS INITIAL.
      READ TABLE it_a926  INTO wa_a926 WITH KEY matnr = wa_f_shkzg-matnr.
      IF wa_f_shkzg-budat BETWEEN wa_a926-datab  AND wa_a926-datbi.
        wa_f_shkzg-kbetr = wa_a926-kbetr.
      ENDIF.
    ENDIF.
    MODIFY it_f_shkzg  FROM wa_f_shkzg TRANSPORTING kbetr.
    CLEAR wa_f_shkzg.
    CLEAR wa_a974.
    clear wa_a926.
  ENDLOOP.
  LOOP AT it_f_shkzg INTO wa_f_shkzg.
    READ  TABLE it_mch1 INTO wa_mch1 WITH KEY matnr = wa_f_shkzg-matnr charg = wa_f_shkzg-charg.
    wa_f_shkzg-hsdat = wa_mch1-hsdat.
    MODIFY it_f_shkzg FROM wa_f_shkzg TRANSPORTING hsdat matnr.
    CLEAR wa_f_shkzg.
     CLEAR wa_mch1.
  ENDLOOP.
ENDFORM.                    " data_cal_format
*&      Form  data_vbrp
      text
-->  p1        text
<--  p2        text
FORM data_vbrp .
  select vgbel
            vbeln
            into corresponding fields  of table it_vbrp
            from vbrp.
         for all entries in it_f_shkzg_l
         WHERE matnr EQ it_f_shkzg_l-matnr.
ENDFORM.                    " data_vbrp
*&      Form  data_cal_final
      text
-->  p1        text
<--  p2        text
FORM data_cal_final .
  DATA:enddate LIKE mkpf-budat.
  enddate = datum-low - 1.
  it_f_shkzg_l[] = it_f_shkzg[].
*loop at it_f_shkzg into wa_f_shkzg where budat le strtdte.
*move-corresponding wa_f_shkzg to wa_f_shkzg_l.
*append wa_f_shkzg_l to it_f_shkzg_l.
*clear wa_f_shkzg_l.
*endloop.
  DATA :k_name1( 40) TYPE c,
        l_name1(40) TYPE c,
        i_name1( 40) TYPE c,
        p_name1(40) TYPE c,
        p_city( 10)  TYPE c,
        t_name1(90) TYPE c.
  SELECT  a~reswk
         b~ebeln
         b~ebelp
         b~werks
         INTO CORRESPONDING FIELDS OF TABLE  it_ekko
         FROM ekko AS a
         INNER JOIN ekpo AS b ON a~ebeln = b~ebeln