Fiscal Moth wise Display

Question

Dear All
             i have new report for customer booking plan. i  am display month wise.
but now i am dispay Fiscal month wise but not working
the following is my code
*& Report  ZCUST_ORDER                                                 *
REPORT  z_cust_balance   LINE-SIZE 335.
TABLES   : kna1,
           vbak,
           vbap,
           lips,
           vbuk,
           t247,
           zmm_style_mast,
           vbep.
INCLUDE <icons>.
*DATA:  t_month LIKE t247 OCCURS 0 WITH HEADER LINE.
DATA:  BEGIN OF t_month OCCURS 0,
           SPRAS LIKE t247-SPRAS,
           MNR LIKE t247-MNR,
           KTX LIKE t247-KTX,
           LTX LIKE t247-LTX,
           TMPMNR LIKE t247-MNR,
        END OF t_month.
DATA : begin of jest1 OCCURS 0,
       objnr like jest-objnr,
       stat like jest-stat,
       inact like jest-inact,
       end of jest1.
DATA : BEGIN OF itab_month OCCURS 0,
       month_val(2),
       width_val(4) TYPE n,
       END OF itab_month.
Data: begin of month_total occurs 0,
       monthcode(2),
       month(10),
      tempttl type p,
       qty(16) type p ,
       val(16) type p  ,
       tmpqty type p,
       tmpval type p ,
       end of month_total.
*for Grand total
Data: begin of month_ttl occurs 0,
       ttlqty type p ,
       ttlval type p  ,
      end of month_ttl.
DATA: BEGIN OF it_summary OCCURS 0,
      month(2),
     tmpmonth(2),
      kunnr LIKE vbak-kunnr,
      name1 LIKE kna1-name1,
      kwmeng(16) TYPE p,
      tempso like vbap-vbeln,
      kursk(16) TYPE p DECIMALS 2,
      delqty(16) TYPE p,
      matnr like vbap-matnr,
      balqty(16)  TYPE p,
      netval(16) TYPE p DECIMALS 2,
      END OF it_summary.
DATA: BEGIN OF t_list1 OCCURS 0,
      kunnr LIKE vbak-kunnr,
      month(2),
      name1 LIKE kna1-name1,
      kwmeng(16) TYPE p,
fld2 TYPE VBAK-VBELN,
      kursk(16) TYPE p,
      delqty(16) TYPE p,
      balqty(16)  TYPE p,
      netval(16) TYPE p,
      END OF t_list1.
DATA : t_list LIKE t_list1 OCCURS 0 WITH HEADER LINE.
*DATA : t_list1 LIKE it_summary OCCURS 0 WITH HEADER LINE.
DATA tmp_vlist LIKE it_summary OCCURS 0 WITH HEADER LINE.
DATA tmp_vlist1 LIKE it_summary OCCURS 0 WITH HEADER LINE.
data month_total1 like month_total OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itb_vbak OCCURS 0,
      kunnr  LIKE vbak-kunnr,
      month(2),
       TMPmnr(2),
      tempso like vbap-vbeln,
      name1 LIKE kna1-name1,
      kwmeng(16) TYPE p," LIKE vbap-kwmeng,
      vbeln  LIKE vbak-vbeln,
      posnr  LIKE vbap-posnr,
      vgbel LIKE lips-vgbel,
      vgpos LIKE lips-vgpos,
      matnr like vbap-matnr,
      waerk  LIKE vbap-waerk ,
      pstyv LIKE vbap-pstyv,
      objnr LIKE vbap-objnr,
      etenr LIKE vbep-etenr,
      netwr(16) TYPE p,"  LIKE vbap-netwr ,
      vkorg  LIKE vbak-vkorg,
      edatu  LIKE vbep-edatu,
      lfimg LIKE lips-lfimg,
      vrkme  LIKE vbap-vrkme,
      netvl(16) TYPE p ,
      style like zmm_style_mast-style,
      jahr like zmm_style_mast-jahr,
      cu_style like zmm_style_mast-CU_STYLE,
     DECIMALS 2,
     netvl LIKE vbap-netwr,
      kursk(16) TYPE p DECIMALS 2,
      netpr LIKE vbap-netpr,
      balqty(16)  TYPE p,
      totdlr type p DECIMALS 2,   "total dlr value
      comp(1) ,
      END OF itb_vbak.
DATA: BEGIN OF itb_del OCCURS 0,
      vbeln LIKE lips-vbeln,
      lfdat LIKE likp-lfdat,
      kunnr LIKE likp-kunnr,
      posnr LIKE lips-posnr,
      lfimg LIKE lips-lfimg,
      meins LIKE lips-meins,
      vgbel LIKE lips-vgbel,
      vgpos LIKE lips-vgpos,
      month(2),
      END OF itb_del.
DATA: BEGIN OF itb_price OCCURS 0,
      vbeln LIKE vbkd-vbeln,
      posnr LIKE vbkd-posnr,
      kursk LIKE vbkd-kursk,
      END OF itb_price.
DATA :tmp_qty(16) TYPE p ,
      flag(3),
      FRMyear(4),
      TOyear(4),
      FRMMON(2),
      TOMON(2),
      difyr(2),
      difmo(2),
      tmpvbeln like lips-vbeln.
