ALV subtotal display

Question

Dear all,
i want to display
         field1 field2  fie3  field4
mat1   10     20     tere    50
mar2    60    50     erhr    70
total                              120
fright                               40
cst                                  20
G.total                           180
like this , is it possible in alv display?, pls tell me

Answer 1

hi,
You use this code it will full fill ur recuirement.
type-pools: slis.
tables: vbak,vbap.
selecting range of soles order no by using below statement.
SELECT-OPTIONS: so_vbeln for vbak-vbeln.
*Creating the structure's to hold sales order header and item details.
types: begin of ty_vbak,
       VBELN type vbak-vbeln,
       ERDAT type vbak-erdat,
       NETWR type vbak-netwr,
       WAERK type vbak-waerk,
       end of ty_vbak,
       begin of ty_vbap,
       mandt type vbap-mandt,
       vbeln type vbap-vbeln,
       POSNR  type vbap-posnr,
       KWMENG type vbap-KWMENG,
       VRKME TYPE VBAP-VRKME,
       NETWR type vbap-netwr,
       WAERK type  vbap-waerk,
       DISAMT type  vbap-netwr,
       end of ty_vbap.
*Creating the referances of required Objects.
data: w_vbak  type ty_vbak,
      it_vbak type table of ty_vbak,
      w_vbap  type ty_vbap,
      it_vbap type table of ty_vbap,
      w_fieldcat type slis_fieldcat_alv,
      i_fieldcat type slis_t_fieldcat_alv,
      i_fieldcat1 type slis_t_fieldcat_alv,
      w_slis_selfield type slis_selfield,
      W_IS_LAYOUT TYPE SLIS_LAYOUT_ALV,
      repid type sy-repid,
      i_event TYPE slis_t_event,
      l_s_event TYPE slis_alv_event,
      i_sort TYPE  slis_t_sortinfo_alv,
      wa_sort TYPE slis_sortinfo_alv,
      i_alv_top_of_page TYPE slis_t_listheader.
*This is display date and time on top of page.
PERFORM sub_top_of_page.
This perform to make structure for header details.
PERFORM FIELDCATLOG1.
This perform to make structure for item details.
PERFORM FIELDCATLOG2.
*This is to define Layout structure.
PERFORM LAYOUT_STU.
*This statement is to get header info from header table.
SELECT VBELN ERDAT NETWR WAERK from VBAK into table It_vbak where vbeln in so_vbeln.
repid = SY-REPID.
*This is heder info display grid alv.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM      = repid
    I_CALLBACK_TOP_OF_PAGE  = 'TOP-OF-PAGE'
    I_CALLBACK_USER_COMMAND = 'INTERACTIVE'
    IS_LAYOUT               = w_is_layout
    IT_FIELDCAT             = i_fieldcat
  TABLES
    T_OUTTAB                = it_vbak
  EXCEPTIONS
    PROGRAM_ERROR           = 1
    OTHERS                  = 2.
&      Form  INTERACTIVE
    This form dispaly item info on alv grid form.
       -->R_UCOMM      text
       -->RS_SELFIELD  text
FORM INTERACTIVE USING R_UCOMM LIKE SY-UCOMM
                       RS_SELFIELD TYPE SLIS_SELFIELD.
  DATA: TEMP_VBELN TYPE VBAK-VBELN.
  IF RS_SELFIELD-FIELDNAME = 'VBELN'.
    CASE R_UCOMM.
      WHEN '&IC1'.
        refresh: it_vbak , it_vbap , i_event , i_sort.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = RS_SELFIELD-VALUE
          IMPORTING
            OUTPUT = TEMP_VBELN.
        TEMP_VBELN = RS_SELFIELD-VALUE.
*This statement is to get item info from item table
        SELECT VBELN POSNR KWMENG VRKME NETWR WAERK INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
                                                           FROM VBAP WHERE VBELN = TEMP_VBELN.
        IF sy-subrc = 0.
          SORT IT_VBAP BY VBELN POSNR KWMENG .
        ENDIF.
*This is to calculate 30% of discount amount
        LOOP AT IT_VBAP INTO W_VBAP .
          W_VBAP-DISAMT = ( ( W_VBAP-NETWR  / 100 ) * 30 ).
          W_VBAP-DISAMT = W_VBAP-NETWR - W_VBAP-DISAMT.
          MODIFY TABLE IT_VBAP FROM W_VBAP.
        ENDLOOP.
