ALV COLOR PROGRAM

Question

Hi,
Please send me a sample prgm for colouring a single cell in an alv report.

Answer 1

REPORT  zsd_sales_prodgroup
        LINE-SIZE 351
        NO STANDARD PAGE HEADING
        LINE-COUNT 65
        MESSAGE-ID 00.
INCLUDE zcommon_part.
       TABLES                                                        *
TABLES: vbrk, "Billing Document: Header Data
        vbrp, "Billing Document: Item Data
        zsd_national, "Table for National level reports
        mara, "General Material Data
        t179t. "P
       INTERNAL TABLES AND STRUCTURES                                *
DATA: BEGIN OF it_data OCCURS 0.
        INCLUDE STRUCTURE zsd_national.
       vkbur    like zsd_national-vkbur,
       SUMMERY  like zsd_national-SUMMERY,
       sum_text like zsd_national-sum_text,
       sqno     like zsd_national-sqno,
DATA:   vbeln    LIKE vbrk-vbeln,
        matnr    LIKE vbrp-matnr,
        q1(20),"       like vbrp-fkimg,
        q2(20),"      like vbrp-fkimg,
        q3(20),"       like vbrp-fkimg,
        q4(20),"       like vbrp-fkimg,
        wk1(20),"     like vbrp-fkimg,
        wk2(20),"     like vbrp-fkimg,
        wk3(20),"      like vbrp-fkimg,
        wk4(20),"      like vbrp-fkimg,
        wk5(20),"      like vbrp-fkimg,
        wk6(20),"      like vbrp-fkimg,
        wk7(20),"      like vbrp-fkimg,
        wk8(20),"      like vbrp-fkimg,
        wk9(20),"      like vbrp-fkimg,
        wk10(20),"     like vbrp-fkimg,
        wk11(20),"     like vbrp-fkimg,
        wk12(20),"     like vbrp-fkimg,
        wk13(20),"     like vbrp-fkimg,
        wk_tot(20),"   like vbrp-fkimg,
        fkimg(20),"    like vbrp-fkimg,
        tot_week(20)," like vbrp-fkimg,
        ason_total(20)," like vbrp-fkimg,
        ly_total(20)," like vbrp-fkimg,
        allindia(20)," like vbrp-fklmg,
        goly TYPE i,
        tons LIKE vbrp-fkimg,
       allindia like vbrp-fkimg,
         color          TYPE lvc_t_scol,
      END OF it_data.
DATA: BEGIN OF it_vbrp OCCURS 0,
        fkdat LIKE vbrk-fkdat,
        vkorg LIKE vbrk-vkorg,
        vtweg LIKE vbrk-vtweg,
        fkart LIKE vbrk-fkart,
        fkimg LIKE vbrp-fkimg,
        umvkz LIKE vbrp-umvkz,
        umvkn LIKE vbrp-umvkn,
        fklmg LIKE vbrp-fklmg,
        vkbur LIKE vbrp-vkbur,
        vbeln LIKE vbrp-vbeln,
        matnr LIKE vbrp-matnr,
        prodh LIKE vbrp-prodh,
        matkl LIKE vbrp-matkl,
      END OF it_vbrp.
DATA: BEGIN OF it_vbeln OCCURS 0,
        vbeln LIKE vbrk-vbeln,
        fkart LIKE vbrk-fkart,
        fkdat LIKE vbrk-fkdat,
        vkorg LIKE vbrk-vkorg,
        vtweg LIKE vbrk-vtweg,
      END OF it_vbeln.
DATA: BEGIN OF it_prmatnr OCCURS 0,
        ntgew LIKE mara-ntgew, "netweight
        matnr LIKE mvke-matnr,
        prodh LIKE mvke-prodh,
        vkorg LIKE mvke-vkorg,
        vtweg LIKE mvke-vtweg,
      END OF it_prmatnr.
DATA: it_data_temp LIKE it_data OCCURS 0 WITH HEADER LINE.
DATA: color    TYPE TABLE          OF lvc_s_scol WITH HEADER LINE.
*ALV VARIABLES AND INTERNAL TABLES                                     *
TYPE-POOLS: slis.
DATA: v_repid LIKE sy-repid,
      st_layout TYPE slis_layout_alv,
      it_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      it_listheader TYPE slis_t_listheader,
      it_event TYPE slis_t_event.