DATA t_vbak LIKE itb_vbak OCCURS 0 WITH HEADER LINE .
DATA t_vbak1 LIKE itb_vbak OCCURS 0 WITH HEADER LINE .
DATA t_vbak2 LIKE itb_vbak OCCURS 0 WITH HEADER LINE .
DATA t_vbak3 LIKE itb_vbak OCCURS 0 WITH HEADER LINE .
DATA t_vbak4 LIKE itb_vbak OCCURS 0 WITH HEADER LINE .
DATA t_vbak5 LIKE itb_vbak OCCURS 0 WITH HEADER LINE .
DATA t_vbak6 LIKE itb_vbak OCCURS 0 WITH HEADER LINE .
DATA t_jest LIKE jest1 OCCURS 0 WITH HEADER LINE.
for perform sub total
DATA tmp_vbak LIKE t_vbak1 OCCURS 0 WITH HEADER LINE.
DATA tmp_vbak1 LIKE t_vbak1 OCCURS 0 WITH HEADER LINE.
DATA t_kunnr TYPE kunnr OCCURS 0 .
DATA : t_eindt(4),
       wa_name1 LIKE kna1-name1,
       conf LIKE vbep-bmeng,
       t_vbeln LIKE vbak-vbeln,
       t_lfimg(16) TYPE p,
       t_kursk(16) TYPE p DECIMALS 2,
       t_kwmeng(16) TYPE p ,
       t_netval(16) TYPE p,
       tmp_posnr LIKE vbap-posnr,
       customer_bal_qty(16) TYPE p,
       dbcnt TYPE i,
       p_month(2),
       TMPmnr(2),
       tmpmonth(2),
       tbcnt(4) TYPE n,
       month_name(10) ,
       result_width(4) TYPE n,
       h_width(4) TYPE n,
       f_width(4) TYPE n,
       fld(30),
       bal_tot_val(16) TYPE p ,
       drilldown_cnt(1) TYPE n VALUE 0,
       vbeln1 LIKE vbap-vbeln,
       subtot LIKE vbep-wmeng,
       eblen1 LIKE vbap-vbeln,
       t_totdlr(16) type p DECIMALS 2,
       t_tmpnetval(16) type p DECIMALS 2.
RANGES: salesno FOR vbak-vbeln,
        fld1 FOR vbak-kunnr,
        it_objnr FOR vbap-objnr.
DATA:  f(12),
       current_row(20),
       tmp_kunnr LIKE vbak-kunnr.
DATA : balance_qty(16) TYPE p,
       balance_val(16) TYPE p,
       cust_bal_val(16) TYPE p,
       tmp_bal_val(16) TYPE p,
       tmp_bal(16) TYPE p.
SELECTION-SCREEN: BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: kunnr FOR vbak-kunnr.
SELECT-OPTIONS: p_vdatu FOR vbak-erdat OBLIGATORY.
SELECT-OPTIONS: p_vbeln  FOR vbak-vbeln.
SELECT-OPTIONS: vkorg FOR vbak-vkorg OBLIGATORY.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN: BEGIN OF BLOCK 2 WITH FRAME TITLE text-002.
PARAMETERS: qty RADIOBUTTON GROUP r1 DEFAULT 'X',
            val RADIOBUTTON GROUP r1.
SELECTION-SCREEN: END OF BLOCK 2.
START-OF-SELECTION.
  DATA tmp_date(6) TYPE c.
CONCATENATE '%' eindt+3(4) '%' INTO tmp_date.
      FRMyear =  p_vdatu+3(4).
      TOyear =  p_vdatu+11(4).
      difyr = TOyear - FRMyear.
      FRMMON =  p_vdatu+7(2).
      TOMON =  p_vdatu+15(2).
       if ( difyr = 0 ) AND ( ( FRMMON > 3 ) AND ( TOMON <= 12 ) ) .
              write: 'Srini'.
         elseif
            ( difyr = 0 ) AND ( ( FRMMON <= 3 ) AND ( TOMON <= 3 ) ).
                write: 'ravi'.
                elseif
        endif.
           difyr = 1 and ( FRMMON > 3 and TOMON <= 3 ).
             write: 'Suresh'.
