Required Shade column

Question

Hello Abap Gurus;
I have a report of invoice list.In this report i want shade column
of the SD document: Delivery: Item data in which the shade is displayed.I m attaching the code also.
*& Report  ZRPT_SD_002
REPORT  zrpt_sd_002 LINE-SIZE 70 NO STANDARD PAGE HEADING
                        MESSAGE-ID zcvs.
                          TABLES
TABLES : vbak  ,              " Sales Document Header
         vbap  ,              " Sales Document Item
         kna1  ,              " Customer Master
         vbkd  ,              " Business Data
         t023t ,              " MAterial Group
         ekkn  ,
         mara ,
         lfa1,
         t134t ,              " Material Type
         t024d ,              " MAterial Controller
         t188t ,              " Zone
         tvkbt ,              " Sales OFfice Text
         tvaut ,              " Order Reason
         vbfa  ,              " Order Status
         vbep  ,              " Schedule Line Data
         mska  ,              " Sales Order Stock
         vbrp  ,              " Billing Header
         afko  ,              " Production Order
         vbrk  ,              " Billing Header
         konv  ,              " Condition Type Table
         likp  ,              " Delivery Header
         knb1  ,
         bkpf  ,
         cabnt , vttp,vttk,
         tvro,vbpa.
TYPE-POOLS
TYPE-POOLS : slis.
VARIABLE DECLARATION
DATA       : maktx  LIKE makt-maktx,
             knttp  LIKE ekpo-knttp,
             city1  LIKE adrc-city1,
             tknum  LIKE vttk-tknum,
             name1  LIKE lfa1-name1,
             lzone  LIKE kna1-lzone,
             mtbez  LIKE t134t-mtbez,
             wgbez  LIKE t023t-wgbez,            " Material Group Text
             bezei  LIKE tvaut-bezei,            " Order Reason Text
             kvgr1  LIKE vbak-kvgr1,             " Product Manager
             vtext  LIKE t188t-vtext,            " Product Manager Text
             vtext2 LIKE t188t-vtext,            " Regional Mgnr Text
             vtext3 LIKE t188t-vtext,            " Key Account Group
             vtext4 LIKE t188t-vtext,            " Special Group
             vtext5 LIKE t188t-vtext,            " Executive
             vbezei LIKE tvkbt-bezei,            " Sales office
             matkl  LIKE mara-matkl,             " Material Group
             mtart  LIKE mara-mtart,             " Material Type
             erdat  LIKE vbak-erdat,
             audat  LIKE vbak-audat,
             auart  LIKE vbak-auart,
             bstkd  LIKE vbkd-bstkd,
             prdha  LIKE mara-prdha,
             belnr  LIKE bkpf-belnr,
             text(30)   TYPE  c ,
             v_tabix LIKE sy-tabix,
             lifnr    LIKE lfa1-lifnr,
             tname    LIKE lfa1-name1,
             bstdk    LIKE vbkd-bstdk,
             ordat    LIKE vbrk-erdat,
             stext    LIKE tspat-vtext,
             ktext    LIKE t151t-ktext,
             v_brtxt  LIKE t016t-brtxt,
             v_month  TYPE i,p_mon  TYPE i,
             v_mname(20),p_mname(20),
             v_ptext  LIKE t052u-text1.
DATA : cl_data LIKE clobjdat OCCURS 0 WITH HEADER LINE.
DATA : i_cl_data LIKE clobjdat OCCURS 0 WITH HEADER LINE.
DATA :       dmbtr LIKE bseg-dmbtr,
             gbsta LIKE vbup-gbsta,
             mbdat LIKE vbep-mbdat,
             kalab LIKE mska-kalab,
             bonba LIKE vbrp-bonba,
             gltrp LIKE afko-gltrp,
             mblnr LIKE mseg-mblnr,
             budat LIKE mkpf-budat,
             prtext  LIKE t179t-vtext,
             signi LIKE vttk-signi,       " Truck Number
             landx LIKE t005t-landx.
DATA :       BEGIN OF tline OCCURS 0 .
        INCLUDE STRUCTURE tline .
DATA :       END OF tline .
DATA :       soh LIKE rstxt-tdname ,
             destcty(30).
DATA :       klmeng LIKE  vbap-klmeng.
DATA :       tabix  LIKE  sy-tabix.
DATA :       cmgst  LIKE  vbuk-cmgst,
             option(10) TYPE c .
DATA : BEGIN OF delivery_header.
        INCLUDE STRUCTURE likp.
DATA : END OF delivery_header.
DATA : BEGIN OF shipment_header.
        INCLUDE STRUCTURE vttk.
DATA : END OF shipment_header.
DATA : BEGIN OF ivbrk OCCURS 0.
        INCLUDE STRUCTURE vbrk.
DATA : brsch LIKE kna1-brsch,
       name1 LIKE kna1-name1,
       ort01  LIKE kna1-ort01.
DATA : END OF ivbrk.
DATA : v_regio LIKE kna1-regio,
       v_brsch LIKE kna1-brsch,
       v_ort01 LIKE kna1-ort01,
       v_land1  LIKE kna1-land1.
New For Days Start
DATA: len TYPE i.
DATA : BEGIN OF head OCCURS 0,
       field(5),
       text(30),
       END OF head.