*VARIABLES                                                            *
DATA: v_pc           LIKE t009b-periv VALUE 'PC',
      v_wc           LIKE t009b-periv VALUE 'WC',
      v_date         LIKE sy-datum,
      v_ly_date      LIKE sy-datum,
      v_qtr_fir_date LIKE sy-datum,
      v_yr_fir_date  LIKE sy-datum,
      v_yr_last_date LIKE sy-datum,
      v_month        LIKE t009b-poper,
      v_lastmonth    LIKE t009b-poper,
      v_back_months  LIKE t009b-poper,
      v_curweek      LIKE t009b-poper,
      v_fdate        LIKE sy-datum,
      v_cyfd         LIKE sy-datum,
      v_lyfd         LIKE sy-datum,
      v_ldate        LIKE sy-datum,
      v_year         LIKE t009b-bdatj,
      v_last_year    LIKE t009b-bdatj,
      v_fkimg(20), "  like vbrp-fkimg ,
      v_fkimg1(20) ,
      v_goly_lyfkimg LIKE vbrp-fkimg ,
      v_goly_cyfkimg LIKE vbrp-fkimg ,
      vtext LIKE t179t-vtext,
      v_cnt(2)       TYPE  c,          "For Counter
      v_fld(6)       TYPE  c,          " For Field name
      v_qtr          LIKE t009b-poper,
      l_pos          TYPE i VALUE 1,  "Position indicator for
      v_wk(4),
      v_fldtxt(15)   TYPE  c,          "fieldcatalog
      v_last_qtr     LIKE t009b-poper,
      v_curpc        TYPE n,
      v_colposi(2)   TYPE n,
      v_currqtr      LIKE t009b-poper,
      v_next_qtr     LIKE t009b-poper,
      v_fpc          LIKE t009b-poper,
      v_lpc          LIKE t009b-poper,
      v_unit         LIKE mara-meins.
INITIALIZATION.
  v_repid = sy-repid.
*SELECTION SCREEN DEFINITIONS                                         *
  SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-000.
  SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
  PARAMETERS: p_date  TYPE sy-datum OBLIGATORY.
  SELECT-OPTIONS: s_prodh FOR mara-prdha OBLIGATORY.
  SELECTION-SCREEN END OF BLOCK b1.
        selection-screen skip.
  SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
  SELECT-OPTIONS: s_vkorg FOR vbrk-vkorg,
                  s_vtweg FOR vbrk-vtweg.
  PARAMETERS :  p_spart TYPE vbrk-spart.
  SELECTION-SCREEN END OF BLOCK b2.
  SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
  SELECT-OPTIONS : so_rev   FOR vbrk-fkart NO INTERVALS.
  SELECTION-SCREEN END OF BLOCK b3.
  SELECTION-SCREEN END OF BLOCK b.
*START-OF-SELECTION
START-OF-SELECTION.
  perform check_background using sy-batch sy-uname.
  PERFORM find_qtr.
  PERFORM get_vbrk-vbrp.
  PERFORM get_data.
  PERFORM get_ly_data.
  PERFORM add_data.
*TO add the Speciality details in the speciality sales total column.
  perform add_data_speciality.
PERFORM delete_data.
  PERFORM color_data.
  IF it_data[] IS NOT INITIAL.
    PERFORM output_data.
  ELSE.
    MESSAGE i012(zmsg).
  ENDIF.
END-OF-SELECTION.
TOP-OF-PAGE.
  PERFORM alv_events USING it_event.
*END-OF-SELECTION
*&      Form  find_qtr
FORM find_qtr .
  CLEAR v_date.
  CLEAR v_month.
  CLEAR v_date.
  v_date = p_date.
*Finding the period from selected date.
  PERFORM get_period USING v_date v_pc CHANGING v_month v_year .
  IF v_month >= '001' AND v_month     <= '003'.
    v_qtr = 1.
    v_month = '001'.
    PERFORM get_first_day
                       USING v_date v_pc v_month
                       CHANGING v_qtr_fir_date.
  ELSEIF v_month >= '004' AND v_month <= '006'.
    v_qtr = 2.
    v_month = '004'.
    PERFORM get_first_day
                       USING v_date v_pc v_month
                       CHANGING v_qtr_fir_date.
  ELSEIF v_month >= '007' AND v_month <= '009'.
    v_qtr = 3.
    v_month = '007'.
    PERFORM get_first_day
                       USING v_date v_pc v_month
                       CHANGING v_qtr_fir_date.
  ELSEIF v_month >= '010' AND v_month <= '012'.
    v_qtr = 4.
    v_month = '010'.
    PERFORM get_first_day
                       USING v_date v_pc v_month
                       CHANGING v_qtr_fir_date.
  ENDIF.