else.
if difyr > 1.
      WRITE : 'Check Your Fiscal Date Month Year  ....'.
      exit.
    endif.
  SELECT * FROM t247 INTO TABLE t_month WHERE spras EQ 'EN'.
   BMENG(Confirmed qty) changed by  wMENG(Order qty)
  SELECT  shkunnr kname1  slWMENG sfwaerk sf~netwr
          shvbeln slposnr shvkorg sledatu sf~vrkme
          shnetwr vkkursk sfnetpr sletenr sf~objnr
          sfpstyv sfmatnr
      INTO (itb_vbak-kunnr,
            itb_vbak-name1,
            itb_vbak-kwmeng,
            itb_vbak-waerk,
            itb_vbak-netwr,
            itb_vbak-vbeln,
            itb_vbak-posnr,
            itb_vbak-vkorg,
            itb_vbak-edatu,
            itb_vbak-vrkme,
            itb_vbak-netvl,
            itb_vbak-kursk,
            itb_vbak-netpr,
            itb_vbak-etenr,
            itb_vbak-objnr,
            itb_vbak-pstyv,
            itb_vbak-matnr)
                  FROM vbak AS sh
                       INNER JOIN vbuk AS vb ON
                         shvbeln = vbvbeln
                       INNER JOIN vbap AS sf ON
                         shvbeln = sfvbeln
                       INNER JOIN vbep AS sl ON
                         sfvbeln = slvbeln AND
                         sfposnr = slposnr
                       INNER JOIN vbkd AS vk ON
                         slvbeln = vkvbeln
                       INNER JOIN kna1 AS k ON
                         shkunnr = kkunnr
                       WHERE
                     "  sh~vdatu IN p_vdatu AND
                         vk~posnr EQ 0 AND
                         sh~vbeln IN p_vbeln AND
                         sh~kunnr IN kunnr AND
                         sh~vkorg IN vkorg AND
                        vbak-erdat
                         sh~erdat IN p_vdatu AND
                        vb~spstg EQ space AND
                         sl~wmeng NE 0 AND
                         sf~abgru EQ space
                        " sf~pstyv EQ 'TASS'
                          ORDER BY sh~kunnr.
    itb_vbak-month   = itb_vbak-edatu+4(2).
  itb_vbak-netvl = ( itb_vbak-kwmeng - itb_vbak-lfimg ) *
*(  itb_vbak-kursk * itb_vbak-netpr ).
    salesno-low = itb_vbak-vbeln.
    salesno-sign = 'I'.
    salesno-option = 'EQ'.
    it_objnr-low = itb_vbak-objnr.
    it_objnr = 'I'.
    it_objnr-option = 'EQ'.
    APPEND it_objnr.
    APPEND itb_vbak.
    APPEND salesno.
*Test
    select  objnr stat inact INTO (t_jest-objnr, t_jest-stat, t_jest-inact) FROM jest
        WHERE  objnr eq  itb_vbak-objnr and inact ne 'X' and  ( stat = 'I0043' OR stat = 'I0045' ) .
        append t_jest.
    endselect.
  ENDSELECT.
  DELETE ADJACENT DUPLICATES FROM salesno.
  CLEAR salesno.
SELECT * FROM jest INTO CORRESPONDING FIELDS OF TABLE t_jest WHERE
            objnr IN it_objnr.
*test
*select objnr stat inact FROM jest INTO CORRESPONDING FIELDS OF TABLE t_jest WHERE
            objnr IN it_objnr.
*loop at it_objnr.
*select  objnr stat inact FROM jest INTO (t_jest-objnr, t_jest-stat, t_jest-inact) WHERE
            objnr IN it_objnr and inact ne 'X' and  ( stat = 'I0043' OR stat = 'I0045' ).
*append t_jest.
*endselect.
*endloop.
*t_vbak5[] = itb_vbak[].
*SORT t_vbak5 BY   month.
**Test
loop  at t_vbak5.
    read table t_vbak6 with key month = t_month-MNR.
          if sy-subrc = 0.
             t_vbak6-month = t_month-tmpMNR.
             modify t_vbak6 index sy-tabix.
          else.
           append t_vbak5 to t_vbak6.
           endif.
          clear : t_vbak5,   t_vbak6.
  endloop.
t_vbak3[] = itb_vbak[].
  t_vbak3[] = t_vbak6[].
    LOOP AT t_vbak3 WHERE objnr NE space .
       LOOP AT t_jest WHERE objnr = t_vbak3-objnr AND
           ( stat = 'I0043' OR stat = 'I0045' )    AND
             inact NE 'X'.
          DELETE salesno WHERE low EQ t_vbak3-vbeln.
          DELETE itb_vbak WHERE vbeln EQ t_vbak3-vbeln.
        EXIT.
      ENDLOOP.
    ENDLOOP.
  DELETE itb_vbak WHERE pstyv = 'TASS'.
SELECT  lp~vbeln
         lp~posnr
         lp~lfimg
         lk~lfdat
         lk~kunnr
         lp~meins
         lp~vgbel
         lp~vgpos INTO
         (itb_del-vbeln,
          itb_del-posnr,
          itb_del-lfimg,
          itb_del-lfdat,
          itb_del-kunnr,
          itb_del-meins,
          itb_del-vgbel,
          itb_del-vgpos)
                  FROM lips AS lp INNER JOIN likp AS lk ON
                               lpvbeln EQ lkvbeln INNER JOIN
                               vbap AS vb ON
                               lpvgbel EQ vbvbeln AND
                               lpvgpos EQ vbposnr
                               INNER JOIN vbuk AS vk ON
                               lpvbeln EQ vkvbeln
                        WHERE vk~wbstk EQ 'C' AND
                              lp~vgbel IN salesno.
   itb_del-month   = itb_del-lfdat+4(2).
   APPEND itb_del.
ENDSELECT.
loop at itb_vbak .
  tmpvbeln = itb_vbak-vbeln.
  SELECT vbeln posnr kursk  INTO
                    (itb_price-vbeln,
                     itb_price-posnr,
                     itb_price-kursk) FROM vbkd
                    where VBELN eq tmpvbeln  .
    APPEND itb_price.
  ENDSELECT.
  endloop.
  CLEAR conf.
