How to calculate the subtotals in alv for curr field(bsik-wrbtr)

Question

I want to calculate subtotal for netamt for every new lifnr(vendor )
this is my program
REPORT  Z23PRAC1.
*& Report  ZRFI_AP_AGING_REPORT
TABLES : lfa1,lfb1.
CONSTANTS : gc_linedat(1) TYPE c VALUE 'X',
            gc_duedate(1) TYPE c VALUE 'X',
            gc_koart(1) TYPE c VALUE 'K',
            gc_tname(9) TYPE c VALUE 'GT_OUTPUT'.
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_output,
       bukrs    TYPE bsik-bukrs,                  "Company Code
       lifnr    TYPE bsik-lifnr,                  "Vendor Account
       blart    TYPE bsik-blart,                  "Document Type
       name1    TYPE lfa1-name1,                  "Vendor Name
       ktokk    TYPE lfa1-ktokk,                  "Account Group
       belnr    TYPE bsik-belnr,                  "Invoice
       ebeln    TYPE bsik-ebeln,                  "Purchasing Order
       bldat    TYPE bsik-bldat,                  "Document Date
       netdt    TYPE bsega-netdt,                 "Due Date
       wrbtr1   TYPE bsik-wrbtr,                            "Aged 1-30
       wrbtr2   TYPE bsik-wrbtr,                            "Aged 31-60
       wrbtr3   TYPE bsik-wrbtr,                            "Aged 61-90
       wrbtr4   TYPE bsik-wrbtr,                  "Aged Over 90
       grossamt TYPE bsik-wrbtr,                  "Gross Amount Due
       psskt    TYPE regup-psskt,                 "Discount
      netamt(13)   TYPE P decimals 2,                  "Net Amount Due
       NETAMT   TYPE BSIK-WRBTR,
       END OF ty_output.
TYPES: BEGIN OF ty_vendor1,
       lifnr   TYPE lfa1-lifnr,
       name1   TYPE lfa1-name1,
       ktokk   TYPE lfa1-ktokk,
END OF ty_vendor1.
TYPES :BEGIN OF ty_vendor,
      bukrs   TYPE bsik-bukrs,                   "COMPANY CODE
      lifnr   TYPE bsik-lifnr,                   "CUSTOMER ACCOUNT
END OF ty_vendor.
TYPES :BEGIN OF ty_ekko,
      bukrs   TYPE ekko-bukrs,                   "COMPANY CODE
      lifnr   TYPE ekko-lifnr,                   "CUSTOMER ACCOUNT
      ebeln    TYPE ekko-ebeln,
END OF ty_ekko.
DATA: gt_output   TYPE TABLE OF ty_output,        "OUTPUT TABLE
      gt_lineitem TYPE TABLE OF bapi3008_2,       "LINE ITEMS TABLE
     gt_custdet  TYPE TABLE OF ty_custdet,       "CUSTOMER ACCOUNT VALIDATION
      gt_fieldcat TYPE slis_t_fieldcat_alv,       "FIELD CATALOG
      gt_events   TYPE slis_t_event,              "EVENTS CATALOG
      gt_sort     TYPE slis_t_sortinfo_alv,       "SORT CATALOG
      gt_text_top_of_page TYPE slis_t_listheader, "TOP OF THE PAGE
      gt_vendor1 TYPE TABLE OF ty_vendor1,
      gt_vendor TYPE TABLE OF ty_vendor,
      gt_ekko   TYPE TABLE OF ty_ekko.
DATA: st_output   TYPE ty_output,                 "OUTPUT WORK AREA
      st_lineitem TYPE bapi3008_2,                "LINE ITEMS WORK AREA
     st_custdet  TYPE ty_custdet,                "CUSTOMER ACCOUNT VALIDATION
      st_faede    TYPE faede,                     "DUE DATE CALCULATION
      st_fieldcat LIKE LINE OF gt_fieldcat,
      st_events   LIKE LINE OF gt_events,
      st_sort     LIKE LINE OF gt_sort,
      st_text_top_of_page LIKE LINE OF gt_text_top_of_page,
      st_vendor1 TYPE ty_vendor1,
      st_vendor TYPE ty_vendor,
      st_ekko   TYPE ty_ekko.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr,
                 s_bukrs FOR lfb1-bukrs,
                 s_ktokk FOR lfa1-ktokk.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : p_astid TYPE rfpdo-allgstid DEFAULT sy-datum.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_summed AS CHECKBOX,
            p_linedt AS CHECKBOX DEFAULT gc_linedat.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
