ALV Totals , Subtotals for a particular field in ALV Grid report

Question

Hi,
I have an issue in ALV totals and subtotals.
Scenario is like this.
i have a vendor data to be pulled out of SAP and to be shown in the form of report.
i am populating all the data and doing do_sum based on Vendor ( has expansin & collapse option ) and display the number of reports .
Vendor -
100
Vendor1 -
1
Vendor2----
2.
Vendor100----
100.
but my problem is in the same report i have a date field .
if i have a five vendors created on 03/03/2008. in the same report for the date field having ( expansion & collapse ) , when i expand based on that date can i be able to sum up all the vendors created on 03/03/2008 and display in the same report along with the vendor count.
Let me know . Thank you in advance
Regards,
Ry

Answer 1

Hi Roby,
Have a look at this sample code
It will help u,
REPORT ZIN_FI_AGEING
       message-id zbdc
       no standard page heading.
Title                   : For Ageing Details
Author                  :
Date                    : 22/11/2004
Transport/Correction Id :
Clarify case ID         :
Application             : FI
Program Type            :
Frequency               :
Purpose                 :
Comments                :
Request No              :
  TABLES DELCARATIONS
Tables: zzgeinz9a,    "Actual line item table
        t001.         "Plants/Branches
  ALV TTPE DELCARATIONS
type-pools: slis.
*Type Declarations for Field Catalog
data : i_fldcat_head type slis_t_fieldcat_alv,
       wa_fldcat_head type slis_fieldcat_alv.
*Type Declarations for ALV Events
data : i_events type slis_t_event,
       wa_event like line of i_events.
*Type Declarations for Layout Design
data : wa_layout type slis_layout_alv.
*Type Declarations for Sorting Fields
data:  it_sort type slis_sortinfo_alv occurs 0 with header line.
*Type Declarations for Displaying Images on Grid
data : i_comment type slis_t_listheader,
       wa_comment type slis_listheader.
*Type Declarations for Grouping fields
data : wa_group type slis_sp_group_alv,
       i_group type slis_t_sp_group_alv.
  DATA DELCARATIONS
data: v_flag,                 "Status Flag
      v_repid like sy-repid,  "Program Name
      p_year(4) type c,       "Year
      v_due_days type i.      "To hold the due days
  CONSTANTS DELCARATIONS
constants: c_x type c value 'X',
           c_bukrs(4) type c value '0373'.
  INTERNAL TABLES DELCARATIONS
*--Internal table to hold the required data
data: begin of it_final_vendor occurs 0,
        rzzlifnr    like zzgeinz9a-rzzlifnr,  "Vendor
        name1       like lfa1-name1,          "Vendor Name
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR,  "Reference document no
        belnr       like bkpf-belnr,          "FI Doc No
        doc_date    like bkpf-awkey,          "Document Date
        zbd1t       like bsik-zbd1t,          "Cash discount days 1
        bldat       like bkpf-bldat,          "Document Date
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        hsl         like zzgeinz9a-hsl,       "local currency
        found       type c,                   "Existance Flag
      end of it_final_vendor.
data: begin of it_final_vendor_temp occurs 0,
        rzzlifnr    like zzgeinz9a-rzzlifnr,  "Vendor
        name1       like lfa1-name1,          "Vendor Name
        belnr       like bkpf-belnr,          "FI Doc No
        bldat       like bkpf-bldat,          "Document Date
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        hsl        like zzgeinz9a-hsl,        "local currency
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        buck_0_30   like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_31_60  like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_61_90  like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_91_180 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_180    like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR,  "Reference document no
        doc_date    like bkpf-awkey,          "Document Date
        found       type c,                   "Existance Flag
      end of it_final_vendor_temp.
data: begin of it_final_customer occurs 0,
        rzzkunnr    like zzgeinz9a-rzzkunnr,  "Customer
        name1       like kna1-name1,          "Customer Name
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR,  "Reference document no
        belnr       like bkpf-belnr,          "FI Doc No
        doc_date    like bkpf-awkey,          "Document Date
        zbd1t       like bsik-zbd1t,          "Cash discount days 1
        bldat       like bkpf-bldat,          "Document Date
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        hsl         like zzgeinz9a-hsl,       "local currency
        found       type c,                   "Existance Flag
      end of it_final_customer.