SORT itb_vbak BY   month
                    kunnr
                    name1
                    kwmeng
                    vbeln
                    posnr
                    etenr.
  REFRESH t_vbak3.
  CLEAR t_vbak3.
    t_vbak2[] = itb_vbak[].
  SORT t_vbak2 BY  kunnr month .
*Test
loop  at it_vbak2.
    read table t_month with key month = t_month-MNR.
          if sy-subrc = 0.
             it_vbak2-month = t_month-tmpMNR.
            endif.
  endloop
  LOOP AT t_vbak2  .
    tmp_kunnr = t_vbak2-kunnr.
    wa_name1  = t_vbak2-name1.
    t_month   = t_vbak2-month.
    p_month   = t_vbak2-month.
    t_kursk   = t_vbak2-kursk.
    AT NEW month.
      PERFORM get_finmonth_name TABLES it_summary USING p_month.
      AT NEW kursk.
      PERFORM tot_qty_cust_month TABLES itb_vbak USING p_month
      tmp_kunnr.
      it_summary-kursk = t_kursk.
      it_summary-month = p_month.
      it_summary-kunnr = tmp_kunnr.
      it_summary-name1 = wa_name1.
      it_summary-kwmeng = t_kwmeng.
     PERFORM tot_del_cust USING p_month tmp_kunnr.
      it_summary-delqty = tmp_qty .
      it_summary-balqty =  it_summary-kwmeng - tmp_qty.
     it_summary-netval =  it_summary-balqty * it_summary-kursk * t_totdlr.
     it_summary-netval =  it_summary-kursk * t_totdlr.
       it_summary-netval =  t_tmpnetval.
      For get month wise total qty and value
        month_total-monthcode = p_month.
        month_total-qty = it_summary-balqty.
        month_total-val = it_summary-netval.
        month_ttl-ttlqty  =  month_ttl-ttlqty  +  it_summary-balqty.
        month_ttl-ttlval  =  month_ttl-ttlval  +  it_summary-netval.
    ENDAT.
     it_summary-netval = t_kursk.
      APPEND it_summary.
  append month_total.
  append month_ttl.
    ENDAT.
  ENDLOOP.
SORT month_total BY   monthcode.
  DELETE it_summary WHERE balqty LE 0.
  IF qty = 'X'.
write all the month's horizontaly********************************
   IF sy-subrc = 0 .
    SORT it_summary BY  month kunnr.
    loop at it_summary.
    move-corresponding  it_summary to t_list  .
    append t_list.
    endloop.
    SORT : t_vbak  BY KUNNR month ,
           t_list by kunnr MONTH.
   DESCRIBE TABLE t_vbak3 LINES dbcnt .
    IF it_summary IS NOT INITIAL .
      h_width   = 50.
      WRITE: 1 sy-vline.
      LOOP AT it_summary.
        AT NEW month.
          PERFORM get_month_name USING it_summary-month.
          FORMAT COLOR 4 INTENSIFIED OFF.
          WRITE AT h_width(17) sy-vline.
          WRITE AT h_width(17) month_name CENTERED.
          h_width = h_width - 1.
          WRITE AT h_width sy-vline.
          h_width = h_width  + 17         .
          itab_month-month_val = it_summary-month.
          itab_month-width_val = h_width + 20.
          APPEND itab_month.
          HIDE month_name.
        ENDAT.
        AT LAST .
          WRITE AT h_width(1) sy-vline.
          h_width = h_width + 3.
          WRITE: AT h_width 'Total' CENTERED.
          h_width = h_width + 30.
          WRITE AT h_width sy-vline.
        ENDAT.
      ENDLOOP.
      WRITE AT h_width sy-vline.
       NEW-LINE .
********Write qty horizontaly***************************
      h_width = 50.
      WRITE AT 1 sy-vline.
      WRITE AT 1(h_width) sy-vline.
      LOOP AT it_summary.
        AT NEW month.
          FORMAT COLOR 5 INTENSIFIED OFF.
          WRITE AT h_width(16) sy-vline.
          WRITE AT h_width(16) 'Order Qty' CENTERED.
          h_width = h_width - 1.
          WRITE AT h_width sy-vline.
          h_width = h_width  + 17.
          WRITE AT h_width sy-vline.
        ENDAT.
        AT LAST .
          h_width = h_width + 1.
          WRITE AT h_width(16) sy-vline.
          WRITE AT h_width(33) 'Order Qty' CENTERED.
          h_width = h_width - 1.
          WRITE AT h_width sy-vline.
          h_width = h_width + 33.
          WRITE AT h_width sy-vline.
                  ENDAT.
      ENDLOOP.