*This is to sort the item info internal table
        PERFORM sub_populate_sort.
*This is dynamic call of event.
        PERFORM sub_get_event.
*THis is item info display grid alv.
        PERFORM ALV_DISPLAY.
    ENDCASE.
  ENDIF.
ENDFORM.                    "INTERACTIVE
&      Form  sub_get_event
      This form for event Perform which have decalred above
FORM sub_get_event.
  CONSTANTS: c_formname_subtotal_text TYPE slis_formname VALUE 'SUBTOTAL_TEXT'.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 4
    IMPORTING
      et_events       = i_event
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
  Subtotal
  READ TABLE i_event  INTO l_s_event
                    WITH KEY name = slis_ev_subtotal_text.
  IF sy-subrc = 0.
    MOVE c_formname_subtotal_text TO l_s_event-form.
    MODIFY i_event FROM l_s_event INDEX sy-tabix.
  ENDIF.
ENDFORM.                    " sub_get_event
*&      Form  ALV_DISPLAY
form for item ingo dsplay perform
-->  p1        text
<--  p2        text
FORM ALV_DISPLAY .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = REPID
      I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
      IS_LAYOUT          = w_is_layout
      IT_FIELDCAT        = I_FIELDCAT1
      it_sort            = i_sort
      it_events          = i_event
      i_default          = 'X'
      i_save             = 'A'
    TABLES
      T_OUTTAB           = IT_VBAP
    EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.
ENDFORM.                    " ALV_DISPLAY
&      Form  SUBTOTAL_TEXT
     This dynamic call of  subtotal_text event.
       -->P_TOTAL        text
       -->P_SUBTOT_TEXT  text
FORM subtotal_text CHANGING P_TOTAL TYPE ANY
                      p_subtot_text TYPE slis_subtot_text.
  IF p_subtot_text-criteria = 'MANDT'.
     p_subtot_text-display_text_for_SUBtotal = 'TOTAL'.
  ENDIF.
ENDFORM.     "subtotal_text
*&      Form  sub_populate_sort
     This form to sort item internal table.
-->  p1        text
<--  p2        text
FORM sub_populate_sort .
  wa_sort-spos = '01' .
  wa_sort-fieldname = 'MANDT'.
  wa_sort-tabname = 'IT_VBAP'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO i_sort .
  CLEAR wa_sort.
ENDFORM.                    " sub_populate_sort
*&      Form  fIELDCATLOG1
      Structure of header fields
-->  p1        text
<--  p2        text
FORM FIELDCATLOG1 .
  PERFORM sub_fill_alv_field_catalog1 USING:
     '01' 'VBELN'  'C' '13' 'S_Order No',
     '02' 'ERDAT'  'C' '11' 'Created Date',
     '03' 'NETWR'  'C' '18' 'Net_Amt',
     '04' 'WAERK'  'C' '10' 'Currency'.
ENDFORM.                    " fIELDCATLOG1
FORM TOP-OF-PAGE.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_alv_top_of_page
i_logo = 'MOURISOFTLOGO1'.
  ENDFORM.
*&      Form  sub_fill_alv_field_catalog
      header fieldcatlog details
     -->P_0664   text
     -->P_0665   text
     -->P_0666   text
     -->P_0667   text
     -->P_0668   text
FORM sub_fill_alv_field_catalog1  USING  p_colpos    TYPE sycucol
                                        p_fldnam    TYPE fieldname
                                        p_justif    TYPE char1
                                        p_OUTPUTLEN TYPE dd03p-outputlen
                                        p_seltext   TYPE dd03p-scrtext_l.
  w_fieldcat-col_pos        =  p_colpos.     "Column
  w_fieldcat-fieldname      =  p_fldnam.     "Field Name
  w_fieldcat-just           =  p_justif.     "Screen Justified
  w_fieldcat-outputlen      =  p_OUTPUTLEN.
  w_fieldcat-seltext_l      =  p_seltext.    "Field Text
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.
ENDFORM.                    " sub_fill_alv_field_catalog
*&      Form  FIELDCATLOG2
      structure for item fields