DATA :   p_ftext1(30),
         p_ftext2(30),
         p_ftext3(30),
         p_ftext4(30),
         p_ftext5(30),
         p_ftext6(30).
New For Days End
                      DECLARATION FOR ALV
DATA: fieldtab TYPE slis_t_fieldcat_alv,
       heading  TYPE slis_t_listheader,
       layout   TYPE slis_layout_alv,
       events   TYPE slis_t_event,
       repname  LIKE sy-repid,
       f2code   LIKE sy-ucomm VALUE  '&ETA',
       g_save(1) TYPE c,
       g_variant LIKE disvariant,
       gx_variant LIKE disvariant,
       g_exit(1) TYPE c.
DATA: keyinfo  TYPE slis_keyinfo_alv.
CONSTANTS: formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: alv_print        TYPE slis_print_alv.
DATA: alv_detail_func(30).
DATA: g_pos TYPE i.
DATA: tabname   TYPE slis_tabname.
INTERNAL TABLES DECLARATION
DATA : BEGIN OF ivbeln OCCURS 1,
       vbeln    LIKE vbrk-vbeln,         " Billing Document
       posnr    LIKE vbrp-posnr,         " Billing Doc Item
       fkart    LIKE vbrk-fkart,         " Billing Type
       vbtyp    LIKE vbrk-vbtyp,         " SD Docnument Category
       vbtyp_desc(35)         ,          " Vbtyp description
       vkgrp    LIKE vbrp-vkgrp,         " Sales Group
       fkdat    LIKE vbrk-fkdat,         " Billing Date
       matnr    LIKE vbrp-matnr,         " Material
       arktx    LIKE vbrp-arktx,         " Material Desc
       kunnr    LIKE vbrk-kunag,         " Customer Code
       name1    LIKE kna1-name1,         " Customer Name
       ort01    LIKE kna1-ort01,         " Customer City
       fkimg    LIKE vbrp-fkimg,         " Billed Qty
       werks    LIKE vbrp-werks,         " Plant
       pl_land1 LIKE t001w-land1,        " Plant Country
       pl_regio LIKE t001w-regio,        " Plant Region Code
       regio_tx LIKE t005u-bezei,        " Plant Region Name
       netwr    LIKE vbrp-netwr,         " Net Price
       vkorg    LIKE vbrk-vkorg,         " Sales Organisation
       vtext    LIKE tvkot-vtext,        " Sales Org.Text
       vtweg    LIKE vbrk-vtweg,         " Distribution Channel
       vttxt    LIKE tvtwt-vtext,        " Dist.Channel Text
       vkbur    LIKE vbrp-vkbur,         " Sales Office
       vbezei   LIKE tvkbt-bezei,        " Sales Office Text
       spart    LIKE vbrp-spart,         " Division
       stext    LIKE tspat-vtext,        " Sales Division Text
       kvgr1    LIKE vbrp-kvgr1,         " District
       vtext1   LIKE tvv1t-bezei,        " District Name
       kvgr2    LIKE vbrp-kvgr2,         " Taluka
       vtext2   LIKE t188t-vtext,        " Taluka Name
       kvgr3    LIKE vbrp-kvgr3,         " Village
       vtext3   LIKE t188t-vtext,        " Village Name
       kvgr4    LIKE vbrp-kvgr4,         " Special Group
       vtext4   LIKE t188t-vtext,        " Special Group
       kvgr5    LIKE vbrp-kvgr5,         " Executive
       vtext5   LIKE t188t-vtext,        " Executive Text
      ZZLZONE  LIKE  VBAP-ZZLZONE ,     " Transport.Zone(Sold To Party)
       lztxt    LIKE  tzont-vtext,       " Trans.Zone Desc(Sold To Party)
       waerk    LIKE vbap-waerk,         " Document Currency
       inco1    LIKE vbkd-inco1,         " Inco Terms1
       inco2    LIKE vbkd-inco2,         " Inco Terms2
       bukrs    LIKE vbrk-bukrs,         " Company Code
       lgort    LIKE vbrp-lgort,         " Storage Loc
       vrkme    LIKE  vbrp-vrkme,        " Sales Unit
       aubel    LIKE  vbrp-aubel,        " Sales Doc
       aupos    LIKE  vbrp-aupos,        " Sales Doc Item
       audat    LIKE  vbak-audat,        " Sales Order Date
       klmeng   LIKE  vbap-klmeng,       " Sales Qty
       knumv    LIKE  konv-knumv,        " Cond.Doc No
       frate    LIKE  konv-kbetr,        " Rate
       fvalue   LIKE  konv-kwert,        " Value
       erate    LIKE  konv-kbetr,        " Excise Rate
       evalue   LIKE  konv-kwert,        " Excise Value
       kschl    LIKE  konv-kschl,        " Condition Type
       mtart    LIKE  mara-mtart,        " Material TYpe
       matkl    LIKE  mara-matkl,        " Material Group
       stceg    LIKE  vbrk-stceg,        " VAT Reg.No
       sfakn    LIKE  vbrk-sfakn,        " Cancelled Bill Doc No
       sfakn1   LIKE  vbrk-sfakn,        " Reversed Bill Doc No
       rfbsk    LIKE  vbrk-rfbsk,        " Accounting Transfer Status
       fksto    LIKE  vbrk-fksto,        " Bill Doc.Cancel Ind
       fksto_tx(60),                     " Bill Doc.Cancel text
       erdat    LIKE  vbrk-erdat,        " Creation Date
       erzet    LIKE  vbrk-erzet,        " Creattion Time
       regio    LIKE  kna1-regio,        " Region
       pstyv    LIKE  vbrp-pstyv,        " Sales Doc Item Cat.
       vgbel    LIKE  vbak-vgbel,        " Ref.Doc No
       vgpos    LIKE  vbap-vgpos,        " Ref.Doc.Item.No
       cmgst    LIKE  vbuk-cmgst,        " Credit Status
       zterm    LIKE  vbrk-zterm,        " Pay Term
       auart    LIKE  vbak-auart,        " Sales Order Type
       bstkd    LIKE  vbkd-bstkd,        " Cust.PO No
       bstdk    LIKE  vbkd-bstdk,        " Cust.PO Date
       mwsbp    LIKE  vbrp-mwsbp,        " Tax Amount
       belnr    LIKE  bkpf-belnr,        " Acc.Doc No
       kzwi1    LIKE  vbrp-kzwi1  ,      " Base Price
       kzwi2    LIKE  vbrp-kzwi2  ,      "
       kzwi3    LIKE  vbrp-kzwi3  ,      " Discounts
       kzwi4    LIKE  vbrp-kzwi4,        " Packing and forwarding
       kzwi5    LIKE  vbrp-kzwi5  ,      " Excise
       kzwi6    LIKE  vbrp-kzwi6  ,      " LST/ CST
       mtbez    LIKE  t134t-mtbez,       " Material Type Text
       wgbez    LIKE t023t-wgbez,        " Material Group Text
       land1    LIKE vbrk-land1,         " Country
       landx(20),                        " Country Text
       abrvw    LIKE tvlvt-abrvw,        " Usage Ind.
       reasn    LIKE tvlvt-bezei,        " Desc
       prdha    LIKE mara-prdha,         " Prod Hir.
       edg(2),
       char1    LIKE  ausp-atwrt ,       " Characteristic
       char2    LIKE  ausp-atwrt ,       " Characteristic
       char3    LIKE  ausp-atwrt ,       " Characteristic
       char4    LIKE  ausp-atwrt ,       " Characteristic
       char5    LIKE  ausp-atwrt ,       " Characteristic
       char6    LIKE  ausp-atwrt ,       " Characteristic
       char7    LIKE  ausp-atwrt ,       " Characteristic
       char8    LIKE  ausp-atwrt ,       " Characteristic
       char9    LIKE  ausp-atwrt ,       " Characteristic
       char10   LIKE ausp-atwrt ,        " Characteristic
       char11   LIKE ausp-atwrt ,        " Characteristic
       char12   LIKE ausp-atwrt ,        " Characteristic
       char13   LIKE ausp-atwrt ,        " Characteristic
       char14   LIKE ausp-atwrt ,        " Characteristic
       char15   LIKE ausp-atwrt ,        " Characteristic
       char16   LIKE ausp-atwrt ,        " Characteristic
       lifnr    LIKE lfa1-lifnr,         " Vendor
       tname    LIKE lfa1-name1,         " Vendor Name
       ordat    LIKE vbrk-fkdat,         " order Date
       charg    LIKE vbrp-charg,         " Batch
       kdgrp_auft LIKE vbrp-kdgrp_auft,  " Customer Sales Group
       ktext    LIKE t151t-ktext,        " Customer Sales Group Text
       signi    LIKE vttk-signi,         " License No
       route    LIKE likp-route,         " Route
       routid   LIKE tvro-routid,        " Route ID
       rt_bezei LIKE tvrot-bezei,        " Route Desc
       vstel    LIKE likp-vstel,         " Shipping Point
       sp_vtext LIKE tvstt-vtext,        " Ship Point Desc
       distz    LIKE v_tvro_com-distz,   " Distance
       brsch    LIKE kna1-brsch,         " Industry Key
       brtxt    LIKE t016t-brtxt,        " Industry Name
       mname    LIKE kna1-name1,         " Name
       exnum    LIKE j_1iexchdr-exnum,   " Ex.Number
       exdat    LIKE j_1iexchdr-exdat,   " Ex.Date
       exbed    LIKE j_1iexcdtl-exbed,   " Ex.BED Amt
       ecs      LIKE j_1iexcdtl-ecs,     " Ex.ECESS Amt
       expind   LIKE j_1iexchdr-expind,  " Export Ind.
       expind_desc LIKE dd07t-ddtext,    " Export Ind.Desc
       exgrp    LIKE j_1iexchdr-exgrp,   " Exc.Group
       srgrp    LIKE j_1iexchdr-srgrp,   " Series Group
       sanum    LIKE vbap-vbeln,         " Sales Order No
       sapos    LIKE vbap-posnr,         " SO Item No
       tknum    LIKE vttk-tknum,         " Shipment No
       exti1    LIKE vttk-exti1,         " Vehicle Number
       exti2    LIKE vttk-exti2,         " Driver Name
       tr_count TYPE i,                  " Truck Count
       vsart    LIKE vttk-vsart,         " Shipment Type
       st_bezei LIKE t173t-bezei,        " Shipment Type Desc
       zb00     LIKE konv-kbetr,         " Basic Rate
       xcpdk    LIKE vbpa-xcpdk,         " One Time Account
       adrnr    LIKE vbpa-adrnr,         " Address Number
       shpcd    LIKE kna1-kunnr,         " Ship to Party
       shpnm    LIKE kna1-name1,         " Ship to Party Name
       sh_regio LIKE kna1-regio,         " Region(SH)
       sh_land1 LIKE kna1-land1,         " Country
      SH_LZONE LIKE  VBAP-ZZLZONE ,     " Transport.Zone(Ship To Party)
       sh_lztxt LIKE  tzont-vtext,       " Trans.Zone Desc(Ship To Party)
       mblnr    LIKE mseg-mblnr,         " Material Doc No
       budat    LIKE mkpf-budat,         " Doc Date
       konda    LIKE vbrk-konda,         " Sales Zone
       ptext    LIKE t188t-vtext,        " Text
       zrbat    LIKE konv-kwert,         " Rebate Amount
       serdt    LIKE vbak-erdat,         " S.A Create Date
       groes    LIKE mara-groes,         " Size/Dimensions
       dtext(20),                        "
       prodt(20),                        "
       mtext(20),                        "
       prdqy    LIKE vbrp-fkimg,         "
       aufnr    LIKE afko-aufnr,         " Order No
       city1    LIKE adrc-city1,         " City
       packno(3),                        " Pack No
       inv_rate LIKE konv-kbetr,         " Inv Rate
       inv_amt  LIKE konv-kwert,         " Inv Amount
       frt_rate LIKE konv-kbetr,         " Frt Rate
       frt_amt  LIKE konv-kwert,         " Frt Amount
       td_fkimg LIKE vbrp-fkimg,         " Trade Inv.Qty
       nt_fkimg LIKE vbrp-fkimg,         " Non-Trade Inv.Qty
       st_fkimg LIKE vbrp-fkimg,         " Stk.Trsf.Inv.Qty
       tot_fkimg LIKE vbrp-fkimg,        " Total
       or_dl_vbeln  LIKE lips-vbeln,     " Original Delivery
       or_dl_posnr  LIKE lips-posnr,     " Original Del.Item
       or_in_vbeln  LIKE vbrp-vbeln,     " Original Invoice
       or_in_fkdat  LIKE vbrk-fkdat,     " Original Inv.Date
       or_in_posnr  LIKE vbrp-posnr,     " Original Inv.Item
       or_in_knumv  LIKE vbrk-knumv,     " Original Inv.Cond.No
       or_in_frt_amt LIKE konv-kwert,    " Original Frt Amount
       or_in_fkimg   LIKE vbrp-fkimg,    " Original Qty
       diff_date  TYPE  p,               " Date Differance
       pfield1      LIKE vbrp-fkimg,                        " Day 1
       pfield2      LIKE vbrp-fkimg,                        " Day 2
       pfield3      LIKE vbrp-fkimg,                        " Day 3
       pfield4      LIKE vbrp-fkimg,                        " Day 4
       pfield5      LIKE vbrp-fkimg,                        " Day 5
       pfield6      LIKE vbrp-fkimg,     " Above Days
       pfield7      LIKE vbrp-fkimg,     " TOTAL DAYS
       bolnr        LIKE likp-bolnr,    " LR/DC No
       INCLUDE STRUCTURE ZSD_MATGROUPS.  " Inc.For Mat.Groups
       chaname TYPE lfa1-name1,
       lcnum  TYPE vbkd-lcnum,
       tdline TYPE tline-tdline,
       docno  type j_1iexchdr-docno.