******Write customer  Name grouped by*************************
      WRITE AT /1(h_width) sy-uline.
      LOOP AT t_list.
        WRITE :AT 1 sy-vline.
         AT NEW kunnr.
            LOOP AT it_summary  WHERE kunnr EQ t_list-kunnr.
            MOVE-CORRESPONDING it_summary TO t_list1.
            APPEND t_list1.
          ENDLOOP.
          DELETE it_summary WHERE kunnr EQ t_list-kunnr.
          HIDE kunnr.
        ENDAT.
        SORT t_list1  BY kunnr name1 month.
        LOOP AT t_list1.
          AT FIRST .
            FORMAT COLOR 3 INTENSIFIED OFF.
            NEW-LINE.
            WRITE: 1 sy-vline.
            WRITE:2(10) t_list-kunnr HOTSPOT ON.
            WRITE: AT 12 sy-vline.
            WRITE:13(37) t_list-name1 HOTSPOT ON.
            WRITE: AT 49 sy-vline.
            SET LEFT SCROLL-BOUNDARY.
          ENDAT.
          FORMAT COLOR 2  INTENSIFIED OFF.
          AT NEW month.
            PERFORM write_position USING t_list1-month.
            f_width = result_width - 35.
              SUM.
            WRITE :AT f_width(15) t_list1-balqty.
            f_width = f_width + 15.
          ENDAT.
          AT LAST.
               SUM.
            f_width = h_width - 32.
          WRITE :AT f_width(3) icon_sum AS ICON COLOR 6 INTENSIFIED OFF.
            f_width = f_width + 3.
          WRITE :AT f_width(30)  t_list1-balqty COLOR 6 INTENSIFIED OFF.
            f_width = f_width + 30.
          ENDAT.
        ENDLOOP.
        WRITE :AT  h_width sy-vline.
        REFRESH t_list1.
      ENDLOOP.
      WRITE :AT /1(h_width) sy-uline.
write:  /'                   '.
write: / '                   '.
WRITE :'TOTAL'.
loop at month_total.
          AT NEW monthcode.
            PERFORM write_position USING month_total-monthcode.
            f_width = result_width - 35.
              SUM.
            WRITE :AT f_width(15) month_total-qty.
            f_width = f_width + 15.
endat.
endloop.
WRITE :AT f_width(34)  month_ttl-ttlqty COLOR 6 INTENSIFIED OFF.
            f_width = f_width + 30.
    ELSE.
      WRITE : 'Sorry No Results found ....'.
    ENDIF.
*    command
                         value
ELSEIF val = 'X'.
write all the month's horizontaly********************************
   IF sy-subrc = 0 .
    SORT it_summary BY  month kunnr.
    loop at it_summary.
    move-corresponding  it_summary to t_list  .
    append t_list.
    endloop.
    SORT : t_vbak  BY KUNNR month ,
           t_list by kunnr MONTH.
   DESCRIBE TABLE t_vbak3 LINES dbcnt .
    IF it_summary IS NOT INITIAL .
      h_width   = 50.
      WRITE: 1 sy-vline.
      LOOP AT it_summary.
        AT NEW month.
          PERFORM get_month_name USING it_summary-month.
          FORMAT COLOR 4 INTENSIFIED OFF.
          WRITE AT h_width(17) sy-vline.
          WRITE AT h_width(17) month_name CENTERED.
          h_width = h_width - 1.
          WRITE AT h_width sy-vline.
          h_width = h_width  + 17         .
          itab_month-month_val = it_summary-month.
          itab_month-width_val = h_width + 20.
          APPEND itab_month.
          HIDE month_name.
        ENDAT.
        AT LAST .
          WRITE AT h_width(1) sy-vline.
          h_width = h_width + 3.
          WRITE: AT h_width 'Total' CENTERED.
          h_width = h_width + 30.
          WRITE AT h_width sy-vline.
        ENDAT.
      ENDLOOP.
      WRITE AT h_width sy-vline.
      NEW-LINE .
********Write qty horizontaly***************************
      h_width = 50.
      WRITE AT 1 sy-vline.
      WRITE AT 1(h_width) sy-vline.
      LOOP AT it_summary.
        AT NEW month.
          FORMAT COLOR 5 INTENSIFIED OFF.
          WRITE AT h_width(16) sy-vline.
          WRITE AT h_width(16) 'Order Val(INR)' CENTERED.
          h_width = h_width - 1.
          WRITE AT h_width sy-vline.
          h_width = h_width  + 17.
          WRITE AT h_width sy-vline.
        ENDAT.
        AT LAST .
          h_width = h_width + 1.
          WRITE AT h_width(16) sy-vline.
          WRITE AT h_width(33) 'Order Val(INR)' CENTERED.
          h_width = h_width - 1.
          WRITE AT h_width sy-vline.
          h_width = h_width + 33.
          WRITE AT h_width sy-vline.
        ENDAT.
      ENDLOOP.