data: begin of it_final_customer_temp occurs 0,
        rzzkunnr    like zzgeinz9a-rzzkunnr,  "Customer
        name1       like kna1-name1,          "Customer Name
        belnr       like bkpf-belnr,          "FI Doc No
        bldat       like bkpf-bldat,          "Document Date
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        hsl        like zzgeinz9a-hsl,        "local currency
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        buck_0_30   like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_31_60  like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_61_90  like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_91_180 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_180    like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR,  "Reference document no
        doc_date    like bkpf-awkey,          "Document Date
        found       type c,                   "Existance Flag
      end of it_final_customer_temp.
*--Internal Table to hold the Cash discount days 1 for Vendors
data: begin of it_final_bsik occurs 0,
        belnr like bsik-belnr,
        zbd1t like bsik-zbd1t,
      end of it_final_bsik.
*--Internal Table to hold the Cash discount days 1 for Customers
data: begin of it_final_bsid occurs 0,
        belnr like bsid-belnr,
        zbd1t like bsid-zbd1t,
      end of it_final_bsid.
  INITIALIZATION
v_repid = sy-repid.
  SELECTION SCREEN
selection-screen: begin of block b1 with frame title text-h01.
selection-screen skip.
select-options: s_vendor for zzgeinz9a-rzzlifnr modif id ven.
parameters: p_comp1 like t001-bukrs modif id ven.
parameters: p_rundt1 like bkpf-bldat modif id ven.
select-options: s_cust for zzgeinz9a-rzzkunnr modif id cst.
parameters: p_comp2 like t001-bukrs modif id cst.
parameters: p_rundt2 like bkpf-bldat modif id cst.
selection-screen skip.
selection-screen: begin of block b2 with frame title text-h02.
parameters : p_vendor radiobutton group gr1 default 'X'
                                  user-command test,
             p_cust  radiobutton group gr1.
selection-screen: end of block b2.
selection-screen: end of block b1.
**************************AT Selection Screen OutPut ******************
at selection-screen output.
  loop at screen.
    if p_cust = 'X'.
      if screen-group1 = 'VEN'.
        screen-active = '0'.
        screen-input = '0'.
        screen-output = '0'.
        screen-invisible = '0'.
      endif.
    elseif p_vendor = 'X'.
      if screen-group1 = 'CST'.
        screen-active = '0'.
        screen-input = '0'.
        screen-output = '0'.
        screen-invisible = '0'.
      endif.
    endif.
    modify screen.
  endloop.
  SELECTION SCREEN ON
at selection-screen on s_vendor.
*--Validating Vendor
  if not s_vendor[] is initial.
    perform validate_s_vendor.
  endif.
at selection-screen on s_cust.
*--Validating Customer
  if not s_cust[] is initial.
    perform validate_s_cust.
  endif.
at selection-screen on p_comp1.
*--Validating Company Code.
  if not p_comp1 is initial.
    perform validate_p_comp1.
  endif.
at selection-screen on p_comp2.
*--Validating Company Code.
  if not p_comp2 is initial.
    perform validate_p_comp2.
  endif.
  START OF SELECTION
start-of-selection.
if p_vendor = 'X'.
   perform get_vendor_data.
elseif p_cust = 'X'.
   perform get_customer_data.
endif.
  END OF SELECTION
end-of-selection.
if p_vendor = 'X'.
*--Generating the output for vendor
  perform generate_field_catalog_vendor.
  perform get_events_vendor.
  perform generate_layout_vendor.
  perform generate_sort_vendor.
  perform generate_group_vendor.
  perform disp_alv_grid_vendor.
elseif p_cust = 'X'.
*--Generating the output for customer
  perform generate_field_catalog_cust.
  perform get_events_customer.
  perform generate_layout_customer.
  perform generate_sort_customer.
  perform generate_group_customer.
  perform disp_alv_grid_customer.
endif.
*&      Form  validate_s_vendor
      Validating the Vendor
form validate_s_vendor.
  select rzzlifnr up to 1 rows
  into (zzgeinz9a-rzzlifnr)
  from zzgeinz9a
  where rzzlifnr in s_vendor.
  endselect.
  if sy-subrc ne 0.
    message e004 with 'Invalid Range of Vendor'(002)
