Chnaging the count of doucments on filtering

Question

Hi I have this report which I have created which also gives the count of distinct documnets at the top-of page, on filtering that number dosent and wont change as that comes from the internal table , I need to show the count of actual number of documents in teh output after the filetring is done alos which will change as per the filtering is done . Is it possible to show a column or somewhere in teh out like the actual document number on top somewhere which will refrlet the actual number of documents in teh output after filter is done based on any of teh selection.
REPORT  zztest MESSAGE-ID zsd NO STANDARD PAGE HEADING.
* For ALV usage
TYPE-POOLS: slis.
DATA: gs_layout   TYPE slis_layout_alv,
      tp_print    TYPE slis_print_alv,
      gt_sort     TYPE slis_t_sortinfo_alv,
      gt_events   TYPE slis_t_event,
      t_fieldcat  TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      repid       TYPE syrepid,               " ABAP Program.
      gt_list_top_of_page TYPE slis_t_listheader,     " Top of page text.
      gs_list_top_of_page type slis_listheader,
      alv_variant   TYPE disvariant.           " Customize Disp. Variant
DATA: w_field    TYPE slis_fieldcat_alv.
DATA: count type i.
DATA: count1 type i.
TABLES: vbak, vbap, vbpa, knvv.
* Definition of selection screen                                       *
*   By plant, storage location, sold-to customers, material and        *
*   posting date of the sales orders                                   *
SELECTION-SCREEN BEGIN OF BLOCK one WITH FRAME TITLE text-001.
PARAMETERS:     p_vkorg  TYPE vkorg OBLIGATORY MEMORY ID VKO,"DEVK906677
                p_vtweg  TYPE vtweg OBLIGATORY DEFAULT '01',
                p_spart  TYPE spart OBLIGATORY DEFAULT '01'.
SELECT-OPTIONS: s_vkbur  for  vbak-vkbur,      " Sales Office     "DEVK906677
                s_kunnr  FOR  vbak-kunnr.      " Sold-to customer number.
SELECT-OPTIONS: s_shipto FOR  vbap-oid_ship,   " Ship-to customer number.
                s_billto FOR  vbpa-kunnr,      " bill-to from S.O. header.
                s_load   FOR  vbpa-kunnr,      " Load confirmation contact.
                s_truck  FOR  vbap-oid_extbol. " Trucking ticket number.