******Write customer  Name grouped by*************************
      WRITE AT /1(h_width) sy-uline.
      LOOP AT t_list.
        WRITE :AT 1 sy-vline.
        AT NEW kunnr.
          LOOP AT it_summary  WHERE kunnr EQ t_list-kunnr.
            MOVE-CORRESPONDING it_summary TO t_list1.
            APPEND t_list1.
          ENDLOOP.
          DELETE it_summary WHERE kunnr EQ t_list-kunnr.
          HIDE kunnr.
        ENDAT.
        SORT t_list1  BY kunnr name1 month.
        LOOP AT t_list1.
          AT FIRST .
            FORMAT COLOR 3 INTENSIFIED OFF.
            NEW-LINE.
            WRITE: 1 sy-vline.
            WRITE:2(10) t_list-kunnr HOTSPOT ON.
            WRITE: AT 12 sy-vline.
            WRITE:13(37) t_list-name1 HOTSPOT ON.
            WRITE: AT 49 sy-vline.
            SET LEFT SCROLL-BOUNDARY.
          ENDAT.
          FORMAT COLOR 2  INTENSIFIED OFF.
          AT NEW month.
            PERFORM write_position USING t_list1-month.
            f_width = result_width - 35.
            SUM.
            WRITE :AT f_width(15) t_list1-netval.
            f_width = f_width + 15.
          ENDAT.
          AT LAST.
            SUM.
            f_width = h_width - 32.
          WRITE :AT f_width(3) icon_sum AS ICON COLOR 6 INTENSIFIED OFF.
            f_width = f_width + 3.
          WRITE :AT f_width(30)  t_list1-netval COLOR 6 INTENSIFIED OFF.
            f_width = f_width + 30.
          ENDAT.
        ENDLOOP.
        WRITE :AT h_width sy-vline.
        REFRESH t_list1.
      ENDLOOP.
      WRITE :AT /1(h_width) sy-uline.
write:  /'                   '.
write: / '                   '.
WRITE :'TOTAL'.
loop at month_total.
          AT NEW monthcode.
            PERFORM write_position USING month_total-monthcode.
            f_width = result_width - 35.
              SUM.
            WRITE :AT f_width(15) month_total-val.
           f_width = f_width + 15.
endat.
endloop.
WRITE :AT f_width(34)  month_ttl-ttlval COLOR 6 INTENSIFIED OFF.
            f_width = f_width + 30.
    ELSE.
      WRITE : 'Sorry No Results found ....'.
    ENDIF.
  ENDIF.
  NEW-LINE.
*********Position of the field for the corresponding month******
FORM write_position USING p_position.
  LOOP AT itab_month WHERE month_val EQ p_position.
    result_width = itab_month-width_val.
  ENDLOOP.
ENDFORM.                    "Write_position
*&      Form  month_splitter
      text
FORM get_month_name USING p_month.
  CASE p_month.
    WHEN '01'.
      month_name = 'January'.
    WHEN '02'.
      month_name = 'February'.
    WHEN '03'.
      month_name = 'March'.
    WHEN '04'.
      month_name = 'April'.
    WHEN '05'.
      month_name = 'May'.
    WHEN '06'.
      month_name = 'June'.
    WHEN '07'.
      month_name = 'July'.
    WHEN '08'.
      month_name = 'August'.
    WHEN '09'.
      month_name = 'September'.
    WHEN '10'.
      month_name = 'October'.
    WHEN '11'.
      month_name = 'November'.
    WHEN '12'.
      month_name = 'December'.
*WHEN '01'.
     month_name = ' April '.
   WHEN '02'.
     month_name = ' May '.
   WHEN '03'.
     month_name = ' June '.
   WHEN '04'.
     month_name = ' July '.
   WHEN '05'.
     month_name = ' August '.
   WHEN '06'.
     month_name = ' September '.
   WHEN '07'.
     month_name = ' October '.
   WHEN '08'.
     month_name = ' November '.
   WHEN '09'.
     month_name = ' December '.
   WHEN '10'.
     month_name = ' January '.
   WHEN '11'.
     month_name = ' February '.
   WHEN '12'.
     month_name = ' March '.
    WHEN OTHERS.
      month_name = 'Errror..'.
  ENDCASE.
ENDFORM.                    "month_splitter
FORM get_finmonth_name USING p_month.
LOOP AT t_month where mnr eq p_month.
CASE t_month-mnr.
    WHEN '01'.
      TMPmnr = '10'.
    WHEN '02'.
      TMPmnr = '11'.
    WHEN '03'.
      TMPmnr = '12'.
    WHEN '04'.
      TMPmnr = '1'.
    WHEN '05'.
      TMPmnr = '2'.
   WHEN '06'.
      TMPmnr = '3'.
    WHEN '07'.
      TMPmnr = '4'.
    WHEN '08'.
      TMPmnr = '5'.
    WHEN '09'.
      TMPmnr = '6'.
    WHEN '10'.
      TMPmnr = '7'.
    WHEN '11'.
      TMPmnr = '8'.
    WHEN '12'.
      TMPmnr = '9'.
   WHEN OTHERS.
      TMPmnr = 'Errror..'.
  ENDCASE.
       ENDLOOP.