s_vendor-low 'To'(006) s_vendor-high.
  endif.
endform.                    " validate_s_vendor
*&      Form  validate_s_cust
      Validating the Customer
form validate_s_cust.
   select rzzkunnr up to 1 rows
   into (zzgeinz9a-rzzkunnr)
   from zzgeinz9a
   where rzzkunnr in s_cust.
   endselect.
   if sy-subrc ne 0.
     message e004 with 'Invalid Range of Customer'(005)
s_cust-low 'To'(006) s_cust-high.
  endif.
endform.                    " validate_s_cust
*&      Form  validate_p_comp1
      Validating the Company Code
form validate_p_comp1.
  select single bukrs
         into   (t001-bukrs)
         from   t001
         where  bukrs eq p_comp1.
  if sy-subrc ne 0.
    message e004 with 'Company Code'(004) p_comp1 'Does not Exists'(003)
  endif.
endform.                    " validate_p_comp1
*&      Form  validate_p_comp2
      Validating the Company Code
form validate_p_comp2.
  select single bukrs
         into   (t001-bukrs)
         from   t001
         where  bukrs eq p_comp2.
  if sy-subrc ne 0.
    message e004 with 'Company Code'(004) p_comp2 'Does not Exists'(003)
  endif.
endform.                    " validate_p_comp2
*&      Form  get_vendor_data
      Getting the Vendor Related Docs
form get_vendor_data.
select a~rzzlifnr
        b~name1
        a~docnr
        a~refdocnr
        a~rzz_ebeln
        a~hsl
    into corresponding fields of table it_final_vendor
    from zzgeinz9a as a
    inner join lfa1 as b
    on arzzlifnr = blifnr
    where rzzlifnr in s_vendor
    and   rbukrs   eq p_comp1.
    if sy-subrc eq 0.
      v_flag = 'X'.
      p_year = sy-datum+0(4).
      perform get_doc_date using p_comp1
                                 p_year.
      perform move_records.
      sort it_final_vendor by rzzlifnr.
      perform generate_data.
    else.
      v_flag = space.
    endif.
endform.                    " get_vendor_data
*&      Form  get_customer_data
      Getting the Customer Related Docs
form get_customer_data.
select a~rzzkunnr
        b~name1
        a~docnr
        a~refdocnr
        a~rzz_ebeln
        a~hsl
    into corresponding fields of table it_final_customer
    from zzgeinz9a as a
    inner join kna1 as b
    on arzzkunnr = bkunnr
    where rzzkunnr in s_cust
    and   rbukrs   eq p_comp2.
    if sy-subrc eq 0.
      v_flag = 'X'.
      p_year = sy-datum+0(4).
      perform get_doc_date_cust using p_comp2
                                      p_year.
      perform move_records_cust.
      sort it_final_customer by rzzkunnr.
      perform generate_data_cust.
    else.
      v_flag = space.
    endif.
endform.                    " get_customer_data
*&      Form  get_doc_date
      Getting the Document Date and FI Doc No
     -->P_P_COMP1 Company Code
     -->P_P_YEAR  Fiscal Year
form get_doc_date using    p_p_comp1
                           p_p_year.
  loop at it_final_vendor.
    concatenate it_final_vendor-refdocnr '*' into
it_final_vendor-doc_date.
    modify it_final_vendor index sy-tabix.
endloop.
clear it_final_vendor.
data: v_doc_date(11) type c,
      v_belnr like bkpf-belnr,
      v_bldat like bkpf-bldat.
      loop at it_final_vendor.
       concatenate it_final_vendor-refdocnr '%' into v_doc_date.
        select single belnr
                      bldat
               into corresponding fields of it_final_vendor
               from bkpf
               where bukrs eq p_p_comp1
               and   gjahr eq p_p_year
               and   awkey like v_doc_date.
               modify it_final_vendor.
       endloop.
    clear:it_final_vendor.
endform.                    " get_doc_date
*&      Form  move_records
      Moving records to final internal table
form move_records.
*--Checking the existance of belnr in bsik
clear it_final_vendor.
  select belnr
         zbd1t
         into table it_final_bsik
         from bsik
         for all entries in it_final_vendor
         where belnr eq it_final_vendor-belnr
         and   bukrs eq c_bukrs.