SELECT-OPTIONS: s_werks FOR vbap-werks OBLIGATORY NO INTERVALS. " Plant.
SELECT-OPTIONS: s_lgort FOR vbap-lgort.        " Storage location.
SELECT-OPTIONS: s_matnr FOR vbap-matnr.        " Material number.
SELECT-OPTIONS: s_konda FOR knvv-konda.        " price group
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_vdatu FOR vbak-vdatu DEFAULT sy-datum.
SELECTION-SCREEN END OF BLOCK one.
* ALV display layout
SELECTION-SCREEN BEGIN OF BLOCK layout WITH FRAME TITLE text-003.
PARAMETERS: pa_vari TYPE slis_vari DEFAULT ' '. " Display variant.
SELECTION-SCREEN END OF BLOCK layout.
SELECTION-SCREEN BEGIN OF BLOCK two WITH FRAME TITLE text-028.
selection-screen comment: /1(79) text-029.
selection-screen comment: /1(79) text-030.
selection-screen comment: /1(79) text-031.
selection-screen comment: /1(79) text-032.
selection-screen comment: /1(79) text-033.
selection-screen comment: /1(79) text-034.
selection-screen comment: /1(79) text-035.
selection-screen comment: /1(79) text-036.
SELECTION-SCREEN END OF BLOCK two.
* Data Definitions                                                     *
* Storing Extracted Info.
TYPES: BEGIN OF t_extract,
         vbeln        TYPE vbeln_va,   " Sales order number.
         augru        TYPE augru,      " order reason
         vdatu        TYPE edatu_vbak, " Requested delivery date.
         kunnr        TYPE kunag,      " Sold-to customer number.
         soldto_name  TYPE name1_gp,   " Sold-to name.
         posnr        TYPE posnr_va,   " Item number.
         matnr        TYPE matnr,      " Material number.
         vrkme        TYPE vrkme,      " Sales UoM.
         mseh3        TYPE mseh3,      " UoM text.
         netwr        TYPE netwr_ap,   " Net value of the order item.
         kwmeng       TYPE p LENGTH 13 DECIMALS 1, " Quantity.
         werks        TYPE werks_d,    " Plant.
         lgort        TYPE lgort_d,    " Storage location.
         oid_extbol   TYPE oid_extbol, " External BOL or truck ticker header.
         maktx        TYPE maktx,      " Material description.
         oid_ship     TYPE kunwe,      " Ship-to customer number.
         shipto_name  TYPE name1_gp,   " Ship-to name.
         billto       TYPE kunre,      " Bill-to customer number.
         billto_name  TYPE name1_gp,   " Bill-to name.
         load_contact TYPE kunnr,      " Load confirmation contact.
         load_name    TYPE name1_gp,   " Load confirmation contact name.
         truck        TYPE kunnr,      " Truck company number.
         truck_name   TYPE name1_gp,   " Truck company name.
         bstkd        TYPE bstkd,      " PO number.
         ihrez        TYPE ihrez,      " AFE number per the contract/sales order.
         delivery     TYPE vbeln_vl,   " Delivery number.
         posnr_vl     TYPE posnr_vl,   " Delivery item number.
         bill_vbeln   TYPE vbeln_vf,   " Invoice number.
         bill_posnr   TYPE posnr_vf,   " Invoice item number.
         bill_netwr   TYPE netwr_fp,   " Invoice net value.
         statu        TYPE stats,      " Document status.
         auart        TYPE auart,      " order type
         vkorg        TYPE vkorg,      " sales org.
         vtweg        TYPE vtweg,      " distrbtn channel
         spart        TYPE spart,      " division
         vkbur        like vbak-vkbur, " Sales Office DEVK906677
         konda        TYPE konda,      " price group
         tdline       TYPE tdline,     " text for customer account reference
         count        TYPE I,
       END OF t_extract.
DATA : it_extract  TYPE TABLE OF t_extract WITH HEADER LINE,
       it_extract2 TYPE TABLE OF t_extract WITH HEADER LINE.
DATA:  it_text TYPE TABLE OF tline WITH HEADER LINE.
DATA: w_index type sy-index,
      w_tdname type TDOBNAME.
CONSTANTS: c_minus1       type netwr_ap value '1.00-'.
*RANGES: r_auart FOR vbak-auart.
Data: r_auart TYPE range of t_extract-auart,
      r_auart_line like line of r_auart.
* initialization
INITIALIZATION.
  gs_layout-colwidth_optimize = 'X'.
  tp_print-no_print_listinfos = 'X'.
  tp_print-no_coverpage = 'X'.
  PERFORM set_fieldcat.
  PERFORM alv_eventtab_build USING:
**    Event name     Form to execute     Event internal table
   'TOP_OF_PAGE'  'TOP_OF_PAGE'       gt_events[].
* changed to exclude following order types
  r_auart_line-sign   = 'I'.
  r_auart_line-option = 'EQ'.
  r_auart_line-low    = 'ZEQ'.
  clear r_auart_line-high.
  append r_auart_line to r_auart.
* credit memo
  r_auart_line-sign   = 'I'.
  r_auart_line-option = 'EQ'.
  r_auart_line-low    = 'ZPRC'.
  clear r_auart_line-high.
  append r_auart_line to r_auart.