ENDFORM..
AT LINE-SELECTION.
  IF sy-lsind = 1 .
    READ CURRENT LINE LINE VALUE INTO f.
    WRITE f+1(10) TO tmp_kunnr.
    CLEAR:   t_vbak.
    REFRESH  t_vbak1.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = tmp_kunnr
      IMPORTING
        output = tmp_kunnr.
    LOOP AT itb_vbak WHERE kunnr EQ tmp_kunnr.
      MOVE-CORRESPONDING itb_vbak TO t_vbak1.
      APPEND t_vbak1.
    ENDLOOP.
    FORMAT COLOR 5 INTENSIFIED OFF.
    REFRESH t_vbak2.
    CLEAR t_vbak2.
    PERFORM get_balance_per_customer.
  ELSEIF sy-lsind = 2 .
    READ CURRENT LINE LINE VALUE INTO current_row.
    READ  LINE 4 LINE  VALUE INTO f.
    WRITE current_row+11(9) TO month_name.
    WRITE f+1(10) TO tmp_kunnr.
    PERFORM get_month_val USING month_name.
    CLEAR:   t_vbak,
             t_vbak1.
    REFRESH:  t_vbak1.
    CLEAR:   t_vbak,
             t_vbak1.
    REFRESH:  t_vbak1.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = tmp_kunnr
      IMPORTING
        output = tmp_kunnr.
    LOOP AT itb_vbak
                   WHERE kunnr EQ tmp_kunnr AND
                         month EQ p_month.
      MOVE-CORRESPONDING itb_vbak TO t_vbak1.
      APPEND t_vbak1.
    ENDLOOP.
    SORT:t_vbak1 BY KUNNR month vbeln.
    REFRESH t_vbak2.
    CLEAR t_vbak2.
    REFRESH t_vbak.
    CLEAR t_vbak.
    t_vbak[] = itb_vbak[].
    PERFORM  get_month_namewise.
    FORMAT COLOR 5 INTENSIFIED OFF.
  ELSEIF sy-lsind = 3.
IF sy-cucol > 1 AND sy-cucol < 13.
GET CURSOR FIELD fld VALUE fld.
SET PARAMETER ID 'AUN' FIELD fld.
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
endif.
  ENDIF.
PERFORM write_item .
*&      Form  write_item
      text
FORM write_item .
  READ TABLE t_vbak2 INDEX 1.
  IF t_vbak2 IS NOT INITIAL.
    WRITE : 1(70)  sy-uline.
    WRITE : /1     sy-vline.
    WRITE : 2(36) 'Customer'  COLOR 1 INTENSIFIED ON.
    WRITE : 38(22) 'Quantity'  COLOR 1 INTENSIFIED ON.
    WRITE : 58(12) 'Value in INR'  COLOR 1 INTENSIFIED ON.
    WRITE : 70     sy-vline.
    WRITE : /1(70) sy-uline.
    WRITE : /1     sy-vline.
    FORMAT         COLOR 2 INTENSIFIED OFF.
    WRITE : 2(10)  t_vbak2-kunnr  COLOR 1 INTENSIFIED OFF.
    WRITE : 12(58) t_vbak2-name1  COLOR 1 INTENSIFIED OFF.
    WRITE 70 sy-vline.
    IF sy-lsind  = 2.
      FORMAT COLOR 1 INTENSIFIED OFF.
     WRITE :/1  sy-vline,
             2(15)  'Sales Document',
             17(10) 'Delivery Date',
             28(10) 'Quantity ',
             39(7)  'Uom',
             47(15) 'Value in INR' RIGHT-JUSTIFIED,
             65(20)   'Style'.
       WRITE :/1  sy-vline,
              2(15)  'Sales Document',
              17(20)   'Style',
              27(10) 'Delivery Date',
              38(10) 'Quantity ',
              49(7)  'Uom',
              55(15) 'Value in INR' RIGHT-JUSTIFIED.
    ENDIF.
    WRITE 70 sy-vline.
    DELETE t_vbak2 WHERE balqty <= 0.
    LOOP AT t_vbak2.
      AT NEW month.
        PERFORM get_month_name USING t_vbak2-month.
        WRITE /1(70) sy-uline.
        WRITE /1 sy-vline.
        WRITE :2(10) 'Month of'  COLOR 3 INTENSIFIED ON ,
               12(26) month_name COLOR 3 INTENSIFIED OFF.
        HIDE month_name.
        SUM.
        PERFORM sum_balance TABLES t_vbak2 USING t_vbak2-month.
        WRITE : 35(23) balance_qty COLOR 3 INTENSIFIED OFF CENTERED,
                58(12) t_vbak2-netvl COLOR 3 INTENSIFIED OFF CENTERED.
*TEST
        WRITE : 70 sy-vline.
      ENDAT.
      IF sy-lsind = 2.
        FORMAT COLOR 4 INTENSIFIED OFF.
       WRITE :/1 sy-vline.
       WRITE : 2(15)  t_vbak2-vbeln,
               17(10) t_vbak2-edatu,
               28(10) t_vbak2-balqty,
               39(5)  t_vbak2-vrkme HOTSPOT ON,
              50(12) t_vbak2-netvl,
             65(20)  t_vbak2-cu_style.
       WRITE 62 sy-vline.
WRITE :/1 sy-vline.
        WRITE : 2(15)  t_vbak2-vbeln,
                17(20)  t_vbak2-cu_style,
                28(10) t_vbak2-edatu,
                39(10) t_vbak2-balqty,
                49(5)  t_vbak2-vrkme HOTSPOT ON,
               55(12) t_vbak2-netvl.
        WRITE 70 sy-vline.
        HIDE: t_vbak1-vbeln.
  ENDIF.
      AT LAST.
        WRITE /1(70) sy-uline.
      ENDAT.
    ENDLOOP.