DATA:  END   OF ivbeln.
DATA  : BEGIN OF i_mat_tab OCCURS 0,
        dtext LIKE ivbeln-dtext,
        prodt(20),
        mtext(20),
        name1 LIKE ivbeln-name1,
        kunnr LIKE ivbeln-kunnr,
        fkimg LIKE ivbeln-fkimg,
        END OF i_mat_tab.
DATA  : BEGIN OF it_vbtyp OCCURS 0.
        INCLUDE STRUCTURE dd07v.
DATA  : END OF it_vbtyp.
DATA  : BEGIN OF i_mseg OCCURS 0.
        INCLUDE STRUCTURE mseg.
DATA  : END OF i_mseg.
DATA  : BEGIN OF i_mseg_coll OCCURS 0,
        matnr  LIKE mseg-matnr,
        charg  LIKE mseg-charg,
        menge  LIKE mseg-menge,
        aufnr  LIKE mseg-aufnr,
        werks  LIKE mseg-werks,
        END OF i_mseg_coll.
*-- For Sales Plan Details
DATA  : exnum    LIKE j_1iexchdr-exnum,
        exdat    LIKE j_1iexchdr-exdat,
        exbed    LIKE j_1iexchdr-exbed,
        expind   LIKE j_1iexchdr-expind,
        exgrp    LIKE j_1iexchdr-exgrp,
        srgrp    LIKE j_1iexchdr-srgrp,
        shpcd    LIKE kna1-kunnr,
        shpnm    LIKE kna1-name1,
        shreg    LIKE kna1-regio,
        shlnd    LIKE kna1-land1,
        xcpdk    LIKE vbpa-xcpdk,
        adrnr    LIKE vbpa-adrnr,
        sanum    LIKE vbap-vbeln,
        serdt    LIKE vbak-erdat,
        ptext    LIKE t188t-vtext,
        sapos    LIKE vbap-posnr.