clear it_final_bsik.
  loop at it_final_vendor.
    read table it_final_bsik with key belnr = it_final_vendor-belnr.
    if sy-subrc eq 0.
      it_final_vendor-zbd1t = it_final_bsik-zbd1t.
      it_final_vendor-due_date = it_final_vendor-bldat +
it_final_bsik-zbd1t.
      it_final_vendor-found    = 'X'.
      modify it_final_vendor.
    endif.
  endloop.
endform.                    " move_records
*&      Form  generate_data
      Segregating the records based on due_date
form generate_data.
  delete it_final_vendor[] where found ne 'X'.
  sort it_final_vendor by belnr.
  loop at it_final_vendor.
    if it_final_vendor-due_date > p_rundt1.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-not_due.
    elseif it_final_vendor-due_date < p_rundt1.
      it_final_vendor-due_days = p_rundt1 - it_final_vendor-DUE_DATE.
    endif.
*--filling 0-30 bucket.
    if it_final_vendor-due_days ge 0 AND it_final_vendor-due_days le 30.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_0_30.
*--filling 31-60 bucket.
elseif it_final_vendor-due_days ge 31 AND it_final_vendor-due_days le 60
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_31_60.
*--filling 61-90 bucket.
elseif it_final_vendor-due_days ge 61 AND it_final_vendor-due_days le 90
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_61_90.
*--filling 91-180 bucket.
    elseif it_final_vendor-due_days ge 91 AND it_final_vendor-due_days
le 180.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_91_180.
*--filling 180 bucket.
    elseif it_final_vendor-due_days gt 180.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_180.
    endif.
     append it_final_vendor_temp.
     clear it_final_vendor_temp.
  endloop.
endform.                    " generate_data
*&      Form  DISP_ALV_GRID_VENDOR
      Displaying the output in grid For Vendor
form DISP_ALV_GRID_VENDOR.
*--Generating the OUTPUT GRID FOR VENDOR
  call function 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
    I_INTERFACE_CHECK                 = ' '
    I_BYPASSING_BUFFER                =
    I_BUFFER_ACTIVE                   = ' '
      I_CALLBACK_PROGRAM                = v_repid
    I_CALLBACK_PF_STATUS_SET          = ' '
    I_CALLBACK_USER_COMMAND           = ' '
    I_CALLBACK_TOP_OF_PAGE            = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
    I_CALLBACK_HTML_END_OF_LIST       = ' '
    I_STRUCTURE_NAME                  =
    I_BACKGROUND_ID                   = ' '
    I_GRID_TITLE                      =
    I_GRID_SETTINGS                   =
      IS_LAYOUT                         = wa_layout
      IT_FIELDCAT                       = i_fldcat_head
    IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 = i_group
      IT_SORT                           = it_sort[]
    IT_FILTER                         =
    IS_SEL_HIDE                       =
    I_DEFAULT                         = 'X'
    I_SAVE                            = ' '
    IS_VARIANT                        =
      IT_EVENTS                         = i_events
    IT_EVENT_EXIT                     =
    IS_PRINT                          =
    IS_REPREP_ID                      =
    I_SCREEN_START_COLUMN             = 0
    I_SCREEN_START_LINE               = 0
    I_SCREEN_END_COLUMN               = 0
    I_SCREEN_END_LINE                 = 0
    IT_ALV_GRAPHICS                   =
    IT_ADD_FIELDCAT                   =
    IT_HYPERLINK                      =
    I_HTML_HEIGHT_TOP                 =
    I_HTML_HEIGHT_END                 =
    IT_EXCEPT_QINFO                   =
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER           =
    ES_EXIT_CAUSED_BY_USER            =
    tables
      t_outtab                          = it_final_vendor_temp
   EXCEPTIONS
     PROGRAM_ERROR                     = 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.
endform.                    " DISP_ALV_GRID
*&      Form  get_doc_date_cust
      text
     -->P_P_COMP2 Company Code
     -->P_P_YEAR  Fiscal Year
form get_doc_date_cust using    p_p_comp2
                                p_p_year.
  loop at it_final_customer.
    concatenate it_final_customer-refdocnr '*' into
it_final_customer-doc_date.
    modify it_final_customer index sy-tabix.