ENDIF.
ENDFORM.                    "writeat_item
**&      Form  get_month_val
      text
     -->MONTH_NAME text
FORM get_month_val USING month_name.
  LOOP AT t_month  WHERE ltx EQ month_name.
   p_month = t_month-mnr.
p_month = t_month-TMPmnr.
  ENDLOOP.
ENDFORM.                    "Write_position
*&      Form  sum_balance
      text
     -->P_MONTH    text
FORM sum_balance TABLES p_table USING p_month .
  CLEAR : tmp_vbak,
          balance_qty.
  REFRESH tmp_vbak.
  tmp_vbak[] = p_table[].
  LOOP AT tmp_vbak WHERE month EQ p_month AND kwmeng NE 0.
    balance_qty =  balance_qty +  tmp_vbak-balqty .
    "( tmp_vbak-kwmeng  - tmp_vbak-lfimg ).
  ENDLOOP.
ENDFORM.                    "sum_balance
*&      Form  sum_tot_balance
      text
FORM sum_cust_tot_balance USING p_customer .
  CLEAR : tmp_vbak1,
          customer_bal_qty.
  REFRESH tmp_vbak1.
  tmp_vbak1[] = t_vbak[].
  LOOP AT tmp_vbak1 WHERE  kwmeng NE 0 AND
                           kunnr EQ p_customer .
    customer_bal_qty =  customer_bal_qty + tmp_vbak1-balqty .
    "( tmp_vbak1-kwmeng  - tmp_vbak1-lfimg ).
  ENDLOOP.
ENDFORM.                    "sum_balance
*&      Form  sum_tot_balance
      text
FORM sum_tot_balance .
  CLEAR : tmp_vbak1,
          balance_qty.
  REFRESH tmp_vbak1.
  tmp_vbak1[] = t_vbak[].
  LOOP AT tmp_vbak1 WHERE  kwmeng NE 0 .
    balance_qty =  balance_qty + tmp_vbak1-balqty .
    "( tmp_vbak1-kwmeng  - tmp_vbak1-lfimg ).
  ENDLOOP.
ENDFORM.                    "sum_balance
*&      Form  sum_bal_val
      text
     -->P_TABLE    text
     -->P_MONTH    text
FORM sum_bal_val TABLES p_table USING p_month .
  CLEAR : tmp_vbak,
          balance_val.
  REFRESH tmp_vbak.
  tmp_vbak[] = p_table[].
  LOOP AT tmp_vbak WHERE month EQ p_month AND kwmeng NE 0.
    balance_val =  balance_val +   tmp_vbak-netvl .
    "( tmp_vbak-kwmeng  - tmp_vbak-lfimg ).
  ENDLOOP.
ENDFORM.                    "sum_balance
*&      Form  sum_cust_tot_bal_val
      text
     -->P_CUSTOMER text
FORM sum_cust_tot_bal_val USING p_customer.
  CLEAR : tmp_vbak1,
          cust_bal_val.
  REFRESH tmp_vbak1.
  tmp_vbak1[] = t_vbak[].
  LOOP AT tmp_vbak1 WHERE  kwmeng NE 0 AND
                           kunnr EQ p_customer.
    cust_bal_val =  cust_bal_val + tmp_vbak1-netvl .
    "( tmp_vbak1-kwmeng  - tmp_vbak1-lfimg ).
  ENDLOOP.
ENDFORM.                    "sum_balance
*&      Form  sum_tot_bal_val
      text
FORM sum_tot_bal_val .
  CLEAR : tmp_vbak1,
          bal_tot_val.
  REFRESH tmp_vbak1.
  tmp_vbak1[] = t_vbak[].
  LOOP AT tmp_vbak1 WHERE  kwmeng NE 0 .
    bal_tot_val =  bal_tot_val + tmp_vbak1-netvl .
*bal_tot_val =  bal_tot_val + tmp_vbak1-totdlr .
t_totdlr
    "( tmp_vbak1-kwmeng  - tmp_vbak1-lfimg ).
  ENDLOOP.
ENDFORM.                    "sum_balance test
*&      Form  sum_tot_delivery
      text
FORM sum_tot_delivery USING p_saleno p_item.
  LOOP AT itb_del WHERE vgbel EQ p_saleno AND
                        vgpos EQ p_item.
    tmp_qty =  tmp_qty + itb_del-lfimg.
  ENDLOOP.
ENDFORM.                    "sum_tot_delivery
*&      Form  tot_del_cust
      text
     -->P_MONTH    text
     -->P_KUNNR    text
FORM tot_del_cust USING p_month p_kunnr.
  CLEAR tmp_qty.
  LOOP AT itb_del WHERE month EQ p_month AND
                        kunnr EQ p_kunnr.
    tmp_qty =  tmp_qty + itb_del-lfimg.
  ENDLOOP.
ENDFORM.                    "sum_tot_delivery
&----

Answer 1

Hi,
We can do it using 2LIS_02_ITM and 2LIS_02_SCL with 0PUR_C01 InfoCubes. So check it, I have done using the same combinations.
https://wiki.sdn.sap.com/wiki/display/BI/BWSDMMFIDATASOURCES
Else you also check 0IC_C03 with 2LIS_03_ * DataSources.
Thanks
Reddy