* debit memo
  r_auart_line-sign   = 'I'.
  r_auart_line-option = 'EQ'.
  r_auart_line-low    = 'ZPRD'.
  clear r_auart_line-high.
  append r_auart_line to r_auart.
  r_auart_line-sign   = 'I'.
  r_auart_line-option = 'EQ'.
  r_auart_line-low    = 'ZDR'.
  clear r_auart_line-high.
  append r_auart_line to r_auart.
* Industry sales order correction
  r_auart_line-sign   = 'I'.
  r_auart_line-option = 'EQ'.
  r_auart_line-low    = 'ZSOC'.
  clear r_auart_line-high.
  append r_auart_line to r_auart.
* oilfield FF correction
  r_auart_line-sign   = 'I'.
  r_auart_line-option = 'EQ'.
  r_auart_line-low    = 'ZOCF'.
  clear r_auart_line-high.
  append r_auart_line to r_auart.
* oilfield WP correction
  r_auart_line-sign   = 'I'.
  r_auart_line-option = 'EQ'.
  r_auart_line-low    = 'ZOCW'.
  clear r_auart_line-high.
  append r_auart_line to r_auart.
* Dropdown list for all created ALV layouts, global or user-specific
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_vari.
  PERFORM alv_variant_f4 CHANGING pa_vari.
* Main BODY of processing logic
START-OF-SELECTION.
  PERFORM extract_data.
END-OF-SELECTION.
  IF NOT it_extract[] IS INITIAL.
* Build headings for report.
    PERFORM build_top_of_page  USING gt_list_top_of_page[].
    PERFORM call_alv.
  ENDIF.
*&      Form  EXTRACT_KEY_DATA
* Retreive the data for the report.
FORM extract_data.
  CLEAR: it_extract.  REFRESH: it_extract.
* orders
  SELECT vbak~vbeln vbak~auart vbak~augru vbak~vkorg vbak~vtweg
         vbak~spart vbak~vdatu vbak~kunnr vbak~vkbur
         vbap~posnr vbap~matnr vbap~vrkme vbap~netwr vbap~kwmeng
         vbap~werks vbap~lgort vbap~oid_extbol vbap~oid_ship
    INTO CORRESPONDING FIELDS OF TABLE it_extract
    FROM vbak INNER JOIN vbap
         ON  vbak~mandt = vbap~mandt
         AND vbak~vbeln = vbap~vbeln WHERE
    vbak~auart NOT IN r_auart AND
    vbak~vkorg EQ p_vkorg AND
    vbak~vtweg EQ p_vtweg AND
    vbak~spart EQ p_spart AND
    vbak~vkbur in s_vkbur and                               "DEVK906677
    vbak~vdatu IN s_vdatu AND
    vbak~kunnr IN s_kunnr AND
    vbap~matnr IN s_matnr AND
    vbap~werks IN s_werks AND
    vbap~lgort IN s_lgort AND
    vbap~oid_extbol IN s_truck AND
    vbap~oid_ship IN s_shipto.
  IF sy-subrc <> 0.
    MESSAGE i000 WITH text-002 ' ' ' ' ' '.
  ENDIF.
  SORT it_extract BY vbeln.
  CHECK sy-subrc = 0.
  LOOP AT it_extract.
* Retrieve and select by load confirmation contacts from header
    SELECT SINGLE kunnr FROM vbpa INTO it_extract-load_contact
     WHERE vbeln = it_extract-vbeln
       AND posnr = '000000'
       AND parvw = 'ZB'.
    IF it_extract-load_contact IN s_load.
      it_extract-load_name = zcl_kna1=>get_name1( it_extract-load_contact ).
    ELSE.
      DELETE it_extract.
      CONTINUE.
    ENDIF.
* Retrieve and select by sales order bill-to on header level
* as well as lookup bill-to customer name/description
    SELECT SINGLE kunnr FROM vbpa INTO it_extract-billto
     WHERE vbeln = it_extract-vbeln
       AND posnr = '000000'
       AND parvw = 'RE'.
    IF sy-subrc = 0.
      if s_billto is initial.
        it_extract-billto_name = zcl_kna1=>get_name1( it_extract-billto ).
      else.
        if it_extract-billto in s_billto.
          it_extract-billto_name = zcl_kna1=>get_name1( it_extract-billto ).
        else.
          DELETE it_extract.
          CONTINUE.
        endif.
      endif.
    ELSE.