endloop.
clear it_final_customer.
data: v_doc_date(11) type c,
      v_belnr like bkpf-belnr,
      v_bldat like bkpf-bldat.
      loop at it_final_customer.
       concatenate it_final_customer-refdocnr '%' into v_doc_date.
        select single belnr
                      bldat
               into corresponding fields of it_final_customer
               from bkpf
               where bukrs eq p_p_comp2
               and   gjahr eq p_p_year
               and   awkey like v_doc_date.
               modify it_final_customer.
       endloop.
    clear:it_final_customer.
endform.                    " get_doc_date_cust
*&      Form  move_records_cust
      Moving Customer Data to Final Internal Table
form move_records_cust.
*--Checking the existance of belnr in bsid
  select belnr
         zbd1t
         into table it_final_bsid
         from bsid
         for all entries in it_final_customer
         where belnr eq it_final_customer-belnr
         and   bukrs eq c_bukrs.
clear it_final_bsid.
  loop at it_final_customer.
    read table it_final_bsid with key belnr = it_final_customer-belnr.
    if sy-subrc eq 0.
      it_final_customer-zbd1t    = it_final_bsid-zbd1t.
      it_final_customer-due_date = it_final_customer-bldat +
it_final_bsid-zbd1t.
      it_final_customer-found    = 'X'.
      modify it_final_customer.
    endif.
  endloop.
endform.                    " move_records_cust
*&      Form  generate_data_cust
      Generating the Customer Output
form generate_data_cust.
  delete it_final_customer[] where found ne 'X'.
  sort it_final_customer by belnr.
  loop at it_final_customer.
    if it_final_customer-due_date > p_rundt2.
     move-corresponding it_final_customer to it_final_customer_temp.
     move it_final_customer-hsl to it_final_customer_temp-not_due.
    elseif it_final_customer-due_date < p_rundt2.
     it_final_customer-due_days = p_rundt2 - it_final_customer-DUE_DATE.
    endif.
*--filling 0-30 bucket.
if it_final_customer-due_days ge 0 AND it_final_customer-due_days le 30
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_0_30.
*--filling 31-60 bucket.
elseif it_final_customer-due_days ge 31 AND it_final_customer-due_days
le 60
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_31_60.
*--filling 61-90 bucket.
elseif it_final_customer-due_days ge 61 AND it_final_customer-due_days
le 90
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_61_90.
*--filling 91-180 bucket.
    elseif it_final_customer-due_days ge 91 AND
it_final_customer-due_days
le 180.
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_91_180.
*--filling 180 bucket.
    elseif it_final_customer-due_days gt 180.
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_180.
    endif.
     append it_final_customer_temp.
     clear it_final_customer_temp.
  endloop.
endform.                    " generate_data_cust
*&      Form  generate_field_catalog_vendor
      Generating the Field Catalog for Vendor