PARAMETERS: p_docdat AS CHECKBOX,
            p_duedat AS CHECKBOX DEFAULT gc_duedate.
SELECTION-SCREEN END OF BLOCK b4.
START-OF-SELECTION.
  SELECT lifnr name1 ktokk FROM lfa1
                                INTO TABLE gt_vendor1
                                WHERE lifnr IN s_lifnr.
  SELECT bukrs
           lifnr
           ebeln
           FROM ekko
           INTO TABLE gt_ekko
           WHERE bukrs IN s_bukrs
           AND lifnr IN s_lifnr.
IF s_bukrs IS NOT INITIAL AND s_lifnr IS NOT INITIAL.
  SELECT bukrs
         lifnr
         FROM lfb1
         INTO TABLE gt_vendor
         WHERE bukrs IN s_bukrs
         AND lifnr IN s_lifnr.
*LOOP AT GT_OUTPUT INTO ST_OUTPUT.
*endif.
  LOOP AT gt_vendor INTO st_vendor.
    READ TABLE gt_vendor1 INTO st_vendor1 WITH KEY lifnr = st_vendor-lifnr.
    READ TABLE gt_ekko INTO st_ekko WITH KEY lifnr = st_vendor-lifnr
                                                 bukrs = st_vendor-bukrs.
    CALL FUNCTION 'BAPI_AP_ACC_GETOPENITEMS'
      EXPORTING
        companycode = st_vendor-bukrs
        vendor      = st_vendor-lifnr
        keydate     = p_astid
      TABLES
        lineitems   = gt_lineitem.
    LOOP AT gt_lineitem INTO st_lineitem.
      st_faede-shkzg = st_lineitem-db_cr_ind.
      st_faede-koart = gc_koart.
      st_faede-zfbdt = st_lineitem-bline_date.
      st_faede-zbd1t = st_lineitem-dsct_days1.
      st_faede-zbd2t = st_lineitem-dsct_days2.
      st_faede-zbd3t = st_lineitem-netterms.
      st_faede-rebzg = st_lineitem-inv_ref.
      st_faede-rebzt = st_lineitem-nxt_doctyp.
      st_faede-bldat = st_lineitem-doc_date.
      CALL FUNCTION 'DETERMINE_DUE_DATE'
        EXPORTING
          i_faede                    = st_faede
        IMPORTING
          e_faede                    = st_faede
        EXCEPTIONS
          account_type_not_supported = 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.
      st_output-bukrs = st_vendor-bukrs.
      st_output-lifnr = st_vendor-lifnr.
      st_output-name1 = st_vendor1-name1.
      st_output-ktokk = st_vendor1-ktokk.
      st_output-blart = st_lineitem-doc_type.
      st_output-belnr = st_lineitem-doc_no.
      st_output-ebeln = st_ekko-ebeln.
      st_output-bldat = st_faede-bldat.
      st_output-netdt = st_faede-netdt.
      DATA : lv_date TYPE i.
      IF p_docdat = 'X'.
        lv_date = p_astid - st_output-bldat.
        IF lv_date < 30 .
          st_output-wrbtr1 = st_lineitem-amt_doccur.
        ELSEIF lv_date < 60 .
          st_output-wrbtr2 = st_lineitem-amt_doccur.
        ELSEIF lv_date < 90 .
          st_output-wrbtr3 = st_lineitem-amt_doccur.
        ELSEIF lv_date > 90 .
          st_output-wrbtr4 = st_lineitem-amt_doccur.
        ENDIF.
      ELSE.
        lv_date = p_astid - st_output-bldat.
        IF lv_date < 30 .
          st_output-wrbtr1 = st_lineitem-amt_doccur.
        ELSEIF lv_date < 60 .
          st_output-wrbtr2 = st_lineitem-amt_doccur.
        ELSEIF lv_date < 90 .
          st_output-wrbtr3 = st_lineitem-amt_doccur.
        ELSEIF lv_date > 90 .
          st_output-wrbtr4 = st_lineitem-amt_doccur.
        ENDIF.
      ENDIF.
DATA :  A TYPE BSIK-WRBTR,
        C TYPE STRING.
      st_output-grossamt = st_output-wrbtr1 +
                           st_output-wrbtr2 +
                           st_output-wrbtr3 +
                           st_output-wrbtr4 .
      A = st_output-grossamt - ( st_output-grossamt * st_output-psskt ) / 100.
      MOVE A TO C.
      MOVE C TO st_output-netamt .