* Newalta - always has bill-to, following will not occur but included
*           as good programming practice.
      it_extract-billto_name = it_extract-billto.
    ENDIF.
* Retrieve and select by price group of sold-to
    SELECT SINGLE konda FROM knvv INTO it_extract-konda
     WHERE kunnr = it_extract-kunnr
       AND vkorg = it_extract-vkorg
       AND vtweg = it_extract-vtweg
       AND spart = it_extract-spart.
    IF sy-subrc = 0.
      IF NOT ( it_extract-konda IN s_konda ).
        DELETE it_extract.
        CONTINUE.
      ENDIF.
    ENDIF.
* Retrieve trucking company customer
    SELECT SINGLE kunnr FROM vbpa INTO it_extract-truck WHERE
      vbeln = it_extract-vbeln AND
      posnr = '000000' AND
      parvw = 'ZT'.
    IF sy-subrc = 0.
      it_extract-truck_name = zcl_kna1=>get_name1( it_extract-truck ).
    ENDIF.
* Retrieve sold-to name
    it_extract-soldto_name = zcl_kna1=>get_name1( it_extract-kunnr ).
* Retrieve ship-to name
    it_extract-shipto_name = zcl_kna1=>get_name1( it_extract-oid_ship ).
* lookup P.O.
    SELECT SINGLE bstkd ihrez FROM vbkd INTO (it_extract-bstkd, it_extract-ihrez)
     WHERE vbeln = it_extract-vbeln
       AND posnr = '000000'.
* Retreive the material description.
    it_extract-maktx = zcl_material=>get_maktx( it_extract-matnr ).
* cosmetic change of material number, donot display leading zeros.
    SHIFT it_extract-matnr LEFT DELETING LEADING '0'.
* translate unit of measure
    it_extract-mseh3 = it_extract-vrkme.
    SELECT SINGLE mseh3 FROM t006a INTO it_extract-mseh3
     WHERE spras = sy-langu
       AND msehi = it_extract-vrkme.
    w_tdname = it_extract-vbeln.
* read customer account reference which is under 'text'
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        CLIENT                        = SY-MANDT
        ID                            = 'Z010'
        LANGUAGE                      = sy-langu
        NAME                          = w_tdname
        OBJECT                        = 'VBBK'
*   ARCHIVE_HANDLE                = 0
*   LOCAL_CAT                     = ' '
* IMPORTING
*   HEADER                        =
      TABLES
        LINES                         = it_text
      EXCEPTIONS
        ID                            = 1
        LANGUAGE                      = 2
        NAME                          = 3
        NOT_FOUND                     = 4
        OBJECT                        = 5
        REFERENCE_CHECK               = 6
        WRONG_ACCESS_TO_ARCHIVE       = 7
        OTHERS                        = 8.
    IF SY-SUBRC = 0.
      read table it_text index 1.
      if sy-subrc = 0.
        it_extract-tdline = it_text-tdline.
      else.
        clear it_extract-tdline.
      endif.
    ELSE.
      clear it_extract-tdline.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
* Get the delivery item.
    CALL METHOD zcl_vbap=>get_delivery
      EXPORTING
        itp_vbeln = it_extract-vbeln
        itp_posnr = it_extract-posnr
      IMPORTING
        etp_vbeln = it_extract-delivery
        etp_posnr = it_extract-posnr_vl.
    IF it_extract-delivery IS NOT INITIAL.
      PERFORM process_deliveries.
    ELSE.
      PERFORM invoice_process.
    ENDIF.