DATA  : BEGIN OF iitem OCCURS 1,
        kunnr LIKE ivbeln-kunnr,
        name1 LIKE ivbeln-name1,
        vkbur LIKE ivbeln-vkbur,
        vbezei LIKE ivbeln-vbezei,
        dtext LIKE tvtwt-vtext,
        matnr LIKE ivbeln-matnr,
        arktx LIKE ivbeln-arktx,
       VTWEG LIKE ZCVI_VBRKVBRP-VTWEG,
        land1 LIKE kna1-land1,
        landx LIKE t005t-landx,
        END OF iitem.
DATA  : BEGIN OF t_konv OCCURS 0,
        knumv LIKE konv-knumv,
        kposn LIKE konv-kposn,
        krech LIKE konv-krech,
        kwert LIKE konv-kwert,
        kbetr LIKE konv-kbetr,
        kawrt LIKE konv-kawrt,
        kschl LIKE konv-kschl,
        END OF t_konv.
DATA  : kunnr LIKE kna1-name1,
        pdate LIKE sy-datum,
        frate LIKE konv-kbetr,
        erate LIKE konv-kbetr,
        evalue LIKE konv-kwert,
        fvalue LIKE konv-kwert,
        zwels LIKE knb1-zwels.
*DATA  : BEGIN OF ISDCHAR OCCURS 0 .
       INCLUDE STRUCTURE ZCTA_SDCHAR .