*Getting data for  2 years(present and previous).
  v_ly_date = v_date.
  v_back_months = 12.
  PERFORM go_months_back USING v_date v_back_months CHANGING v_ly_date.
  v_month = '001'.
  PERFORM get_first_day
                     USING v_ly_date v_pc v_month
                     CHANGING v_yr_fir_date.
  v_month = '012'.
  PERFORM get_last_day
                       USING v_date v_pc v_month
                       CHANGING v_yr_last_date.
ENDFORM.                    " find_qtr
*&      Form  get_vbrk-vbrp
FORM get_vbrk-vbrp .
  SELECT * FROM zsd_national
           INTO CORRESPONDING FIELDS OF TABLE it_data .
  SORT it_data BY sqno.
SELECT *  INTO CORRESPONDING FIELDS OF TABLE it_vbeln
                          FROM vbrk
                          WHERE fkdat >= v_yr_fir_date AND
                                fkdat <= v_yr_last_date AND
                                vkorg IN s_vkorg  AND
                                vtweg IN s_vtweg  AND
                                spart = p_spart   AND
                             fkart NOT IN ('G2','ZG2','F8','ZF8').
IF it_vbeln[] IS NOT INITIAL.
   SELECT * INTO CORRESPONDING FIELDS OF TABLE it_vbrp FROM vbrp
                           FOR ALL ENTRIES IN it_vbeln  WHERE
                           vbeln = it_vbeln-vbeln
                           AND vkbur <> '    '
                           AND prodh IN s_prodh
                     AND pstyv NOT IN  ('TANN','RENN','ZENN', 'ZRNN' ) .
                         and matnr = p_matnr.
ENDIF.
SORT it_vbeln BY vbeln.
SORT it_vbrp BY vbeln.
LOOP AT it_vbeln.
   LOOP AT it_vbrp WHERE vbeln = it_vbeln-vbeln.
     MOVE-CORRESPONDING  it_vbeln TO it_vbrp.
     MODIFY it_vbrp.
     CLEAR it_vbrp.
   ENDLOOP.
ENDLOOP.
*Selecting Product Heirarchy Materials.
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_prmatnr FROM mvke AS a
                       INNER JOIN mara AS b ON amatnr = bmatnr WHERE
                                  a~prodh IN s_prodh AND
                                  a~vkorg IN s_vkorg AND
                                  a~vtweg IN s_vtweg.
*Get billing doc's for last year first day to current year last day
  SELECT Avbeln Afkdat Avkorg Avtweg A~fkart
         Bfkimg Bumvkz Bumvkn Bfklmg Bvkbur Bmatnr Bprodh Bmatkl
                           INTO CORRESPONDING FIELDS OF TABLE it_VBRP
                           FROM vbrk AS A
                           INNER JOIN VBRP AS B ON Avbeln = Bvbeln
                           WHERE A~fkdat >= v_yr_fir_date AND
                                 A~fkdat <= v_yr_last_date AND
                                 A~vkorg IN s_vkorg  AND
                                 A~vtweg IN s_vtweg  AND
                                 A~spart = p_spart   AND
                                 A~fkart NOT IN ('G2','ZG2','F8','ZF8') AND
                                 B~vkbur <> '    ' AND
                                 B~prodh IN s_prodh AND
                                 B~pstyv NOT IN  ('TANN','RENN','ZENN', 'ZRNN' ) .
*Get materials for sales area and product hier
  SELECT matnr prodh vkorg vtweg
                            INTO CORRESPONDING FIELDS OF TABLE it_prmatnr
                            FROM mvke
                            WHERE prodh IN s_prodh AND
                                   vkorg IN s_vkorg AND
                                   vtweg IN s_vtweg.
  LOOP AT it_prmatnr.
*Get material net weight
    SELECT SINGLE ntgew INTO it_prmatnr-ntgew
                        FROM mara
                        WHERE matnr = it_prmatnr-matnr.
    MODIFY it_prmatnr.
    CLEAR it_prmatnr.
  ENDLOOP.
  SORT it_vbrp BY matnr.
  SORT it_prmatnr BY matnr.
  LOOP AT it_vbrp.
    clear it_prmatnr.
    READ TABLE it_prmatnr WITH KEY matnr = it_vbrp-matnr
                                   vkorg = it_vbrp-vkorg
                                   vtweg = it_vbrp-vtweg.
    IF sy-subrc <> 0.
      DELETE it_vbrp.
      CONTINUE.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " get_vbrk-vbrp
*&      Form  get_data
FORM get_data .
  LOOP AT it_data WHERE vkbur <> '    '.
    DO 4 TIMES.
      CLEAR it_data-fkimg.