form generate_field_catalog_vendor.
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
      I_PROGRAM_NAME               = v_repid
      I_INTERNAL_TABNAME           = 'IT_FINAL_VENDOR_TEMP'
    I_STRUCTURE_NAME             =
    I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = v_repid
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    changing
      ct_fieldcat                  = i_fldcat_head
   EXCEPTIONS
     INCONSISTENT_INTERFACE       = 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.
  if not i_fldcat_head[] is initial.
    loop at i_fldcat_head into wa_fldcat_head.
    case wa_fldcat_head-fieldname.
     when 'RZZLIFNR'.
        wa_fldcat_head-col_pos = '1'.
        wa_fldcat_head-ref_tabname = ' '.
        wa_fldcat_head-seltext_m  = 'Vendor No'(001).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
     when 'NAME1'.
        wa_fldcat_head-col_pos = '2'.
        wa_fldcat_head-seltext_m  = 'Vendor Name'(007).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '35'.
     when 'BELNR'.
        wa_fldcat_head-col_pos = '3'.
        wa_fldcat_head-seltext_m  = 'Invoice No'(008).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-KEY       = ' '.
     when 'BLDAT'.
        wa_fldcat_head-col_pos = '4'.
        wa_fldcat_head-seltext_m  = 'Document Date'(009).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'RZZ_EBELN'.
        wa_fldcat_head-col_pos = '5'.
        wa_fldcat_head-seltext_m  = 'PO.Ref.No'(010).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'HSL'.
        wa_fldcat_head-col_pos = '6'.
        wa_fldcat_head-seltext_m  = 'Invoice Amount'(011).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'DUE_DATE'.
        wa_fldcat_head-col_pos = '7'.
        wa_fldcat_head-seltext_m  = 'Due Date'(012).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'DUE_DAYS'.
        wa_fldcat_head-col_pos = '8'.
        wa_fldcat_head-seltext_m  = 'Due Days'(013).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '9'.
     when 'NOT_DUE'.
        wa_fldcat_head-col_pos = '9'.
        wa_fldcat_head-seltext_m  = 'Not Due'(014).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_0_30'.
        wa_fldcat_head-col_pos = '10'.
        wa_fldcat_head-seltext_m  = '0 To 30'(015).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_31_60'.
        wa_fldcat_head-col_pos = '11'.
        wa_fldcat_head-seltext_m  = '31 To 60'(016).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_61_90'.
        wa_fldcat_head-col_pos = '12'.
        wa_fldcat_head-seltext_m  = '61 To 90'(017).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_91_180'.
        wa_fldcat_head-col_pos = '13'.
        wa_fldcat_head-seltext_m  = '91 To 180'(018).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_180'.
        wa_fldcat_head-col_pos = '14'.
        wa_fldcat_head-seltext_m  = 'Beyond 180'(019).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
    when 'DOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'REFDOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'DOC_DATE'.
        wa_fldcat_head-no_out = 'X'.
    when 'FOUND'.
        wa_fldcat_head-no_out = 'X'.
     endcase.
     modify i_fldcat_head from wa_fldcat_head index sy-tabix.
    endloop.
  endif.
endform.                    " generate_field_catalog_vendor
*&      Form  get_events_vendor
      Getting ALV Events
form get_events_vendor.
    call function 'REUSE_ALV_EVENTS_GET'
  EXPORTING
    I_LIST_TYPE           = 0
   importing
     et_events             = i_events
  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.
  if not i_events[] is initial.
   read table i_events into wa_event with key name = 'TOP_OF_PAGE'(024)
   wa_event-form = 'GENERATE_USERCOMMAND'.
   modify i_events from wa_event index sy-tabix.
   read table i_events into wa_event with key name = 'END_OF_LIST'(025)
   wa_event-form = 'GENERATE_USERCOMMAND_FOOTER'.
   modify i_events from wa_event index sy-tabix.
  endif.
endform.                    " get_events_vendor
*&      Form  GENERATE_USERCOMMAND
      Displaying Header-Text and Logo on Grid
form generate_usercommand .
  clear i_comment[].
  wa_comment-typ = 'H'.
  wa_comment-info = 'Vendor Ageing Report'(026).
  append wa_comment to i_comment.
  call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = i_comment
      i_logo             = 'ENJOYSAP_LOGO'
    I_END_OF_LIST_GRID       = 'X'
endform.                    " GENERATE_USERCOMMAND
*&      Form  GENERATE_USERCOMMAND_FOOTER
      Displaying Footer-Text on Grid
form generate_usercommand_footer.
  clear i_comment[].
  clear wa_comment.
  wa_comment-typ = 'S'.
  wa_comment-key = 'GE-Betz'(027).
  append wa_comment to i_comment.
  call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary       = i_comment
    I_LOGO                  = ''
      i_end_of_list_grid       = 'X'.
endform.                    " GENERATE_USERCOMMAND_FOOTER
*&      Form  generate_layout_vendor
      Generating the ALV Layout
form generate_layout_vendor.
  WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.     "OPTIMIZING FIELD WIDTH
  wa_layout-zebra = 'X'.                  "PUTTING ZEBRA COLORS
  wa_layout-confirmation_prompt = 'X'.    "DISPLAYS CONFIRMATION DIALOG
  wa_layout-totals_text = 'Totals'(028).       "DISPLAYS TOTALS TEXT
  wa_layout-subtotals_text = 'Sub Totals'(029)."DISPLAYS SUBTOTALS TEXT
endform.                    " generate_layout_vendor
*&      Form  generate_sort_vendor
      Sorting the Internal Table by Vendor
form generate_sort_vendor.
  it_sort-fieldname = 'RZZLIFNR'.
  it_sort-tabname = 'IT_FINAL_VENDOR_TEMP'.
  it_sort-up = 'X'.
  it_sort-subtot = 'X'.
  append it_sort.