it_extract-count = 1 .
    MOVE-CORRESPONDING it_extract TO it_extract2.
    APPEND it_extract2.
    AT NEW vbeln.
      count1 = count1 + 1.
    ENDAT.
CALL FUNCTION 'REUSE_ALV_EVENT_NAMES_GET'
* EXPORTING
*   I_LIST_TYPE           = 0
  TABLES
    T_EVENT_NAMES         = it_extract2
EXCEPTIONS
   LIST_TYPE_WRONG       = 1
   OTHERS                = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
  ENDLOOP.
ENDFORM.                    " EXTRACT_DATA
*&      Form  SET_FIELDCAT
* Create the field catalogue.
FORM set_fieldcat .
  CLEAR w_field.
  CLEAR t_fieldcat.  REFRESH t_fieldcat.
  w_field-col_pos = 1 .
  w_field-fieldname = 'VBELN'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Document.Nbr'.
  w_field-emphasize = 'X'.
  w_field-hotspot   = 'X'.
  APPEND w_field TO t_fieldcat.
  CLEAR w_field.
  w_field-col_pos = 2 .
  w_field-fieldname = 'POSNR'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Item'(023).
  APPEND w_field TO t_fieldcat.
  CLEAR w_field.
  w_field-col_pos = 3 .
  w_field-fieldname = 'VDATU'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Req. Del. Date'(005).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 4.                                      "DEVK909658
  w_field-fieldname = 'KUNNR'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Sold-to.'(038).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 5 .
  w_field-fieldname = 'SOLDTO_NAME'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Sold-to'(006).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 6 .
  w_field-fieldname = 'MATNR'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Material'(007).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 7 .
  w_field-fieldname = 'KWMENG'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Quantity'(008).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 8.
  w_field-fieldname = 'MSEH3'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'UOM'(009).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 9 .
  w_field-fieldname = 'BILL_VBELN'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Invoice #'(010).
  w_field-emphasize = 'X'.
  w_field-hotspot   = 'X'.
  APPEND w_field TO t_fieldcat.
  CLEAR w_field.
  w_field-col_pos = 10 .
  w_field-fieldname = 'BILL_NETWR'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Values'(011).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 11.
  w_field-fieldname = 'WERKS'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Plant'(012).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 12.
  w_field-fieldname = 'LGORT'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Storage Loc'(013).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 13 .
  w_field-fieldname = 'MAKTX'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Description'(014).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 14.                                     "DEVK909658
  w_field-fieldname = 'OID_SHIP'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Ship-to.'(039).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 15 .
  w_field-fieldname = 'SHIPTO_NAME'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Ship-to'(015).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 16.                                     "DEVK909658
  w_field-fieldname = 'BILLTO'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Bill-to .'(040).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 17 .
  w_field-fieldname = 'BILLTO_NAME'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Bill-to'(016).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 18 .
  w_field-fieldname = 'LOAD_NAME'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Load Contact'(017).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 19 .
  w_field-fieldname = 'TRUCK_NAME'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Truck Comp.'(018).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 20 .
  w_field-fieldname = 'BSTKD'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'P.O.'(019).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 21 .
  w_field-fieldname = 'IHREZ'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'AFE Nbr'(020).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 22 .
  w_field-fieldname = 'OID_EXTBOL'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Truck Ticket'(021).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 23.
  w_field-fieldname = 'STATU'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Status'(022).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 24.
  w_field-fieldname = 'AUGRU'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Ord.Reason'(024).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 25.
  w_field-fieldname = 'TDLINE'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'cstmr.acct.ref.'(027).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 26 .                                    "DEVK906678
  w_field-fieldname = 'VKBUR'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Sales Office'(037).
  APPEND w_field TO t_fieldcat.
  w_field-col_pos = 27.                                     "DEVK909658
  w_field-fieldname = 'COUNT'.
  w_field-tabname = 'IT_EXTRACT2'.
  w_field-seltext_l = 'Count'(041).
  w_field-do_sum = 'X'.
  APPEND w_field TO t_fieldcat.