*Finding current quarter to get first and last day of this quarter
      CLEAR v_fkimg.
      IF sy-index = 1 AND v_qtr <> sy-index.
        v_fpc = 001.
        v_lpc = 003.
        CLEAR v_fkimg.
        CLEAR v_fdate.
        CLEAR v_ldate.
        PERFORM get_first_last_date.
        PERFORM get_fkimg.
        PERFORM fill_week USING 'QTR'.
      ELSEIF sy-index = 2 AND v_qtr <> sy-index.
        v_fpc = 004.
        v_lpc = 006.
        CLEAR v_fkimg.
        CLEAR v_ldate.
        CLEAR v_fdate.
        PERFORM get_first_last_date.
        PERFORM get_fkimg.
        PERFORM fill_week USING 'QTR'.
      ELSEIF sy-index = 3 AND v_qtr <> sy-index.
        v_fpc = 007.
        v_lpc = 009.
        CLEAR v_ldate.
        CLEAR v_fdate.
        CLEAR v_fkimg.
        PERFORM get_first_last_date.
        PERFORM get_fkimg.
        PERFORM fill_week USING 'QTR'.
      ELSEIF sy-index = 4 AND v_qtr <> sy-index.
        v_fpc = 010.
        v_lpc = 012.
        CLEAR v_ldate.
        CLEAR v_fdate.
        CLEAR v_fkimg.
        PERFORM get_first_last_date.
        PERFORM get_fkimg.
        PERFORM fill_week USING 'QTR'.
      ENDIF.
Get the value for fkimg (Invoiced Quantity).
     perform get_fkimg.
     perform fill_week using 'WK'.
Moving value for fkimg
    ENDDO.
    PERFORM get_period
                      USING v_qtr_fir_date v_wc
                      CHANGING v_curweek v_year.
*Calling subroutines to create fieldcatalog,fill fieldcatalog and
*intenal table dynamicaly based on user selected date(Quarter).
    DO 13 TIMES.
Calling subroutine to get first date of current week
      CLEAR v_fkimg.
      PERFORM get_first_day
                  USING v_date v_wc v_curweek
                  CHANGING v_fdate.
Calling subroutine to get last date of current week
      PERFORM get_last_day
                  USING v_date v_wc v_curweek
                  CHANGING v_ldate.
      PERFORM get_fkimg.
      PERFORM fill_week USING 'WK'.
      v_curweek = v_curweek + 1.
      CLEAR v_fkimg.
    ENDDO.
CALCULATE TOTAL FOR AS ON DATE YEAR
    v_fdate = v_cyfd.
    v_ldate = sy-datum.
    PERFORM get_fkimg.
    it_data-ason_total = v_fkimg.
CALCULATE TOTAL FOR PREVIOUS YEAR
    PERFORM get_first_day
                     USING v_date v_pc '001'
                     CHANGING v_fdate.
    v_cyfd = v_fdate. "current year first day
    "(will be used in as on date)
    v_back_months = 12.
    PERFORM go_months_back USING v_fdate v_back_months CHANGING v_fdate.
    v_lyfd = v_fdate. "last year first day(will be used in goly).
    PERFORM get_last_day
                     USING  v_lyfd v_pc '012'
                     CHANGING v_ldate.
To be checked
   v_yr_fir_date     = v_lyfd.
   v_yr_last_date    = v_ldate.
   perform get_vbrk-vbrp.
    CLEAR v_fkimg.
    PERFORM get_fkimg.
    it_data-ly_total = v_fkimg.
CALCULATION FOR GOLY
*Calculating fkimg for last year.
*Dates passed are last year first date and 12 months back from present
*date.
    v_fdate = v_lyfd.
    v_ldate = sy-datum.
    v_back_months = 12.
    PERFORM go_months_back USING v_ldate v_back_months CHANGING v_ldate.
    PERFORM get_fkimg.
    v_goly_lyfkimg = v_fkimg.
    IF v_goly_lyfkimg <> 0 .