*DATA    END   OF ISDCHAR .
DATA  : BEGIN OF it_char OCCURS 0.
DATA  : tabix(2)     TYPE c,
        atbez(30),
        descrp(30)   TYPE c.
        INCLUDE STRUCTURE vbmuez.
DATA  : END   OF it_char.
DATA  : ichar LIKE sel_char OCCURS 0 WITH HEADER LINE.
DATA  : reasn   LIKE tvlvt-bezei.
                      FIELD-SYMBOLS                                  *
FIELD-SYMBOLS : <table>    TYPE  table ,
                <struc> ,
                <field> ,
                <component> .
Data Declaration for Dynamic Assignment                              *
DATA : alv_fieldcat    TYPE                 slis_t_fieldcat_alv,
       lt_alv_cat      TYPE TABLE OF        lvc_s_fcat,
       it_fieldcat     LIKE LINE  OF        lt_alv_cat.
DATA : i_table         TYPE REF   TO        data,
       i_structure     TYPE REF   TO        data.
DATA : new_tabix  LIKE sy-tabix.
DATA : v_ebeln LIKE ekkn-ebeln ,
       v_ebelp LIKE ekkn-ebelp ,
       groes   LIKE mara-groes.
DATA : t_char LIKE sel_char OCCURS 0 WITH HEADER LINE.
     Macro Definition for assigning and unassigning component
Assign a field to a component and component to a structure
DEFINE assign_component.
  assign &1 to <component>.
  assign component <component> of structure <struc> to <field>.
END-OF-DEFINITION.
Unassign a Component.
DEFINE unassign_field.
  if &1 is assigned.
    unassign &1.
  endif.
END-OF-DEFINITION.
                SELECTION - SCREEN
*For ALV Variant
SELECTION-SCREEN BEGIN OF BLOCK d WITH FRAME TITLE text-s01.
PARAMETERS: p_vari LIKE disvariant-variant. " ALV Variant
SELECTION-SCREEN END OF BLOCK d.
For Basic Data
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-s02.
SELECT-OPTIONS: s_kunnr FOR vbrk-kunrg MATCHCODE OBJECT debi,
                s_vbeln FOR vbrk-vbeln MATCHCODE OBJECT vmva,
                s_fkdat FOR vbrk-fkdat OBLIGATORY,
                s_matnr FOR vbrp-matnr MATCHCODE OBJECT mat1,
                s_fkart FOR vbrk-fkart ,
                s_pstyv FOR vbap-pstyv,
                s_spart FOR vbrk-spart.
SELECTION-SCREEN END OF BLOCK a.
For Organisational Data
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-s03.
SELECT-OPTIONS: s_vkorg FOR vbrk-vkorg,
                s_vtweg FOR vbrk-vtweg,
                s_bukrs FOR vbrk-bukrs,
                s_vkbur FOR vbrp-vkbur,
                s_regio FOR kna1-regio,
                s_werks FOR vbrp-werks,
                s_brsch FOR kna1-brsch.         " Industry Key
SELECTION-SCREEN END OF BLOCK b.
NEW ADDED  BY AJAY 22-06-2006
SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-d01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) text-d02.
SELECTION-SCREEN POSITION 32.
PARAMETERS : p_field1(3) TYPE n DEFAULT '001',
             p_field2(3) TYPE n DEFAULT '005',
             p_field3(3) TYPE n DEFAULT '007',
             p_field4(3) TYPE n DEFAULT '009',
             p_field5(3) TYPE n DEFAULT '015'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK c.
NEW ADDED END BY AJAY 22-06-2006
                      INITIALIZATION
INITIALIZATION.
  repname = sy-repid.
  PERFORM build_eventtab USING events[].
  PERFORM build_layout .
  PERFORM initialize_variant.
                      AT SELECTION-SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM f4_for_variant.
AT SELECTION-SCREEN.
  PERFORM pai_of_selection_screen.
  PERFORM check_input.
                      START OF SELECTION