endform.                    " generate_sort_vendor
*&      Form  generate_group_vendor
      Grouping the Data
form generate_group_vendor.
  clear i_group.
  wa_group-sp_group = 'A'.
  wa_group-text  = 'RZZLIFNR'.
  append wa_group to i_group.
endform.                    " generate_group_vendor
*&      Form  GENERATE_FIELD_CATALOG_CUST
      Generating Field Catalog for Customer
form GENERATE_FIELD_CATALOG_CUST.
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
      I_PROGRAM_NAME               = v_repid
      I_INTERNAL_TABNAME           = 'IT_FINAL_CUSTOMER_TEMP'
    I_STRUCTURE_NAME             =
    I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = v_repid
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    changing
      ct_fieldcat                  = i_fldcat_head
   EXCEPTIONS
     INCONSISTENT_INTERFACE       = 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.
  if not i_fldcat_head[] is initial.
    loop at i_fldcat_head into wa_fldcat_head.
    case wa_fldcat_head-fieldname.
     when 'RZZKUNNR'.
        wa_fldcat_head-col_pos = '1'.
        wa_fldcat_head-ref_tabname = ' '.
        wa_fldcat_head-seltext_m  = 'Customer No'(020).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
     when 'NAME1'.
        wa_fldcat_head-col_pos = '2'.
        wa_fldcat_head-seltext_m  = 'Customer Name'(021).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '35'.
     when 'BELNR'.
        wa_fldcat_head-col_pos = '3'.
        wa_fldcat_head-seltext_m  = 'Invoice No'(008).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-KEY       = ' '.
     when 'BLDAT'.
        wa_fldcat_head-col_pos = '4'.
        wa_fldcat_head-seltext_m  = 'Document Date'(009).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'RZZ_EBELN'.
        wa_fldcat_head-col_pos = '5'.
        wa_fldcat_head-seltext_m  = 'PO.Ref.No'(010).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'HSL'.
        wa_fldcat_head-col_pos = '6'.
        wa_fldcat_head-seltext_m  = 'Invoice Amount'(011).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'DUE_DATE'.
        wa_fldcat_head-col_pos = '7'.
        wa_fldcat_head-seltext_m  = 'Due Date'(012).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'DUE_DAYS'.
        wa_fldcat_head-col_pos = '8'.
        wa_fldcat_head-seltext_m  = 'Due Days'(013).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '9'.
     when 'NOT_DUE'.
        wa_fldcat_head-col_pos = '9'.
        wa_fldcat_head-seltext_m  = 'Not Due'(014).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_0_30'.
        wa_fldcat_head-col_pos = '10'.
        wa_fldcat_head-seltext_m  = '0 To 30'(015).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_31_60'.
        wa_fldcat_head-col_pos = '11'.
        wa_fldcat_head-seltext_m  = '31 To 60'(016).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_61_90'.
        wa_fldcat_head-col_pos = '12'.
        wa_fldcat_head-seltext_m  = '61 To 90'(017).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_91_180'.
        wa_fldcat_head-col_pos = '13'.
        wa_fldcat_head-seltext_m  = '91 To 180'(018).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_180'.
        wa_fldcat_head-col_pos = '14'.
        wa_fldcat_head-seltext_m  = 'Beyond 180'(019).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
    when 'DOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'REFDOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'DOC_DATE'.
        wa_fldcat_head-no_out = 'X'.
    when 'FOUND'.
        wa_fldcat_head-no_out = 'X'.
     endcase.
     modify i_fldcat_head from wa_fldcat_head index sy-tabix.
    endloop.
  endif.
endform.                    " GENERATE_FIELD_CATALOG_CUST
*&      Form  get_events_customer
      Getting ALV Events
form get_events_customer.
    call function 'REUSE_ALV_EVENTS_GET'
  EXPORTING
    I_LIST_TYPE           = 0
   importing
     et_events             = i_events
  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.
  if not i_events[] is initial.
   read table i_events into wa_event with key name = 'TOP_OF_PAGE'(024)
   wa_event-form = 'GENERATE_USERCOMMAND_CUST'.
   modify i_events from wa_event index sy-tabix.
   read table i_events into wa_event with key na