*st_output-netamt = st_output-grossamt - ( st_output-grossamt * st_output-psskt ) / 100.
      APPEND  st_output TO gt_output.
      CLEAR st_output.
    ENDLOOP.
  ENDLOOP.
SORT gt_output.
END-OF-SELECTION.
  PERFORM fill_field_catalog.
  PERFORM fill_event_catalog.
  PERFORM sort_catalog.
  PERFORM display_alv_list.
*&      Form  fill_field_catalog
      text
FORM fill_field_catalog .
*Definition
  DEFINE field_cat.
    st_fieldcat-tabname      = &1.
    st_fieldcat-fieldname    = &2.
    st_fieldcat-ref_tabname  = &3.
    st_fieldcat-seltext_m    = &4.
    st_fieldcat-do_sum       = &5.
      append st_fieldcat to gt_fieldcat.
    clear st_fieldcat.
  END-OF-DEFINITION.
  field_cat gc_tname 'BUKRS' 'BSIK' 'Company Code' ''.
  field_cat 'GT_OUTPUT' 'LIFNR' 'BSIK' 'Customer Account' ''.
  field_cat 'GT_OUTPUT' 'BLART' 'BSIK' 'Document Type' ''.
  field_cat 'GT_OUTPUT' 'NAME1' 'LFA1' 'Vendor Name' ''.
  field_cat 'GT_OUTPUT' 'KTOKK' 'LFA1' 'Account Group' ''.
field_cat gc_TNAME 'ALLGSTID' 'RFPDO' 'Key Date' ''.
  field_cat gc_tname 'BELNR' 'BSIK' 'Invoice' ''.
  field_cat gc_tname 'EBELN' 'EKKO' 'Purchasing Order' ''.
  field_cat gc_tname 'BLDAT' 'BSIK' 'Document Date' ''.
  field_cat gc_tname 'NETDT' 'BSEGA' 'Due Date' ''.
  field_cat gc_tname 'WRBTR1' 'BSIK' 'Aged 1-30' ''.
  field_cat gc_tname 'WRBTR2' 'BSIK' 'Aged 31-60' ''.
  field_cat gc_tname 'WRBTR3' 'BSIK' 'Aged 61-90' ''.
  field_cat gc_tname 'WRBTR4' 'BSIK' 'Aged Over 90' ''.
  field_cat gc_tname 'GROSSAMT' 'BSIK' 'Gross Amount' ''.
  field_cat gc_tname 'PSSKT' 'REGUP' 'Discount' ''.
  field_cat gc_tname 'NETAMT' 'BSIK' 'Net Amount' 'X' .
ENDFORM.                    " fill_field_catalog
*&      Form  fill_event_catalog
      EVENTS FILLING SUBROUTINE TO FIND THE TOP OF THE PAGE EVENT
FORM fill_event_catalog .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = gt_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.
  READ TABLE gt_events TRANSPORTING NO FIELDS WITH KEY name = 'TOP_OF_PAGE'.
  IF sy-subrc EQ 0.
    st_events-form = 'FILL_HEADER'.
    MODIFY gt_events FROM st_events INDEX sy-tabix TRANSPORTING form.
  ENDIF.
ENDFORM.                    " fill_event_catalog
*&      Form  FILL_HEADER
      FILL HEADER DATA
FORM fill_header .
st_text_top_of_page-typ = 'S'.
st_text_top_of_page-info = sy-mandt.
APPEND st_text_top_of_page TO gt_text_top_of_page.
st_text_top_of_page-info = sy-uname.
APPEND st_text_top_of_page TO gt_text_top_of_page.
WRITE sy-datum TO st_text_top_of_page-info.
APPEND st_text_top_of_page TO gt_text_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
   EXPORTING
     it_list_commentary = gt_text_top_of_page.
ENDFORM.                   "fill header
*&      Form  sort_catalog
      text
-->  p1        text
<--  p2        text
FORM sort_catalog .
  st_sort-up = 'X'.
  st_sort-spos = 1.
  st_sort-subtot = 'X'.
  st_sort-fieldname = 'LIFNR'.
  APPEND st_sort TO Gt_sort.
  CLEAR st_sort.
  st_sort-up = 'X'.
  st_sort-spos = '2'.
  st_sort-subtot = ''.
  st_sort-fieldname = 'NETAMT'.
  APPEND st_sort TO gt_sort.
  CLEAR st_sort.
ENDFORM.                    " sort_catalog
*&      Form  display_alv_list
      CREATE THE OUTPUT IN THE ALV LIST FORMAT