START-OF-SELECTION.
  PERFORM build_comment USING heading[].
  PERFORM get_day_label.
  PERFORM get_data.
  PERFORM segregate_dist_chann_qty.
  PERFORM initialise_fieldtab.
  PERFORM attach_char_to_fieldcat.
  PERFORM get_transporter_data.
  PERFORM get_sd_matgroups.
  PERFORM get_plant_from_po.
  PERFORM get_excise_details.
  PERFORM display_data.
                      END OF SELECTION
END-OF-SELECTION.
                          FORMS
*&      Form  get_data
*&      Extracts data as per the users selection criteria.
FORM get_data.
  DATA domname LIKE dd07v-domname.
  DATA it_vrpma LIKE vrpma OCCURS 0 WITH HEADER LINE.
In case Doc No is specified in Selection use VBRK
Else use VRPMA(Material wise Billing Doc)
  IF NOT s_vbeln IS INITIAL.
    SELECT * FROM vbrk CLIENT SPECIFIED
                       INTO CORRESPONDING FIELDS OF TABLE ivbrk
                       WHERE mandt EQ sy-mandt
                             AND   vbeln IN s_vbeln
                             AND   fkart IN s_fkart
                             AND   fkdat IN s_fkdat
                             AND   kunag IN s_kunnr
                             AND   vkorg IN s_vkorg
                             AND   vtweg IN s_vtweg
                             AND   bukrs IN s_bukrs
                             AND   rfbsk NE 'E'
                             AND   sfakn EQ space
                             AND   fksto EQ space.
  ELSE.
    SELECT * FROM vrpma CLIENT SPECIFIED
                        INTO CORRESPONDING FIELDS OF TABLE it_vrpma
                        WHERE mandt EQ sy-mandt
                              AND  matnr IN s_matnr
                              AND  vkorg IN s_vkorg
                              AND  fkdat IN s_fkdat
                              AND  vtweg IN s_vtweg
                              AND  fkart IN s_fkart
                              AND  kunag IN s_kunnr
                              AND  fkart NE 'ZCMR'
                              AND  vbeln IN s_vbeln.
    CHECK NOT it_vrpma[] IS INITIAL.
    SORT it_vrpma BY vbeln.
    SELECT * FROM vbrk INTO CORRESPONDING FIELDS OF TABLE ivbrk
                       FOR ALL ENTRIES IN it_vrpma
                       WHERE vbeln = it_vrpma-vbeln
                             AND   rfbsk NE 'E'
                             AND   sfakn EQ space
                             AND   fksto EQ space.
  ENDIF.
  domname = 'VBTYP'.
Get the List of all Document Types
  PERFORM get_domtext TABLES it_vbtyp USING domname.
  IF NOT ivbrk[] IS INITIAL.
    SORT ivbrk BY kunag.
    LOOP AT ivbrk.
      v_tabix = sy-tabix.
Get the Region,Industry Key, Name for Sold To Party
      ON CHANGE OF ivbrk-kunag.
        CLEAR : v_regio,v_brsch,name1,v_ort01,v_land1.
        SELECT SINGLE regio brsch name1 ort01 land1 FROM kna1
                                  CLIENT SPECIFIED
                                  INTO (v_regio,v_brsch,
                                        name1,v_ort01,v_land1 )
                                  WHERE mandt = sy-mandt
                                        AND kunnr = ivbrk-kunag.
      ENDON.
Check for Region,Industry Key as per the Parameter
      IF NOT s_regio[] IS INITIAL.
        IF NOT v_regio IN s_regio.
          DELETE ivbrk INDEX v_tabix.
          CONTINUE.
        ENDIF.
      ENDIF.
      IF NOT s_brsch[] IS INITIAL.
        IF NOT v_brsch IN s_brsch.
          DELETE ivbrk INDEX v_tabix.
          CONTINUE.
        ENDIF.
      ENDIF.
      ivbrk-regio = v_regio.
      ivbrk-brsch = v_brsch.
      ivbrk-name1 = name1.
      ivbrk-ort01 = v_ort01.
      ivbrk-land1 = v_land1.
      ivbrk-netwr = 0.
      MODIFY ivbrk TRANSPORTING regio brsch
                                name1 netwr ort01 land1.
      CLEAR  ivbrk.
    ENDLOOP.
Get the Invoice Details from VBRP Table
    IF NOT ivbrk[] IS INITIAL.
      SELECT * FROM vbrp CLIENT SPECIFIED
                       INTO CORRESPONDING FIELDS OF TABLE ivbeln
                       FOR ALL ENTRIES IN ivbrk
                       WHERE mandt = sy-mandt
                             AND vbeln = ivbrk-vbeln
                             AND fkimg NE 0
                             AND matnr IN s_matnr
                             AND pstyv IN s_pstyv
                             AND spart IN s_spart
                             AND werks IN s_werks
                             AND vkbur IN s_vkbur.
    ENDIF.
  ENDIF.
  IF NOT ivbeln[] IS INITIAL.
    LOOP AT ivbeln.
      READ TABLE ivbrk WITH KEY vbeln = ivbeln-vbeln.
      IF sy-subrc EQ 0.
        IF ivbrk-netwr IS INITIAL.
          ivbrk-netwr = ivbeln-netwr.
        ENDIF.
        MOVE-CORRESPONDING ivbrk TO ivbeln.
        CLEAR it_vbtyp.
        READ TABLE it_vbtyp WITH KEY domvalue_l = ivbrk-vbtyp.
        ivbeln-vbtyp_desc = it_vbtyp-ddtext.
        MOVE ivbrk-kunag TO ivbeln-kunnr.
        MODIFY ivbeln .
        CLEAR  ivbeln.
      ENDIF.
    ENDLOOP.
    SORT ivbeln BY vbeln posnr.
    DELETE ADJACENT DUPLICATES FROM ivbeln COMPARING ALL FIELDS.
    CLEAR  ivbeln.
