Need to have subtotal

Hi,
  I am using 'ALV_GRID_DISPLAY'. i need to have a subtotal in the output based on two fields of my output (vendor and period).
any one help please
Thanks  in advance.

DATA: lv_sort TYPE slis_sortinfo_alv,
          gt_sort             TYPE slis_t_sortinfo_alv,
  lv_sort-fieldname = 'BUKRS'. " Sort by Co Code
  lv_sort-tabname = 'GT_TRANSDT'.
  lv_sort-subtot    = 'X'.
  APPEND lv_sort TO gt_sort.
  lv_sort-fieldname = 'BELNR'. " Sort by G/L accounts
   lv_sort-tabname = 'GT_TRANSDT'.
  lv_sort-subtot    = 'X'.
  APPEND lv_sort TO gt_sort.
pass gt_sort in the function module.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
    I_INTERFACE_CHECK                 = ' '
    I_BYPASSING_BUFFER                = ' '
    I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = gv_repid
     i_callback_pf_status_set          = gv_status
     i_callback_user_command           = 'F_FB03'
    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                         = gs_layout
     it_fieldcat                       = gt_fieldcat
    IT_EXCLUDING                      =
    IT_SPECIAL_GROUPS                 =
<b>     it_sort                           = gt_sort[]</b>
    IT_FILTER                         =
    IS_SEL_HIDE                       =
     i_default                         = 'A'
     i_save                            = gv_save
     is_variant                        = gv_variant
     it_events                         = gt_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_HYPERLINK                      =
    IT_ADD_FIELDCAT                   =
    IT_EXCEPT_QINFO                   =
    I_HTML_HEIGHT_TOP                 =
    I_HTML_HEIGHT_END                 =
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER           =
    ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = gt_transdt_line
  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.

Similar Messages

Maybe you are looking for