ENDFORM.                    " SET_FIELDCAT
*&      Form  CALL_ALV
* Call the ALV Grid function.
FORM call_alv .
  SORT it_extract BY lgort vbeln.
* repid is necessary since the ALV F.M. does not work properly with
* sy-repid.
  repid = sy-repid.
  alv_variant-variant  = pa_vari.
  alv_variant-report   = sy-repid.
  alv_variant-username = sy-uname.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = repid
      i_callback_user_command = 'USER_COMMAND'
      is_layout               = gs_layout
      it_fieldcat             = t_fieldcat[]
      it_sort                 = gt_sort[]
      i_default               = 'X'
      i_save                  = 'A'
      is_variant              = alv_variant
      it_events               = gt_events[]
      is_print                = tp_print
    TABLES
      t_outtab                = it_extract2
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
  IF sy-subrc NE 0.
    MESSAGE w000 WITH text-004 ' ' ' ' ' '.
  ENDIF.
ENDFORM.                    " CALL_ALV
*&      Form  build_top_of_page
* Build heading for report.                                            *
*      -->P_GT_LIST_TOP_OF_PAGE[]  Header stuff for report
FORM build_top_of_page USING   e04_lt_top_of_page TYPE slis_t_listheader.
  DATA: ls_line TYPE slis_listheader.  "Header table for top of page
* construct 'top of page' info. to display. In this case, one line.
  DATA: w_selections(40) TYPE c,
        w_date_from(10) TYPE c,
        w_date_to(10) TYPE c.
  WRITE: s_vdatu-low TO w_date_from DD/MM/YYYY.
  IF s_vdatu-high IS NOT INITIAL.
    WRITE: s_vdatu-high TO w_date_to DD/MM/YYYY.
    CLEAR w_selections.
    CONCATENATE 'Del.Req.Date: ' w_date_from 'To' w_date_to
      INTO w_selections SEPARATED BY space.
    CLEAR ls_line.
    ls_line-typ  = 'H'.
    ls_line-info = w_selections.
    APPEND ls_line TO e04_lt_top_of_page.
    gs_list_top_of_page-typ = 'S'.
    gs_list_top_of_page-info = ' Total Number of Sales Documents'.
    append gs_list_top_of_page to gt_list_top_of_page.
    gs_list_top_of_page-typ  = 'S'.
    gs_list_top_of_page-info = count1.
    append gs_list_top_of_page to gt_list_top_of_page.
  ELSE.
    CLEAR w_date_to.
    CONCATENATE 'Del.Req.Date: ' w_date_from
         INTO w_selections SEPARATED BY space.
    CLEAR ls_line.
    ls_line-typ  = 'H'.
    ls_line-info = w_selections.
    APPEND ls_line TO e04_lt_top_of_page.
  ENDIF.
ENDFORM.                    " build_top_of_page
*&      Form  alv_eventtab_build
*     Pass list of events to be triggered by the ALV function module
FORM alv_eventtab_build USING  u_name  TYPE slis_alv_event-name
                               u_form  TYPE slis_alv_event-form
                               alv_lt_events  TYPE slis_t_event.
  DATA: ls_event TYPE slis_alv_event.   " structure for event handling
  ls_event-name = u_name.
  ls_event-form = u_form.
  APPEND ls_event TO alv_lt_events.
ENDFORM.                    " alv_eventtab_build
*       FORM TOP_OF_PAGE                                              *
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'NEWALTA_LOGO'
      it_list_commentary = gt_list_top_of_page.
ENDFORM.                    " TOP_OF_PAGE
*&      Form  process_deliveries
* Process the delivery related records.
FORM process_deliveries .
  DATA:
    ltp_date  TYPE wadat_ist, " Goods movement date.
    ltp_vbtyp TYPE vbtyp_n,
    ltp_mtart TYPE mtart, " Material type.
    w_lfimg   TYPE lfimg, " Actual quantity delivered (in sales units).
    w_vrkme   TYPE vrkme. " Sales unit of measure.