*Calculating fkimg for present year (this will be same as 'As On
*Total')
      v_goly_cyfkimg = it_data-ason_total.
      it_data-goly   =
    (  (  v_goly_cyfkimg  - v_goly_lyfkimg ) / v_goly_lyfkimg ) * 100.
    ELSEIF v_goly_lyfkimg = 0 .
      it_data-goly = 100.
    ENDIF.
    MODIFY it_data.
    CLEAR it_data.
  ENDLOOP.
ENDFORM.                    " get_data
*&      Form  get_first_last_date
      text
FORM get_first_last_date .
*Calling inlude prog subroutine to get first date of Quarter
  PERFORM get_first_day
                    USING v_date v_pc v_fpc
                    CHANGING v_fdate.
   Calling inlude prog subroutine to get last date of month
  PERFORM get_last_day
                    USING v_date v_pc v_lpc
                    CHANGING v_ldate.
ENDFORM.                    " get_first_last_date
*&      Form  get_fkimg
FORM get_fkimg  .
  SORT it_vbrp BY vkbur.
  CLEAR v_fkimg.
  LOOP AT it_vbrp WHERE fkdat >= v_fdate  AND fkdat  <= v_ldate
                        AND vkbur = it_data-vkbur.
    PERFORM get_unit USING it_vbrp-matkl CHANGING v_unit.
    READ TABLE it_prmatnr WITH KEY matnr = it_vbrp-matnr.
    if sy-subrc <> 0.
     it_vbrp-fkimg =  it_vbrp-fkimg * ( it_vbrp-umvkz   /
                                it_vbrp-umvkn ).
    IF v_unit = 'CV'.
      PERFORM convert_to_cv USING it_vbrp-matnr
                                  it_vbrp-fklmg
                                  'CS'
                         CHANGING it_vbrp-fklmg.
    ELSEIF v_unit = 'PAC'.
      PERFORM convert_to_cv USING it_vbrp-matnr
                                  it_vbrp-fklmg
                                  'PAK'
                         CHANGING it_vbrp-fklmg.
added on 12.03.2007 as per the requirement.
    ELSEIF v_unit = 'TAB'.
      PERFORM convert_to_cv USING it_vbrp-matnr
                                   it_vbrp-fklmg
                                   'TAB'
                          CHANGING it_vbrp-fklmg.
*AS PER THE REQUIREMENT THE QTY IS DIVIDED BY 1000
      it_vbrp-fklmg = it_vbrp-fklmg / 1000.
    ELSEIF v_unit = 'TON'.
      it_vbrp-fklmg = ( it_vbrp-fklmg * it_prmatnr-ntgew ) /
                                              1000000.
    ENDIF.
*Deducting sales return invoice quantity
   IF ( it_vbrp-fkart = 'RE'   OR
        it_vbrp-fkart = 'ZRE'  OR
        it_vbrp-fkart = 'ZRE1' OR
        it_vbrp-fkart = 'ZFR'  OR
        it_vbrp-fkart = 'S1' ).
    IF it_vbrp-fkart IN so_rev.
      v_fkimg =  v_fkimg - it_vbrp-fklmg.
    ELSE.
      v_fkimg =  v_fkimg + it_vbrp-fklmg.
    ENDIF.
  ENDLOOP.
  IF v_unit = 'EA'.
    WRITE v_fkimg TO v_fkimg1 DECIMALS 0.
  ELSE.
    v_fkimg1 = v_fkimg.
  ENDIF.
ENDFORM. " get_fkimg
*&      Form  fill_week
FORM fill_week  USING    value(v_wkqc).
  IF v_wkqc = 'WK'.
    CASE sy-index.
      WHEN 1.
        it_data-wk1 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 2.
        it_data-wk2 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 3.
        it_data-wk3 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 4.
        it_data-wk4 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 5.
        it_data-wk5 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 6.
        it_data-wk6 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 7.
        it_data-wk7 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 8.
        it_data-wk8 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 9.
        it_data-wk9 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 10.
        it_data-wk10 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 11.
        it_data-wk11 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 12.
        it_data-wk12 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
      WHEN 13.
        it_data-wk13 = v_fkimg1.
        it_data-tot_week = it_data-tot_week + v_fkimg1.
    ENDCASE.
  ELSEIF v_wkqc = 'QTR'.
    CASE sy-index.
      WHEN 1.
         if sy-index = 1 and v_qtr <> sy-index.
         elseif sy-index = 2 and v_qtr <> sy-index.
         elseif sy-index = 3 and v_qtr <> sy-index.
         elseif sy-index = 4 and v_qtr <> sy-index.
         endif.
        it_data-q1 = v_fkimg1.
      WHEN 2.
        it_data-q2 = v_fkimg1.
      WHEN 3.
        it_data-q3 = v_fkimg1.
      WHEN 4.
        it_data-q4 = v_fkimg1.
    ENDCASE.
  ENDIF.
ENDFORM.                    " fill_week
*&      Form  add_data
FORM add_data .
  MOVE it_data[] TO it_data_temp[].
  SORT it_data BY sqno.
  SORT it_data_temp BY sqno.
  LOOP AT it_data WHERE summery <> ' ' AND summery <> 'N'.
    IF it_data-summery = 'X' .
      LOOP AT it_data_temp
              WHERE sqno >= it_data-fr AND sqno <= it_data-upto.
        PERFORM add_fields.
      ENDLOOP.
    ENDIF.
*if it_data-ason_total = 0 .
delete it_data.
continue.
*endif.
    MODIFY it_data.
    CLEAR  it_data.
  ENDLOOP.
  MOVE it_data[] TO it_data_temp[].
  LOOP AT it_data WHERE summery <> ' ' AND summery <> 'N'.
    IF it_data-summery = 'A'.
      READ TABLE it_data_temp WITH KEY sqno = it_data-fr.
      IF sy-subrc = 0.
        PERFORM add_fields.
      ENDIF.
      READ TABLE it_data_temp WITH KEY sqno = it_data-upto.
      IF sy-subrc = 0.
        PERFORM add_fields.
      ENDIF.
    ENDIF.
    MODIFY it_data.
    CLEAR  it_data.
  ENDLOOP.
ENDFORM.                    " add_data
*&      Form  add_fields
FORM add_fields .
  it_data-q1 = it_data-q1 + it_data_temp-q1.
  it_data-q2 = it_data-q2 + it_data_temp-q2.
  it_data-q3 = it_data-q3 + it_data_temp-q3.
  it_data-q4 = it_data-q4 + it_data_temp-q4.
  it_data-wk1 = it_data-wk1 + it_data_temp-wk1.
  it_data-wk2 = it_data-wk2 + it_data_temp-wk2.
  it_data-wk3 = it_data-wk3 + it_data_temp-wk3.
  it_data-wk4 = it_data-wk4 + it_data_temp-wk4.
  it_data-wk5 = it_data-wk5 + it_data_temp-wk5.
  it_data-wk6 = it_data-wk6 + it_data_temp-wk6.
  it_data-wk7 = it_data-wk7 + it_data_temp-wk7.
  it_data-wk8 = it_data-wk8 + it_data_temp-wk8.
  it_data-wk9 = it_data-wk9 + it_data_temp-wk9.
  it_data-wk10 = it_data-wk10 + it_data_temp-wk10.
  it_data-wk11 = it_data-wk11 + it_data_temp-wk11.
  it_data-wk12 = it_data-wk12 + it_data_temp-wk12.
  it_data-wk13 = it_data-wk13 + it_data_temp-wk13.
  it_data-tot_week = it_data-tot_week + it_data_temp-tot_week.
  it_data-ly_total = it_data-ly_total + it_data_temp-ly_total.
  it_data-ason_total = it_data-ason_total + it_data_temp-ason_total.
  it_data-allindia = it_data-allindia + it_data_temp-allindia.
ENDFORM.                    " add_fields
*&      Form  color_data
      text
FORM color_data.
  LOOP AT it_data.
  Color
    CLEAR   color.
    REFRESH color.
   IF NOT it_data-summery IS INITIAL.
     IF it_data-summery <> ' ' and it_data-summery <> 'N'.
      color-color-col = '5'.
      color-color-int = '1'.
      color-color-inv = '1'.
     color-nokeycol = 'X'.
      color-fname = 'Q1'. APPEND color.
      color-fname = 'Q2'. APPEND color.
      color-fname = 'Q3'. APPEND color.
      color-fname = 'Q4'. APPEND color.
      color-fname = 'TOT_WEEK'. APPEND color.
      color-fname = 'WK1'.  APPEND color.
      color-fname = 'WK2'.  APPEND color.
      color-fname = 'WK3'.   APPEND color.
      color-fname = 'WK4'.  APPEND color.
      color-fname = 'WK5'.  APPEND color.
      color-fname = 'WK6'.  APPEND color.
      color-fname = 'WK7'.  APPEND color.
      color-fname = 'WK8'.  APPEND color.
      color-fname = 'WK9'.  APPEND color.
      color-fname = 'WK10'. APPEND color.
      color-fname = 'WK11'. APPEND color.
      color-fname = 'WK12'. APPEND color.
      color-fname = 'WK13'. APPEND color.
      color-fname = 'SUM_TEXT'. APPEND color.
      color-fname = 'LY_TOTAL'. APPEND color.
      color-fname = 'ASON_TOTAL'. APPEND color.
      color-fname = 'GOLY'. APPEND color.
      it_data-color = color[].
      MODIFY it_data.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "color_data
*&      Form  output_data
FORM output_data .
*To delete the GR Punjab And UP West
  loop at it_data.
    if it_data-SQNO = '3' or it_data-SQNO = '6'.
      delete it_data.
    endif.
  endloop.
  PERFORM fill_layout_structure.
  PERFORM fill_listheader USING it_listheader.
  PERFORM fill_fieldcatalog USING 'SUM_TEXT' 'Sales Office' 10
'IT_DATA' .
  IF v_qtr = 1.
    PERFORM fill_fieldcatalog  USING :
     'WK1'       'WK1'    10  'IT_DATA' ,
     'WK2'       'WK2'    10  'IT_DATA' ,
     'WK3'       'WK3'    10  'IT_DATA' ,
     'WK4'       'WK4'    10  'IT_DATA' ,
     'WK5'       'WK5'    10  'IT_DATA' ,
     'WK6'       'WK6'    10  'IT_DATA' ,
     'WK7'       'WK7'    10  'IT_DATA' ,
     'WK8'       'WK8'    10  'IT_DATA',
     'WK9'       'WK9'    10  'IT_DATA' ,
     'WK10'      'WK10'   10  'IT_DATA' ,
     'WK11'      'WK11'   10  'IT_DATA' ,
     'WK12'      'WK12'   10  'IT_DATA' ,
     'WK13'      'WK13'   10  'IT_DATA' ,
     'TOT_WEEK'  'Weekly Total' 10 'IT_DATA' ,
     'Q2'        'Q2 CY'     10  'IT_DATA' ,
     'Q3'        'Q3 CY'     10  'IT_DATA' ,
     'Q4'        'Q4 CY'     10  'IT_DATA' .
  ELSEIF v_qtr = 2.
    PERFORM fill_fieldcatalog  USING :
      'Q1'     'Q1 CY'    10 'IT_DATA' ,
     'WK1'       'WK1'    10  'IT_DATA' ,
     'WK2'       'WK2'    10  'IT_DATA' ,
     'WK3'       'WK3'    10  'IT_DATA' ,
     'WK4'       'WK4'    10  'IT_DATA' ,
     'WK5'       'WK5'    10  'IT_DATA' ,
     'WK6'       'WK6'    10 'IT_DATA' ,
     'WK7'       'WK7'    10  'IT_DATA' ,
     'WK8'       'WK8'    10  'IT_DATA' ,
     'WK9'       'WK9'    10  'IT_DATA',
     'WK10'      'WK10'   10 'IT_DATA' ,
     'WK11'      'WK11'   10  'IT_DATA' ,
     'WK12'      'WK12'   10 'IT_DATA' ,
     'WK13'      'WK13'   10  'IT_DATA' ,
     'TOT_WEEK'  'Weekly Total' 10 'IT_DATA' ,
     'Q3'        'Q3 CY'     10  'IT_DATA' ,
     'Q4'        'Q4 CY'     10 'IT_DATA' .
  ELSEIF v_qtr = 3.
    PERFORM fill_fieldcatalog USING :
     'Q1'     'Q1 CY'     10  'IT_DATA' ,
     'Q2'     'Q2 CY'     10  'IT_DATA' ,
     'WK1'       'WK1'    10  'IT_DATA' ,
     'WK2'       'WK2'    10  'IT_DATA' ,
     'WK3'       'WK3'    10  'IT_DATA' ,
     'WK4'       'WK4'    10  'IT_DATA' ,
     'WK5'       'WK5'    10  'IT_DATA' ,
     'WK6'       'WK6'    10  'IT_DATA' ,
     'WK7'       'WK7'    10  'IT_DATA' ,
     'WK8'       'WK8'    10  'IT_DATA' ,
     'WK9'       'WK9'    10  'IT_DATA' ,
     'WK10'      'WK10'   10  'IT_DATA' ,
     'WK11'      'WK11'   10  'IT_DATA' ,
     'WK12'      'WK12'   10  'IT_DATA' ,
     'WK13'      'WK13'   10  'IT_DATA' ,
     'TOT_WEEK'  'Weekly Total' 10 'IT_DATA' ,
     'Q4'        'Q4 CY'  10  'IT_DATA' .
  ELSEIF v_qtr = 4.
    PERFORM fill_fieldcatalog USING :
    'Q1'     'Q1 CY'     10 'IT_DATA' ,
    'Q2'     'Q2 CY'     10 'IT_DATA' ,
    'Q3'     'Q3 CY'     10 'IT_DATA' ,
    'WK1'       'WK1'    10 'IT_DATA' ,
    'WK2'       'WK2'    10 'IT_DATA' ,
    'WK3'       'WK3'    10 'IT_DATA' ,
    'WK4'       'WK4'    10 'IT_DATA' ,
    'WK5'       'WK5'    10 'IT_DATA' ,
    'WK6'       'WK6'    10 'IT_DATA' ,
    'WK7'       'WK7'    10 'IT_DATA' ,
    'WK8'       'WK8'    10 'IT_DATA' ,
    'WK9'       'WK9'    10 'IT_DATA' ,
    'WK10'      'WK10'   10 'IT_DATA' ,
    'WK11'      'WK11'   10 'IT_DATA' ,
    'WK12'      'WK12'   10 'IT_DATA' ,
    'WK13'      'WK13'   10  'IT_DATA' ,
    'TOT_WEEK'  'Weekly Total' 10 'IT_DATA' .
  ENDIF.
  PERFORM fill_fieldcatalog USING :
             'LY_TOTAL' 'LY TOTAL' 10 'IT_DATA' ,
             'ASON_TOTAL' 'AS ON TOTAL' 10 'IT_DATA',
             'GOLY'        'GOLY %'  10 'IT_DATA'.
  PERFORM alv_list_display.
ENDFORM.                    "output_data
*FORM TO FILL FIELDCATALOG                                             *
FORM fill_fieldcatalog USING  f d o t .
  DATA wa_fieldcat TYPE slis_fieldcat_alv.
  STATICS pos LIKE sy-index VALUE 1.
  pos = pos + 1.
  CLEAR wa_fieldcat.
  MOVE : 1     TO   wa_fieldcat-row_pos,
         pos   TO   wa_fieldcat-col_pos,
         f     TO   wa_fieldcat-fieldname,
         d     TO   wa_fieldcat-seltext_l,
         o     TO   wa_fieldcat-outputlen,
         t     TO   wa_fieldcat-tabname.
  APPEND wa_fieldcat TO it_fieldcat.
ENDFORM.                    "FILL_FIELDCATALOG
*FORM FOR FILLING LISTHEADER
FORM fill_listheader USING it_listheader TYPE slis_t_listheader.
  SELECT SINGLE vtext INTO vtext FROM t179t WHERE prodh IN s_prodh.
  DATA : wa_listheader TYPE slis_listheader,
         v_variantname LIKE  varit-vtext.
  CLEAR wa_listheader.
  wa_listheader-typ  = 'H'.
  wa_listheader-info ='Quarter Sales Product Group Report'.
  APPEND wa_listheader TO it_listheader.
     CLEAR wa_listheader.
     wa_listheader-typ  = 'S'.
     wa_listheader-key  = 'Date:'.
     write v_date to wa_listheader-info.
     APPEND wa_listheader to it_listheader.
  CLEAR wa_listheader.
  wa_listheader-typ  = 'S'.
  wa_listheader-key  = 'Product Heirarchy'.
  WRITE vtext TO wa_listheader-info.
  APPEND wa_listheader TO it_listheader.
*To print the variantname as the report header
  PERFORM get_variant_name USING sy-repid sy-slset
                          CHANGING v_variantname.
  IF NOT v_variantname IS INITIAL.
    CLEAR wa_listheader.
    wa_listheader-typ  = 'S'.
    wa_listheader-key  = 'Variant '.
    wa_listheader-info = v_variantname.
    APPEND wa_listheader TO it_listheader.
  ENDIF.
**Displaying Sales Organisation
   IF  s_vkorg-low IS NOT INITIAL AND s_vkorg-high IS NOT INITIAL.
     CLEAR wa_listheader.
     wa_listheader-typ = 'S '.
     wa_listheader-key = 'Sales Organisation:'.
     CONCATENATE '' s_vkorg-low 'To'
*s_vkorg-high
     INTO
     wa_listheader-info SEPARATED BY space.
     APPEND wa_listheader TO it_listheader.
  ELSEIF  s_vkorg-low IS NOT INITIAL .
     CLEAR wa_listheader.
     wa_listheader-typ = 'S'.
     wa_listheader-key = 'Sales Organisation:'.
     CONCATENATE '' s_vkorg-low INTO
     wa_listheader-info.
     APPEND wa_listheader TO it_listheader.
ELSEIF  s_vkorg-low IS INITIAL AND s_vkorg-high IS  INITIAL.
     CLEAR wa_listheader.
     wa_listheader-typ = 'S'.
     wa_listheader-info  = 'Sales Organisation: *'.
     APPEND wa_listheader TO it_listheader.
ENDIF.
**Displaying Distribution Channel
   IF  s_vtweg-low IS NOT INITIAL AND s_vtweg-high IS NOT INITIAL.
     CLEAR wa_listheader.
     wa_listheader-typ = 'S '.