FORM display_alv_list .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      it_fieldcat        = gt_fieldcat
      it_sort            = gt_sort
      i_default          = 'X'
      it_events          = gt_events
    TABLES
      t_outtab           = gt_output
    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.                    " display_alv_list

Answer 1

Hi,
This is the sample report for ALV SUBTOTAL.
REPORT  YMS_ALVSUBTOTAL.
*REPORT z_alv_sub_totals .
TYPE-POOLS: slis.
DATA: BEGIN OF it_output OCCURS 0,
          var1(8) TYPE n,
          var2(10),
          var3 TYPE I,
      END OF it_output.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
       t_fieldcat TYPE slis_fieldcat_alv,
      it_sort TYPE slis_t_sortinfo_alv,
      t_sort TYPE slis_sortinfo_alv,
      v_repid LIKE sy-repid.
INITIALIZATION.
  v_repid = sy-repid.
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM sort_fields.
  PERFORM fill_fieldcat.
  PERFORM list_display.
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM get_data.
  it_output-var1 = 1000.
  it_output-var2 = 'anupama'.
  it_output-var3 = '10000'.
it_output-key = 'X'.
  APPEND it_output.
  CLEAR it_output.
  it_output-var1 = 1000.
  it_output-var2 = 'siddhu'.
  it_output-var3 = '20000'.
  APPEND it_output.
  CLEAR it_output.
  it_output-var1 = 1000.
  it_output-var2 = 'chinni'.
  it_output-var3 = '100000'.
  APPEND it_output.
  CLEAR it_output.
  it_output-var1 = 2000.
  it_output-var2 = 'chicchu'.
  it_output-var3 = '10000'.
  APPEND it_output.
  CLEAR it_output.
  it_output-var1 = 2000.
  it_output-var2 = 'candy'.
  it_output-var3 = '10000'.
  APPEND it_output.
  CLEAR it_output.
  it_output-var1 = 1000.
  it_output-var2 = 'anupama'.
  it_output-var3 = '10000'.
  APPEND it_output.
  CLEAR it_output.
  it_output-var1 = 4000.
  it_output-var2 = 'anupama'.
  it_output-var3 = '10000'.
  APPEND it_output.
  CLEAR it_output.
ENDFORM.                    " GET_DATA
*&      Form  fill_fieldcat
      text
-->  p1        text
<--  p2        text
FORM fill_fieldcat.
  PERFORM fill_fields USING: 'IT_OUTPUT' 'VAR1' 'Variable 1' ' ',
                             'IT_OUTPUT' 'VAR2' 'Variable 2' ' ',
                             'IT_OUTPUT' 'VAR3' 'Variable 3' 'X'.
ENDFORM.                    " fill_fieldcat
*&      Form  fill_fields
      text
     -->P_0146   text
     -->P_0147   text
     -->P_0148   text
     -->P_0149   text
FORM fill_fields USING    value(tabname) TYPE slis_tabname
                          value(fieldname) TYPE slis_fieldname
                          value(seltext_m) LIKE dd03p-scrtext_m
                          value(do_sum) TYPE c.
  t_fieldcat-tabname = tabname.
  t_fieldcat-fieldname = fieldname.
  t_fieldcat-seltext_m  = seltext_m.
  IF do_sum = 'X'.
    t_fieldcat-datatype = 'CURR'.
  ENDIF.
  t_fieldcat-do_sum = do_sum.
  APPEND t_fieldcat TO it_fieldcat.
  CLEAR t_fieldcat.
ENDFORM.                    " fill_fields
*&      Form  list_display
      text
-->  p1        text
<--  p2        text
FORM list_display.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     i_callback_program             = v_repid
     it_fieldcat                    = it_fieldcat
     it_sort                        = it_sort[]
   TABLES
      t_outtab                       = it_output
   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.                    " list_display
*&      Form  sort_fields
      text
-->  p1        text
<--  p2        text
FORM sort_fields.
  t_sort-fieldname = 'VAR1'.
  t_sort-tabname = 'IT_OUTPUT'.
  t_sort-spos = 1.
  t_sort-up = 'X'.
  t_sort-subtot = 'X'.
  APPEND t_sort TO it_sort.
  CLEAR t_sort.
  t_sort-fieldname = 'VAR3'.
  t_sort-tabname = 'IT_OUTPUT'.
  t_sort-spos = 2.
  t_sort-up = 'X'.
  APPEND t_sort TO it_sort.
  CLEAR t_sort.
ENDFORM.                    " sort_fields
Thanks,
Sankar M