* Read delivery quantity and uom.
  SELECT SINGLE lfimg vrkme INTO (w_lfimg, w_vrkme)
    FROM lips WHERE
    vbeln = it_extract-delivery AND
    posnr = it_extract-posnr_vl.
* these fields have values from vbap. override with lips values
  IF sy-subrc = 0.
    it_extract-kwmeng = w_lfimg.
    it_extract-vrkme  = w_vrkme.
* translate unit of measure
    it_extract-mseh3 = it_extract-vrkme.
    SELECT SINGLE mseh3 FROM t006a INTO it_extract-mseh3
     WHERE spras = sy-langu
       AND msehi = it_extract-vrkme.
  ENDIF.
* Determine STATUS by reading 'service confirmation', R (goods movemt)
* it is possible to have multiple 'service confirmation' records for
* one item. ie. delivery 80010390 in PRD.
* As long as there is at least one 'service confirmation' record,
* status is considered 'complete'.
* Validate the created on date of the goods movement or service confirmation.
  ltp_mtart = zcl_material=>get_mtart( it_extract-matnr ).
*  ltp_date = zcl_lips=>get_goods_movement_date( itp_vbeln = it_extract-delivery
*                           itp_posnr = it_extract-posnr_vl itp_mtart = ltp_mtart ).
  CALL METHOD zcl_lips=>get_goods_mvt_info
    EXPORTING
      itp_vbeln = it_extract-delivery
      itp_posnr = it_extract-posnr_vl
      itp_mtart = ltp_mtart
    IMPORTING
      rtp_date  = ltp_date
      rtp_vbtyp = ltp_vbtyp.
* 'h' is cancel goods issue
  IF ltp_vbtyp = 'h'.
    it_extract-statu = 'Incomplete'(025).
  ELSE.
    IF ltp_date IS NOT INITIAL.
      it_extract-statu = 'COMPLETE'(026).
    ENDIF.
  ENDIF.
* Retrieve the invoice/billing document item.
  CALL METHOD zcl_lips=>get_invoice
    EXPORTING
      itp_vbeln = it_extract-delivery
      itp_posnr = it_extract-posnr_vl
    IMPORTING
      rtp_vbeln = it_extract-bill_vbeln
      rtp_posnr = it_extract-bill_posnr.
  IF it_extract-bill_vbeln IS NOT INITIAL.
* retrieve net value from the invoice.
    CLEAR it_extract-bill_netwr.
    SELECT SINGLE netwr INTO it_extract-bill_netwr FROM vbrp
     WHERE vbeln = it_extract-bill_vbeln
       AND posnr = it_extract-bill_posnr.
  ELSE.
    it_extract-bill_netwr = it_extract-netwr. " Use order net value.
  ENDIF.
ENDFORM.                    " process_deliveries
*&      Form  user_command
* Process the user command.
*      -->R_UCOMM      User command
*      -->RS_SELFIELD  Field selected
FORM user_command USING r_ucomm     LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield.
  DATA: ltp_vbeln TYPE vbeln.  " Sales document number.
  CASE  r_ucomm.
    WHEN '&IC1'.
      IF ( rs_selfield-fieldname = 'VBELN'
        OR rs_selfield-fieldname = 'BILL_VBELN' )
       AND rs_selfield-value IS NOT INITIAL.        " Display sales document.
        ltp_vbeln = rs_selfield-value.
        zcl_sales_doc=>display( ltp_vbeln ).
      ENDIF.
  ENDCASE.
ENDFORM.                    "user_command
*&      Form  invoice_process
* Process for orders without deliveries.                               *
FORM invoice_process .
* Translate unit of measure.
  SELECT SINGLE mseh3 FROM t006a INTO it_extract-mseh3
   WHERE spras = sy-langu
     AND msehi = it_extract-vrkme.
