Display total dmbtr according to mat type and month wise

Question

hi all,
i want to display total dmbtr according to mat type and month wise. like
month       mat.type  total_dmbtr
jan 2008   fert           xxxxxxxxxx
jan 2008   mcfe         yyyyyyyy
feb 2008  fert  mmmmm

Answer 1

this is my prog..but am gettin o/p for one month irrespective of material type..
tables : mseg, mkpf, mara, S031.
********************DECLARATION******************************************
types : begin of ty_mkpf,
        budat type budat,
        mblnr type mblnr,
        end of ty_mkpf.
TYPES : BEGIN OF TY_S031,
        WERKS TYPE werks_d,
        SPMON TYPE SPMON,
        matnr TYPE matnr,
        END OF TY_S031.
types : begin of ty_mseg,
        mblnr type mblnr,
        matnr type matnr,
        werks type werks_d,
        menge type menge_d,
        dmbtr type dmbtr,
        bwart type bwart,
        end of ty_mseg.
types : begin of ty_mara,
        matnr type matnr,
        mtart type mtart,
        end of ty_mara.
data : it_mkpf type ty_mkpf occurs 0 with header line,
       it_mseg type ty_mseg occurs 0 with header line,
       it_mara type ty_mara occurs 0 with header line,
       IT_S031 TYPE TY_S031 OCCURS 0 WITH HEADER LINE.
      it_final TYPE ty_final OCCURS 0 WITH HEADER LINE.
data : flag type dmbtr,
       flag1 type dmbtr ,
       flag3 type dmbtr ,
       flag4 type dmbtr,
       flag5 type dmbtr,
       flag6 type dmbtr,
       flag7 type dmbtr,
       f1 type i VALUE 0,
       num_of_loops TYPE i VALUE 0,
       flag2 TYPE spmon.
**********************************INITIALIZATION***************************
flag  = 0.
flag1 = 0.
flag3 = 0.
flag4 = 0.
flag5 = 0.
flag6 = 0.
flag7 = 0.
******************selection screen*****************************************
selection-screen begin of block b1 with frame title txt_001.
select-options : plant for S031-werks,
                 month for S031-SPMON.
                date for mkpf-budat. "+4(2).
                MONTH FOR MONTH_NAMES_GET.
selection-screen end of block b1.
flag2 = month-low.
f1 = month-high - month-low.
if month-high is initial.
  num_of_loops = 1.
else.
  num_of_loops =  f1 + 1.
endif.
start-of-selection.
  perform getdata1.
*&      Form  get_data
      text
form getdata1.
if month-high is INITIAL.
write : / 'for month  ' COLOR COL_GROUP, flag2 COLOR COL_GROUP.
  Select WERKS SpMON matnr from S031 into corresponding fields of table it_S031
  where SpMON = flag2 AND WERKS IN PLANT.
   loop at IT_S031.
     at first.
        write : /5 'mat_num', 20 'month', 40 'QTY',58'amt',68'movement_type', 85'mat_type'. ",105 'qty remaining'.
        skip.
     endat.
  select single mblnr werks matnr menge dmbtr bwart from mseg into corresponding fields of it_mseg
    where werks = IT_S031-werks and ( bwart = '102' or bwart = '101' or bwart = '601' or bwart = '602' )
      and matnr = it_s031-matnr.
    if it_mseg-bwart = '101'.
      flag = flag + it_mseg-dmbtr.
    elseif it_mseg-bwart = '102'.
      flag1 = flag1 + it_mseg-dmbtr.
    elseif it_mseg-bwart = '601'  .
      flag4 = flag4 + it_mseg-dmbtr.
    elseif it_mseg-bwart = '602'  .
      flag5 = flag5 + it_mseg-dmbtr.
    endif.
    flag3 = flag - flag1. "101-102
    flag6 = flag4 - flag5. "601-602
    select SINGLE matnr mtart from mara into corresponding fields of  it_mara
      where matnr = it_mseg-matnr. " and mtart = 'FERT' .
   loop at it_mara.
      write : / it_mara-matnr,20  IT_S031-SPMON, it_mseg-menge, it_mseg-dmbtr, 70 it_mseg-bwart, 88 it_mara-mtart.
      skip.
    endloop.
  endloop.
  skip 1.
  write : / 'TOTAL QTY RECVD (a = 101-102)      ' , flag3.
  write : / 'TOTAL QTY CONSUMED ( b = 601-602)  ' , flag6.
  flag7 = flag3 - flag6.
  write : / 'QTY REMAINING (a-b)                ' , flag7.
skip 2.
flag  = 0.
flag3 = 0.
flag4 = 0.
flag5 = 0.
flag6 = 0.
flag7 = 0.
flag2 = flag2 + 1.
endif.
  do num_of_loops times.
  if not flag2 gt month-high.
    write : / 'for month  ' COLOR COL_GROUP, flag2 COLOR COL_GROUP.
  Select WERKS SpMON matnr from S031 into corresponding fields of table it_S031
  where SpMON = flag2 AND WERKS IN PLANT.
   loop at IT_S031.
     at first.
        write : /5 'mat_num', 20 'month', 40 'QTY',58'amt',68'movement_type', 85'mat_type'. ",105 'qty remaining'.
        skip.
     endat.
  select single mblnr werks matnr menge dmbtr bwart from mseg into corresponding fields of it_mseg
    where werks = IT_S031-werks and ( bwart = '102' or bwart = '101' or bwart = '601' or bwart = '602' )
      and matnr = it_s031-matnr.
    if it_mseg-bwart = '101'.
      flag = flag + it_mseg-dmbtr.
    elseif it_mseg-bwart = '102'.
      flag1 = flag1 + it_mseg-dmbtr.
    elseif it_mseg-bwart = '601'  .
      flag4 = flag4 + it_mseg-dmbtr.
    elseif it_mseg-bwart = '602'  .
      flag5 = flag5 + it_mseg-dmbtr.
    endif.
    flag3 = flag - flag1. "101-102
    flag6 = flag4 - flag5. "601-602
    select matnr mtart from mara into corresponding fields of table it_mara
      where matnr = it_mseg-matnr. " and mtart = 'FERT' .
    loop at it_mara.
      write : / it_mara-matnr,20  IT_S031-SPMON, it_mseg-menge, it_mseg-dmbtr, 70 it_mseg-bwart, 88 it_mara-mtart.
      skip.
    endloop.
  endloop.
  skip 1.
  write : / 'total recd qty (a = 101-102)       ' , flag3.
  write : / 'total Qty consumed ( b = 601-602)  ' , flag6.
  flag7 = flag3 - flag6.
  write : / 'Qty remaining (a-b)                ' , flag7.
skip 2.
flag  = 0. flag3 = 0. flag4 = 0. flag5 = 0. flag6 = 0. flag7 = 0.
flag2 = flag2 + 1.
endif.
enddo.
  endform.                                                    "getdata1