-->  p1        text
<--  p2        text
FORM FIELDCATLOG2 .
  PERFORM sub_fill_alv_field_catalog2 USING:
        '01' 'MANDT'   'C' '03' 'Client_No'        'X' ' ',
        '02' 'VBELN'   'L' '13' 'Sales_No'         ' ' ' ',
        '03' 'POSNR'   'C' '08' 'Items_No'         ' ' ' ',
        '04' 'KWMENG'  'C' '18' 'Quantity'         ' ' ' ',
        '05' 'VRKME'   'C' '05' 'Unit'             ' ' ' ',
        '06' 'NETWR'   'C' '18' 'Net_Amt'          ' ' ' ',
        '07' 'WAERK'   'C' '10' 'Currency'         ' ' ' ',
        '08' 'DISAMT'  'C' '20' '30% Discount_Amt' ' ' ' ',
        '09' 'WAERK'   'C' '10' 'Currency'         ' ' ' '.
ENDFORM.                    " FIELDCATLOG2
*&      Form  sub_fill_alv_field_catalog2
      item fieldcatlog details
     -->P_0741   text
     -->P_0742   text
     -->P_0743   text
     -->P_0744   text
     -->P_0745   text
     -->P_0746   text
     -->P_0747   text
FORM sub_fill_alv_field_catalog2  USING p_colpos    TYPE sycucol
                                        p_fldnam    TYPE fieldname
                                        p_justif    TYPE char1
                                        p_OUTPUTLEN TYPE dd03p-outputlen
                                        p_seltext   TYPE dd03p-scrtext_l
                                        p_out       TYPE char1
                                        p_tech      TYPE char1.
  w_fieldcat-col_pos        =  p_colpos.     "Column
  w_fieldcat-fieldname      =  p_fldnam.     "Field Name
  w_fieldcat-just           =  p_justif.     "Screen Justified
  w_fieldcat-outputlen      =  p_OUTPUTLEN.
  w_fieldcat-seltext_l      =  p_seltext.    "Field Text
  W_FIELDCAT-no_out            =  p_out.
  W_FIELDCAT-tech         =  P_TECH.
  IF W_FIELDCAT-FIELDNAME = 'KWMENG'.
    W_FIELDCAT-do_sum = 'X'.
  ENDIF.
  IF W_FIELDCAT-FIELDNAME = 'NETWR'.
    W_FIELDCAT-do_sum = 'X'.
  ENDIF.
  IF W_FIELDCAT-FIELDNAME = 'DISAMT'.
    W_FIELDCAT-do_sum = 'X'.
  ENDIF.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
ENDFORM.                    " sub_fill_alv_field_catalog2
*&      Form  sub_top_of_page
      text
-->  p1        text
<--  p2        text
FORM sub_top_of_page .
DATA: l_system     TYPE char10 ,          "System id
        l_r_line     TYPE slis_listheader,  "Hold list header
        l_date       TYPE char10,           "Date
        l_time       TYPE SY-UZEIT,           "Time
        l_success_records TYPE i,           "No of success records
        l_title(300) TYPE c.                " Title
Run date Display
  l_r_line-typ  = 'S'.                " Item
  WRITE: sy-datum  TO l_date MM/DD/YYYY.
  l_r_line-key = 'Run Date :'.
  l_r_line-info = l_date.
  APPEND l_r_line TO i_alv_top_of_page.
  CLEAR: l_r_line,
         l_date.
Time  Display
  l_r_line-typ = 'S'.               " header
  WRITE: SY-UZEIT to l_time USING EDIT MASK '__:__:__'.
  l_r_line-key = 'Current Time'.
  l_r_line-info = l_time.
  APPEND l_r_line TO i_alv_top_of_page.
  CLEAR: l_r_line, l_time.
ENDFORM.                    " sub_top_of_page
*&      Form  LAYOUT_STU
      text
-->  p1        text
<--  p2        text
FORM LAYOUT_STU .
*Layout declaration for alv display.
W_IS_LAYOUT-ZEBRA = 'X'.
W_IS_LAYOUT-NO_VLINE = 'X'.
W_IS_layout-no_input = 'X'.
*W_IS_layout-colwidth_optimize = 'X'.
w_is_layout-no_totalline = 'X'.
ENDFORM.                    " LAYOUT_STU