Get the Material Type, Group and Production Hiearchy
    LOOP AT ivbeln.
      ON CHANGE OF ivbeln-matnr.
        CLEAR : mtart,matkl,prdha.
        SELECT SINGLE  mtart matkl prdha FROM mara CLIENT SPECIFIED
                             INTO (mtart,matkl,prdha)
                             WHERE mandt EQ sy-mandt
                                   AND matnr EQ ivbeln-matnr.
      ENDON.
      ivbeln-mtart = mtart.
      ivbeln-matkl = matkl.
      ivbeln-prdha = prdha.
      MODIFY ivbeln TRANSPORTING  mtart matkl prdha.
      CLEAR ivbeln.
    ENDLOOP.
    LOOP AT ivbeln.
Retrieving Sales Order Date ,Customer PO No,Customer PO Date
      ON CHANGE OF ivbeln-aubel.
        CLEAR : bstkd,bstdk,ordat,audat.
        SELECT SINGLE bstkd bstdk  FROM vbkd
                              CLIENT SPECIFIED
                              INTO  (bstkd,bstdk)
                              WHERE mandt EQ sy-mandt
                                    AND vbeln EQ ivbeln-aubel.
        SELECT SINGLE erdat audat FROM  vbak CLIENT SPECIFIED
                            INTO  (ordat,audat)
                            WHERE mandt = sy-mandt
                                  AND vbeln = ivbeln-aubel.
       In case of Stock Transfer, Or Export Excise GP
       SO is really a PO Hence Date is tajken from EKKO
        IF ivbeln-fkart EQ 'ZSTF' OR ivbeln-fkart EQ 'ZSTE'.
          SELECT SINGLE bedat FROM  ekko CLIENT SPECIFIED
                            INTO  (audat)
                            WHERE mandt = sy-mandt
                                  AND ebeln = ivbeln-aubel.
        ENDIF.
      ENDON.
      IF ivbeln-erzet GE '000000' AND ivbeln-erzet LE '070000'.
        ivbeln-erdat = ivbeln-erdat - 1.
      ENDIF.
Get the Counry Descripion
      ON CHANGE OF ivbeln-land1.
        CLEAR : landx.
        SELECT SINGLE landx INTO landx FROM t005t
                           WHERE land1 EQ ivbeln-land1
                                 AND  spras EQ  sy-langu.
      ENDON.
For retrieving text for Customer Group
      ON CHANGE OF ivbeln-kdgrp_auft.
        CLEAR : ktext.
        SELECT SINGLE ktext FROM t151t
                            INTO ktext
                            WHERE spras EQ sy-langu
                            AND   kdgrp EQ ivbeln-kdgrp_auft.
      ENDON.
For Retrieving texts for KVGR1 KVGR2 KVGR3 KVGR4 KVGR5
      ON CHANGE OF ivbeln-kvgr1.
        CLEAR : vtext.
        SELECT SINGLE bezei INTO vtext FROM tvv1t
                                       WHERE kvgr1 EQ ivbeln-kvgr1
                                             AND spras EQ sy-langu.
      ENDON.
      ON CHANGE OF ivbeln-kvgr2.
        CLEAR :vtext2.
        SELECT SINGLE bezei INTO vtext2 FROM tvv2t
                                       WHERE kvgr2 EQ ivbeln-kvgr2
                                             AND spras EQ sy-langu.
      ENDON.
      ON CHANGE OF ivbeln-kvgr3.
        CLEAR :vtext3.
        SELECT SINGLE bezei INTO vtext3 FROM tvv3t
                                       WHERE kvgr3 EQ ivbeln-kvgr3
                                             AND spras EQ sy-langu.
      ENDON.
      ON CHANGE OF ivbeln-kvgr4.
        CLEAR :vtext4.
        SELECT SINGLE bezei INTO vtext4 FROM tvv4t
                                       WHERE kvgr4 EQ ivbeln-kvgr4
                                             AND spras EQ sy-langu.
      ENDON.
      ON CHANGE OF ivbeln-kvgr5.
        CLEAR : vtext5.
        SELECT SINGLE bezei INTO vtext5 FROM tvv5t
                                       WHERE kvgr5 EQ ivbeln-kvgr5
                                             AND spras EQ sy-langu.
      ENDON.
Get the Description for Usage Indicator
      ON CHANGE OF ivbeln-abrvw.
        CLEAR : reasn.
        SELECT SINGLE bezei INTO reasn FROM tvlvt CLIENT SPECIFIED
                                       WHERE mandt = sy-mandt
                                             AND abrvw EQ ivbeln-abrvw
                                             AND spras EQ sy-langu.
      ENDON.
