To Read the processed subtotal and use for calculating tax.

Question

Hi,
I calculated subtotal in REUSE_ALV_LIST_DISPLAY.
I got the subtotal.
After the subtotal i have a line to calculate the tax.
Now I want to read the subtotal and get the sum(calculated total) and use it to process the tax.
Thanks.
Farid.

Answer 1

TYPE-POOLS: slis.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv,
it_events TYPE slis_t_event,
wa_events TYPE slis_alv_event,
it_sort TYPE slis_t_sortinfo_alv,
wa_sort TYPE slis_sortinfo_alv,
it_list TYPE slis_t_listheader ,
l_layout TYPE slis_layout_alv,
wp_type type SLIS_PRINT_ALV,
tp_type type table of SLIS_PRINT_ALV.
TYPES: BEGIN OF ty_itab,
field2(10),
field1(10),
qty1(10),
qty2 type i,
qty3 TYPE i,
Total type i,
END OF ty_itab.
DATA: itab TYPE STANDARD TABLE OF ty_itab WITH HEADER LINE,
      wa type ty_itab,
itab1 TYPE slis_t_listheader.
START-OF-SELECTION.
  CLEAR ITAB.
  itab-field2 = 'FIRST'.
  itab-field1 = 'FIRST'.
  itab-qty1 = '2'.
  itab-qty2 = 1.
  itab-qty3 = 5.
  APPEND itab.
  itab-field2 = ''.
  itab-field1 = 'FIRST'.
  itab-qty1 = '2'.
  itab-qty2 = 1.
  itab-qty3 = 5.
  APPEND itab.
  itab-field2 = 'FIRST'.
  itab-field1 = 'FIRST'.
  itab-qty1 = '2'.
  itab-qty2 = 1.
  itab-qty3 = 5.
  APPEND itab.
  itab-field2 = 'FIRST'.
  itab-field1 = 'FIRST'.
  itab-qty1 = '2'.
  itab-qty2 = 1.
  itab-qty3 = 5.
  APPEND itab.
  itab-field2 = 'SECOND'.
  itab-field1 = 'SECOND'.
  itab-qty1 = '2'.
  itab-qty2 = 1.
  itab-qty3 = 5.
  APPEND itab.
itab-field2 = 'SECOND'.
  itab-field1 = 'SECOND'.
  itab-qty1 = '2'.
  itab-qty2 = 1.
  itab-qty3 = 5.
  APPEND itab.
*  wa-field1 = ''.
*  wa-qty1 = 'TAX'.
*  wa-qty2 = 5.
*  wa-qty3 = ''.
*  insert wa into table itab.
  wa_fieldcat-fieldname = 'FIELD2'.
  wa_fieldcat-seltext_m = 'field2'.
  wa_fieldcat-no_out = 'X'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat .
  wa_fieldcat-fieldname = 'FIELD1'.
  wa_fieldcat-seltext_m = 'field'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat .
  wa_fieldcat-fieldname = 'QTY1'.
  wa_fieldcat-seltext_m = 'QUNTITY1'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat .
  wa_fieldcat-fieldname = 'QTY2'.
  wa_fieldcat-seltext_m = 'QUANTITY2'.
  wa_fieldcat-do_sum = 'X'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat .
  wa_fieldcat-fieldname = 'QTY3'.
  wa_fieldcat-seltext_m = 'QUANTITY3'.
  wa_fieldcat-do_sum = 'X'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat .
  REFRESH it_sort.
  wa_sort-fieldname = 'FIELD1'.
*  wa_sort-fieldname = 'FIELD2'.
  wa_sort-up = 'X'.
*  wa_sort-group = '*'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO it_sort.
  wp_type-no_new_page = 'X'.
  append wp_type to tp_type.
  CLEAR wa_sort.
  wa_sort-fieldname = 'QTY1'.
  wa_sort-up = 'X'.
  wa_sort-group = '*'.
*  wa_sort-subtot = ' '.
  APPEND wa_sort TO it_sort.
  CLEAR wa_sort.
  PERFORM get_events .
*  l_layout-subtotals_text = 'Subtotal'.
*  l_layout-totals_text = 'Total text'.
  l_layout-no_totalline = 'X'.
  l_layout-max_linesize = '5'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      it_fieldcat        = it_fieldcat
       I_SCREEN_END_LINE              = 3
      is_layout          = l_layout
      IS_PRINT = wp_type
      it_sort            = it_sort
      it_events          = it_events
    TABLES
      t_outtab           = itab
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
  ENDIF.
FORM get_events .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = it_events.
*  READ TABLE it_events WITH KEY
*  name = slis_ev_subtotal_text INTO wa_events.
*  IF sy-subrc = 0.
*    MOVE 'SUBTOTALS_TEXT' TO wa_events-form.
*    MODIFY it_events FROM wa_events INDEX sy-tabix.
*  ENDIF.
*  CLEAR wa_events.
*  READ TABLE it_events WITH KEY
*   name = slis_ev_top_of_page   INTO wa_events.
*  IF sy-subrc = 0.
*    MOVE 'TOP_OF_PAGE' TO wa_events-form.
*    MODIFY it_events FROM wa_events INDEX sy-tabix.
*  ENDIF.
READ TABLE it_events into wa_events WITH KEY name = 'BEFORE_LINE_OUTPUT'.
  if sy-subrc = 0.
    wa_events-form = 'BEFORE_LINE_OUTPUT'.
    MODIFY it_events FROM wa_events TRANSPORTING form WHERE name = 'BEFORE_LINE_OUTPUT'.
  ENDIF.
READ TABLE it_events into wa_events WITH KEY name = 'AFTER_LINE_OUTPUT'.
  if sy-subrc = 0.
    wa_events-form = 'AFTER_LINE_OUTPUT'.
    MODIFY it_events FROM wa_events TRANSPORTING form WHERE name = 'AFTER_LINE_OUTPUT'.
  ENDIF.
*read table it_events with key name = slis_ev_end_of_page into wa_events.
*IF sy-subrc eq 0.
*  wa_events-form = 'END_OF_PAGE'.
*ENDIF.
ENDFORM. " GET_EVENTS
FORM before_line_output using p_c type slis_lineinfo.
  if p_c-subtot = 'X'.
      itab-field1 = ''.
      itab-qty1 = 'TOTAL'.
  endif.
ENDFORM.
FORM after_line_output using p_c type slis_lineinfo.
  if p_c-subtot = 'X'.
      ULINE AT (p_c-LINSZ).        "Dynamic Line Size
    FORMAT COLOR COL_TOTAL ON. "Setting the color
    WRITE :/
      sy-vline,
      15 'Tax',
      13 sy-vline,
      24 sy-vline,
      35 sy-vline.
    POSITION P_C-LINSZ.
    WRITE: SY-VLINE.
    FORMAT COLOR OFF.
  endif.
ENDFORM.