* Retrieve the invoice/billing document item.
  CALL METHOD zcl_vbap=>get_invoice
    EXPORTING
      itp_vbeln = it_extract-vbeln
      itp_posnr = it_extract-posnr
    IMPORTING
      rtp_vbeln = it_extract-bill_vbeln
      rtp_posnr = it_extract-bill_posnr.
  IF it_extract-bill_vbeln IS NOT INITIAL.
* retrieve net value from the invoice.
    CLEAR it_extract-bill_netwr.
    SELECT SINGLE netwr INTO it_extract-bill_netwr FROM vbrp
     WHERE vbeln = it_extract-bill_vbeln
       AND posnr = it_extract-bill_posnr.
  ELSE. " If no Invoice, then status becomes 'incomplete'.
    it_extract-bill_netwr = it_extract-netwr. " Use order net value.
    it_extract-statu = 'Incomplete'(025).
  ENDIF.
ENDFORM.                    " invoice_process
*&      Form  alv_variant_f4
* Get the display variant.
*      <--CTP_VARI  Variant name
FORM alv_variant_f4 CHANGING ctp_vari TYPE slis_vari.
  alv_variant-report   = sy-repid.             " Report ID
  alv_variant-username = sy-uname.             " User ID
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = alv_variant
      i_save     = 'A'
    IMPORTING
      es_variant = alv_variant
    EXCEPTIONS
      OTHERS     = 1.
  IF sy-subrc = 0.
    ctp_vari = alv_variant-variant.
  ENDIF.
ENDFORM.                    " alv_variant_f4
Kind help will be greatly appreciated.
Thanks
Aarav

Answer 1

Aarav,
when you call the ALV you need to set the event exit details for filter:
*Set callback after filter
  REFRESH T_EVENT_EXIT.
  CLEAR WA_EVENT_EXIT.
  WA_EVENT_EXIT-UCOMM = '&ILT'.
  WA_EVENT_EXIT-AFTER = 'X'.
  APPEND WA_EVENT_EXIT TO T_EVENT_EXIT.
Then call the ALV as per usual with the event exit details:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
              I_CALLBACK_PROGRAM       = 'Z_OWDR_MONTH_END_01'
              I_CALLBACK_PF_STATUS_SET = Z_PF_STATUS_SET
              I_CALLBACK_USER_COMMAND  = 'CALLBACK_USER_COMMAND'
              I_BACKGROUND_ID          = 'ALV_BACKGROUND'
              IS_LAYOUT                = Z_IS_LAYOUT
              IT_FIELDCAT              = T_FIELDCAT2
              IT_FILTER                = T_FILTER
              I_SAVE                   = 'A'
              IS_VARIANT               = Z_VARIANT
              IT_EVENT_EXIT            = T_EVENT_EXIT
         TABLES
              T_OUTTAB                 = T_OUT
         EXCEPTIONS
              PROGRAM_ERROR            = 1
              OTHERS                   = 2.
Then in the 'callback_user_command' insert some code to read the filter settings when the filter function is selected using function 'REUSE_ALV_GRID_LAYOUT_INFO_GET':
FORM CALLBACK_USER_COMMAND USING UCOMM LIKE SY-UCOMM
                                   SELFIELD TYPE SLIS_SELFIELD.
CASE UCOMM.
WHEN '&ILT'.
      PERFORM 99_STORE_FILTERS.
ENDCASE.
FORM 99_STORE_FILTERS.
  CALL FUNCTION 'REUSE_ALV_GRID_LAYOUT_INFO_GET'
       IMPORTING
            ET_FILTER           = T_FILTER
            ET_FILTERED_ENTRIES = T_FILTERED
       EXCEPTIONS
            NO_INFOS            = 1
            PROGRAM_ERROR       = 2
            OTHERS              = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " 99_STORE_FILTERS
Hope that makes it clear - worked for me.
Claire