Get Account Document
      ON CHANGE OF ivbeln-vbeln.
        CLEAR : belnr.
        SELECT SINGLE belnr INTO belnr FROM bkpf
                                 CLIENT SPECIFIED
                                       WHERE mandt = sy-mandt
                                         AND awtyp EQ 'VBRK'
                                         AND awkey EQ ivbeln-vbeln.
      ENDON.
Get Division Text
      ON CHANGE OF ivbeln-spart.
        CLEAR : stext.
        SELECT SINGLE vtext INTO stext FROM tspat
                                       WHERE spart EQ ivbeln-spart
                                        AND spras EQ sy-langu.
      ENDON.
Get Price group Text
      ON CHANGE OF ivbeln-konda.
        CLEAR : ptext.
        SELECT SINGLE vtext INTO ptext FROM t188t
                                       WHERE konda EQ ivbeln-konda
                                        AND spras EQ sy-langu.
      ENDON.
Get Transporter Code ,Name
      ON CHANGE OF ivbeln-vbeln.
        CLEAR : lifnr,name1.
        SELECT SINGLE lifnr INTO lifnr FROM vbpa
                                       WHERE vbeln EQ ivbeln-vbeln
                                             AND parvw EQ 'V1'.
        IF NOT lifnr IS INITIAL.
          SELECT SINGLE name1 FROM lfa1 INTO name1
                                        WHERE lifnr EQ lifnr.
        ENDIF.
*Ship To party Details
        CLEAR: shpcd,shpnm,city1,kna1,xcpdk,adrnr.
        SELECT SINGLE kunnr xcpdk adrnr
                      INTO (shpcd,xcpdk,adrnr)
                      FROM vbpa
                      WHERE vbeln EQ ivbeln-vbeln
                            AND   parvw EQ 'WE'.
        IF NOT shpcd IS INITIAL.
          IF xcpdk EQ 'X'.
            SELECT SINGLE name1 city1 transpzone region country
                      FROM adrc
                      INTO (shpnm,city1,lzone,shreg,shlnd)
                          WHERE addrnumber EQ adrnr.
          ELSE.
            SELECT SINGLE name1 ort01 lzone regio land1
                      FROM kna1
                      CLIENT SPECIFIED
                      INTO (shpnm,city1,lzone,shreg,shlnd)
                          WHERE mandt = sy-mandt
                          AND kunnr EQ shpcd.
          ENDIF.
        ENDIF.
      ENDON.
Retrieve Text for Sales Office
      ON CHANGE OF ivbeln-vkbur.
        CLEAR : vbezei.
        SELECT SINGLE bezei FROM tvkbt
                            INTO vbezei
                            WHERE spras EQ sy-langu
                            AND   vkbur EQ ivbeln-vkbur.
      ENDON.
Retrieve Text for Industry Key
      ON CHANGE OF ivbeln-brsch.
        CLEAR : v_brtxt.
        SELECT SINGLE brtxt FROM t016t
                            INTO v_brtxt
                            WHERE spras EQ sy-langu
                            AND   brsch EQ ivbeln-brsch.
      ENDON.
Retrieve Text for Payment Terms
      ON CHANGE OF ivbeln-zterm.
        CLEAR : v_ptext.
        SELECT SINGLE text1 FROM t052u
                            INTO v_ptext
                            WHERE spras EQ sy-langu
                            AND   zterm EQ ivbeln-zterm.
      ENDON.
Get Material Type Description,Material Group Desc
      ON CHANGE OF ivbeln-mtart OR ivbeln-matkl.
        CLEAR : wgbez,mtbez.
        SELECT SINGLE wgbez FROM t023t
                           INTO wgbez
                           WHERE spras EQ sy-langu
                           AND   matkl EQ ivbeln-matkl.
        SELECT SINGLE mtbez FROM t134t
                            INTO mtbez
                            WHERE spras EQ sy-langu
                            AND   mtart EQ ivbeln-mtart.
      ENDON.
Get Delivery doc Number.
      SELECT SINGLE vbeln erdat FROM vbfa INTO
                                (mblnr,budat)
                                WHERE vbelv = ivbeln-vgbel
                                AND   posnv = ivbeln-vgpos
                                AND    vbtyp_n = 'R'.
      CLEAR : exnum,exdat.
Get the Excise Related Data
      SELECT SINGLE exnum exdat FROM j_1iexchdr CLIENT SPECIFIED
                                INTO (exnum,exdat)
                                WHERE  mandt = sy-mandt
                                       AND  trntyp = 'DLFC'
                                       AND  rdoc   = ivbeln-vbeln
                                       AND  rind   = 'N'
                                       AND  status = 'C'.
      IF sy-subrc = 0.
        SELECT SINGLE exbed ecs INTO (ivbeln-exbed,ivbeln-ecs)
                                FROM j_1iexcdtl
                                CLIENT SPECIFIED
                                      WHERE mandt = sy-mandt
                                        AND rdoc2 = ivbeln-vbeln
                                        AND ritem2 = ivbeln-posnr.
        IF sy-subrc NE 0.
          ivbeln-exbed = 0.
          CLEAR ivbeln-exnum.
        ENDIF.
      ENDIF.
Read Characteristics
      IF NOT ichar[] IS INITIAL.
        PERFORM  read_characteristics   TABLES   ichar
                                        USING    ivbeln-we

Answer 1

I have solved my query....