LIST output and event handling in OO ALV and

Question

Hi,
I am creating an ALV Report.
How can i Display the Grid as a List. I am abke to change the view from the first grid that is created. but i need to show it as a list output from beginning.
Also i have created a hotspot in and it works when the ALV is displayed in Grid Format but it does not work when i switch the view to list output.
Any suggestions.
Regards,
Tarun Bahal

Answer 1

*& Report  ZFI_TRIAL_BALANCE
REPORT  zfi_trial_balance LINE-SIZE 275 LINE-COUNT 3(2) NO STANDARD PAGE HEADING.
TABLES: bseg.
TYPES: BEGIN OF ty_bkpf ,
  bukrs TYPE bkpf-bukrs,
  belnr TYPE bkpf-belnr,
  gjahr TYPE bkpf-gjahr,
  budat TYPE bkpf-budat,
  END OF ty_bkpf.
TYPES: BEGIN OF ty_bseg ,
  bukrs TYPE bseg-bukrs,
  belnr TYPE bseg-belnr,
  gjahr TYPE bseg-gjahr,
  hkont TYPE bseg-hkont,
  END OF ty_bseg.
TYPES: BEGIN OF ty_bank,
  hkont TYPE bseg-hkont,
  txt50 TYPE skat-txt50,
  open_dmbtr_dr TYPE p,
  open_dmbtr_cr TYPE p,
  trans_dmbtr_dr TYPE p,
  trans_dmbtr_cr TYPE p,
  close_dmbtr_dr TYPE p,
  close_dmbtr_cr TYPE p,
  END OF ty_bank.
TYPES: BEGIN OF ty_breakup,
  bukrs TYPE bseg-bukrs,
  blart TYPE bkpf-blart,
  belnr TYPE bseg-belnr,
  budat TYPE bkpf-budat,
  umskz TYPE bseg-umskz,
  rebzg TYPE bseg-rebzg,
  lifnr TYPE  bseg-lifnr,
  kunnr TYPE bseg-kunnr,
  name1 TYPE lfa1-name1,
  dmbtr TYPE p,
  END OF ty_breakup.
INITIALIZATION.
*       CLASS handler DEFINITION
CLASS handler DEFINITION.
  PUBLIC SECTION .
    METHODS:handle_hotspot_click                              "handler definition for hotspot_click
    FOR EVENT hotspot_click OF cl_gui_alv_grid
    IMPORTING e_row_id
              e_column_id
              es_row_no,
             handle_top_of_page
    FOR EVENT print_top_of_page OF cl_gui_alv_grid
    IMPORTING table_index,
            handle_subtotal_text
    FOR EVENT subtotal_text OF cl_gui_alv_grid
    IMPORTING es_subtottxt_info
              ep_subtot_line
              e_event_data.
ENDCLASS.                    "handler DEFINITION
*       CLASS handler IMPLEMENTATION
CLASS handler IMPLEMENTATION.
  METHOD handle_hotspot_click.                              "handler implementation for hotspot_click
    PERFORM handle_hotspot_click USING e_row_id
                                       e_column_id
                                       es_row_no .
  ENDMETHOD.                    "handle_hotspot_click
  METHOD handle_top_of_page.
    PERFORM handle_print_top_of_page.
  ENDMETHOD.                    "handle_hotspot_click
  METHOD handle_subtotal_text.
    PERFORM handle_subtotal_text USING es_subtottxt_info
                                       ep_subtot_line
                                       e_event_data.
  ENDMETHOD.                    "Subtotal_text
ENDCLASS.                    "handler IMPLEMENTATION
DATA: i_set_values TYPE TABLE OF rgsb4,
      wa_set_values LIKE LINE OF i_set_values,
      l_dmbtr TYPE dmbtr,
      l_dmbtr2 TYPE dmbtr,
      l_dmbtr3 TYPE dmbtr,
      l_dmbtr4 TYPE dmbtr,
      l_dmbtr_total TYPE dmbtr,
      l_shkzg TYPE shkzg,
      i_bkpf TYPE STANDARD TABLE OF ty_bkpf,
      i_bseg TYPE STANDARD TABLE OF ty_bseg,
      i_bank TYPE STANDARD TABLE OF ty_bank,
      i_breakup TYPE STANDARD TABLE OF ty_breakup,
      wa_bkpf LIKE LINE OF i_bkpf,
      wa_bseg LIKE LINE OF i_bseg,
      wa_bank LIKE LINE OF i_bank,
      wa_breakup LIKE LINE OF i_breakup,
      ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm,
      l_ktopl TYPE ktopl.
DATA: gr_alvgrid TYPE REF TO cl_gui_alv_grid,
      gr_alvgrid_0200 TYPE REF TO cl_gui_alv_grid,
      gr_ccontainer TYPE REF TO cl_gui_custom_container,
      gr_ccontainer_0200 TYPE REF TO cl_gui_custom_container,
      gt_fieldcat TYPE lvc_t_fcat,
      gs_layout TYPE lvc_s_layo,
      gt_sort TYPE lvc_t_sort,
      gt_roid TYPE lvc_t_roid,
      gt_exclude TYPE ui_functions,
      g_scrstatus TYPE i,
      gs_variant TYPE disvariant,
      o_handler TYPE REF TO handler.
CONSTANTS: c_doctype(22) TYPE c VALUE 'ZINFITR01_TRIALBALANCE'.
DATA gs_stbl TYPE lvc_s_stbl.
SELECTION-SCREEN: BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: l_date FOR sy-datum.
PARAMETERS : l_bukrs TYPE bukrs,
             l_segent TYPE fb_segment.
SELECTION-SCREEN: END OF BLOCK block1.
START-OF-SELECTION.
  gs_stbl-row = 'X'.
  gs_stbl-col = 'X'.
  CALL FUNCTION 'G_SET_GET_ALL_VALUES'
    EXPORTING
      setnr         = c_doctype
      table         = 'SKA1'
      class         = '0000'
    TABLES
      set_values    = i_set_values
    EXCEPTIONS
      set_not_found = 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.
  CLEAR i_bank.
  LOOP AT i_set_values INTO wa_set_values.
    CLEAR: l_dmbtr, l_dmbtr2, l_dmbtr3, l_dmbtr4, i_bkpf, i_bseg.
    wa_bank-hkont = wa_set_values-from.
    SELECT bukrs belnr budat gjahr FROM bkpf
      INTO CORRESPONDING FIELDS OF TABLE i_bkpf
      WHERE bukrs = l_bukrs
        AND budat < l_date-low.
    LOOP AT i_bkpf INTO wa_bkpf.
      SELECT dmbtr shkzg FROM bseg INTO (l_dmbtr, l_shkzg)
        WHERE bukrs = wa_bkpf-bukrs
          AND belnr = wa_bkpf-belnr
          AND gjahr = wa_bkpf-gjahr
          AND hkont = wa_set_values-from.
        IF l_shkzg = 'S'.
          l_dmbtr2 = l_dmbtr2 + l_dmbtr.
        ELSE.
          l_dmbtr2 = l_dmbtr2 - l_dmbtr.
        ENDIF.
        CLEAR: l_dmbtr, l_shkzg.
      ENDSELECT.
    ENDLOOP.
    IF l_dmbtr2 > 0.
      wa_bank-open_dmbtr_dr = l_dmbtr2.
    ELSE.
      wa_bank-open_dmbtr_cr = l_dmbtr2.
    ENDIF.
    CLEAR: l_dmbtr, i_bkpf, i_bseg.
    SELECT bukrs belnr budat gjahr FROM bkpf
      INTO CORRESPONDING FIELDS OF TABLE i_bkpf
      WHERE bukrs = l_bukrs
        AND budat IN l_date.
    LOOP AT i_bkpf INTO wa_bkpf.
      SELECT dmbtr shkzg FROM bseg INTO (l_dmbtr, l_shkzg)
        WHERE bukrs = wa_bkpf-bukrs
          AND belnr = wa_bkpf-belnr
          AND gjahr = wa_bkpf-gjahr
          AND hkont = wa_set_values-from.
        IF l_shkzg = 'S'.
          l_dmbtr3 = l_dmbtr3 + l_dmbtr.
        ELSE.
          l_dmbtr4 = l_dmbtr4 - l_dmbtr.
        ENDIF.
        CLEAR: l_dmbtr, l_shkzg.
      ENDSELECT.
    ENDLOOP.
*    IF l_dmbtr3 > 0.
    wa_bank-trans_dmbtr_dr = l_dmbtr3.
*    ELSE.
    wa_bank-trans_dmbtr_cr = l_dmbtr4.
*    ENDIF.
    l_dmbtr = l_dmbtr2 + l_dmbtr3 + l_dmbtr4.
    IF l_dmbtr > 0.
      wa_bank-close_dmbtr_dr = l_dmbtr.
    ELSE.
      wa_bank-close_dmbtr_cr = l_dmbtr.
    ENDIF.
    CLEAR: l_dmbtr.
    SELECT SINGLE ktopl FROM t001 INTO l_ktopl WHERE bukrs = l_bukrs.
    SELECT SINGLE txt50 FROM skat INTO wa_bank-txt50
      WHERE spras = sy-langu "( SELECT spras FROM t002 WHERE laiso = sy-langu )
      AND ktopl = l_ktopl
      AND saknr = wa_set_values-from.
    APPEND wa_bank TO i_bank.
    CLEAR wa_bank.
  ENDLOOP.
  LOOP AT i_bank INTO wa_bank.
*    IF wa_bank-open_dmbtr_cr < 0.
    wa_bank-open_dmbtr_cr = wa_bank-open_dmbtr_cr * -1.
*    ENDIF.
*    IF wa_bank-trans_dmbtr_cr < 0.
    wa_bank-trans_dmbtr_cr = wa_bank-trans_dmbtr_cr * -1.
*    ENDIF.
*    IF wa_bank-close_dmbtr_cr < 0.
    wa_bank-close_dmbtr_cr = wa_bank-close_dmbtr_cr * -1.
*    ENDIF.
    MODIFY i_bank FROM wa_bank.
  ENDLOOP.
  SORT i_bank ASCENDING BY hkont.
END-OF-SELECTION.
*  SET SCREEN 100.
  CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS01'.
  SET TITLEBAR 'TITLE1'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  save_ok  INPUT
*       text
MODULE save_ok INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
ENDMODULE.                 " save_ok  INPUT
*&      Module  create_alv  OUTPUT
*       text
MODULE create_alv OUTPUT.
  IF gr_alvgrid IS INITIAL.
    CREATE OBJECT gr_ccontainer
      EXPORTING
*    PARENT                      =
        container_name              = 'CUSTOM_CONTAINER'
        repid                       = sy-repid
        dynnr                       = '0100'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CREATE OBJECT gr_alvgrid
      EXPORTING
        i_parent          = gr_ccontainer
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    PERFORM prepare_field_catalog CHANGING gt_fieldcat .
    PERFORM prepare_layout CHANGING gs_layout .
    PERFORM prepare_sort CHANGING gt_sort.
    gs_variant-report = sy-repid.
    gs_variant-variant = 'ABC'.
    gs_variant-handle = '1'.
*    IF sy-dynnr = '0100'.
    CALL METHOD gr_alvgrid->set_table_for_first_display
      EXPORTING
*      I_BUFFER_ACTIVE               =
*      I_BYPASSING_BUFFER            =
*      I_CONSISTENCY_CHECK           =
*      I_STRUCTURE_NAME              =
*      is_variant                    = gs_variant
*      i_save                        = 'A'
*      i_default                     = 'X'
        is_layout                     = gs_layout
*      IS_PRINT                      =
*      IT_SPECIAL_GROUPS             =
*      IT_TOOLBAR_EXCLUDING          =
*      IT_HYPERLINK                  =
*      IT_ALV_GRAPHICS               =
*      IT_EXCEPT_QINFO               =
*      IR_SALV_ADAPTER               =
      CHANGING
        it_outtab                     = i_bank
        it_fieldcatalog               = gt_fieldcat
*    it_sort                       = gt_sort
*      IT_FILTER                     =
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ELSE.
    CALL METHOD gr_alvgrid->refresh_table_display
      EXPORTING
        is_stable      = gs_stbl
*        i_soft_refresh = 'X'
      EXCEPTIONS
        finished       = 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.
  ENDIF.
  CREATE OBJECT o_handler.
  SET HANDLER o_handler->handle_hotspot_click FOR gr_alvgrid.
  SET HANDLER o_handler->handle_top_of_page FOR gr_alvgrid.
  SET HANDLER o_handler->handle_subtotal_text FOR gr_alvgrid.
*  ENDIF.
ENDMODULE.                 " create_alv  OUTPUT
*&      Form  prepare_field_catalog
*       text
*      <--P_GT_FIELDCAT  text
FORM prepare_field_catalog  CHANGING pt_fieldcat TYPE lvc_t_fcat.
  DATA: ls_fcat TYPE lvc_s_fcat.
  CLEAR pt_fieldcat.
  CLEAR gt_fieldcat.
*  IF sy-dynnr = '0100'.
  ls_fcat-fieldname = 'HKONT' .
  ls_fcat-ref_field = 'HKONT'.
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '15' .
  ls_fcat-ref_table = 'BSEG' .
  ls_fcat-coltext = 'G/L Account' .
  ls_fcat-seltext = 'G/L Account' .
  ls_fcat-hotspot = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'TXT50' .
  ls_fcat-ref_field = 'TXT50'.
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '20' .
  ls_fcat-ref_table = 'SKAT' .
  ls_fcat-coltext = 'Description' .
  ls_fcat-seltext = 'Description' .
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'OPEN_DMBTR_DR' .
  ls_fcat-ref_field = 'DMBTR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '20' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Opening Balance: Debit' .
  ls_fcat-seltext = 'Opening Balance: Debit'.
  ls_fcat-no_sign = 'X'.
  ls_fcat-do_sum = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'OPEN_DMBTR_CR' .
  ls_fcat-ref_field = 'DMBTR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '20' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Opening Balance: Credit' .
  ls_fcat-seltext = 'Opening Balance: Credit'.
  ls_fcat-no_sign = 'X'.
  ls_fcat-do_sum = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'TRANS_DMBTR_DR' .
  ls_fcat-ref_field = 'DMBTR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '20' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Trans Balance: Debit' .
  ls_fcat-seltext = 'Trans Balance: Debit'.
  ls_fcat-no_sign = 'X'.
  ls_fcat-do_sum = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'TRANS_DMBTR_CR' .
  ls_fcat-ref_field = 'DMBTR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '20' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Trans Balance: Credit' .
  ls_fcat-seltext = 'Trans Balance: Credit'.
  ls_fcat-no_sign = 'X'.
  ls_fcat-do_sum = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'CLOSE_DMBTR_DR' .
  ls_fcat-ref_field = 'DMBTR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '20' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Closing Balance: Debit' .
  ls_fcat-seltext = 'Closing Balance: Debit'.
  ls_fcat-no_sign = 'X'.
  ls_fcat-do_sum = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'CLOSE_DMBTR_CR' .
  ls_fcat-ref_field = 'DMBTR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '20' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Closing Balance: Credit' .
  ls_fcat-seltext = 'Closing Balance: Credit'.
  ls_fcat-no_sign = 'X'.
  ls_fcat-do_sum = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
*  ELSE.
*  ENDIF.
ENDFORM.                    " prepare_field_catalog
*&      Form  prepare_layout
*       text
*      <--P_GS_LAYOUT  text
FORM prepare_layout  CHANGING ps_layout TYPE lvc_s_layo.
  DATA l_title(50) TYPE c.
  CONCATENATE 'Trial Balance: ' l_date-low+6(2) '-' l_date-low+4(2) '-'l_date-low(4) ' to ' l_date-high+6(2) '-' l_date-high+4(2) '-'l_date-high(4) INTO l_title RESPECTING BLANKS.
*  ps_layout-zebra = 'X' .
  ps_layout-grid_title = l_title.
  ps_layout-cwidth_opt = 'X' .
  ps_layout-sel_mode = 'A'.
*  ps_layout-no_toolbar = 'X'.
  ps_layout-no_headers = 'X'.
  ps_layout-frontend = 'L'.
ENDFORM.                    " prepare_layout
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE user_command_0100 INPUT.
  CASE save_ok.
    WHEN 'BACK'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  prepare_sort
*       text
*      <--P_GT_SORT  text
FORM prepare_sort  CHANGING pt_sort TYPE lvc_t_sort.
  CLEAR: pt_sort, gt_sort.
  DATA ls_sort TYPE lvc_s_sort .
  IF sy-dynnr = '0100'.
    ls_sort-spos = '1' .
    ls_sort-fieldname = 'HKONT' .
    ls_sort-up = 'X' . "A to Z
    ls_sort-down = space .
    APPEND ls_sort TO pt_sort .
  ELSE.
    ls_sort-spos = '1' .
    ls_sort-fieldname = 'BELNR' .
    ls_sort-up = 'X' . "A to Z
    ls_sort-down = space .
    APPEND ls_sort TO pt_sort .
*    ls_sort-spos = '2' .
*    ls_sort-fieldname = 'BELNR' .
**    ls_sort-up = 'X' . "A to Z
**    ls_sort-down = space .
*    ls_sort-subtot = 'X'.
*    APPEND ls_sort TO pt_sort .
  ENDIF.
ENDFORM.                    " prepare_sort
*&      Form  handle_hotspot_click
*       text
*      -->P_E_ROW_ID  text
*      -->P_E_COLUMN_ID  text
*      -->P_ES_ROW_NO  text
FORM handle_hotspot_click  USING i_row_id TYPE lvc_s_row
                                 i_column_id TYPE lvc_s_col
                                 is_row_no TYPE lvc_s_roid.
  CLEAR: wa_bank, i_breakup.
  READ TABLE i_bank INTO wa_bank INDEX is_row_no-row_id.
*TYPES: BEGIN OF ty_breakup,
*  bukrs TYPE bseg-bukrs,
*  blart TYPE bkpf-blart,
*  belnr TYPE bseg-belnr,
*  budat TYPE bkpf-budat,
*  umskz TYPE bseg-umskz,
*  rebzg TYPE bseg-rebzg,
*  lifnr TYPE  bseg-lifnr,
*  name1 TYPE lfa1-name1,
*  dmbtr TYPE p,
*  END OF ty_breakup.
  SELECT bukrs belnr budat gjahr FROM bkpf
        INTO CORRESPONDING FIELDS OF TABLE i_bkpf
        WHERE bukrs = l_bukrs
          AND budat IN l_date.
  LOOP AT i_bkpf INTO wa_bkpf.
    SELECT bukrs belnr umskz rebzg lifnr kunnr dmbtr shkzg FROM bseg
      INTO (wa_breakup-bukrs, wa_breakup-belnr, wa_breakup-umskz, wa_breakup-rebzg, wa_breakup-lifnr, wa_breakup-kunnr, wa_breakup-dmbtr, l_shkzg)
      WHERE bukrs = l_bukrs
              AND belnr = wa_bkpf-belnr
              AND gjahr = wa_bkpf-gjahr
              AND hkont = wa_bank-hkont.
      SELECT SINGLE blart budat FROM bkpf INTO (wa_breakup-blart, wa_breakup-budat)
        WHERE bukrs = l_bukrs
              AND belnr = wa_bkpf-belnr
              AND gjahr = wa_bkpf-gjahr.
      IF wa_breakup-lifnr IS NOT INITIAL.
        SELECT SINGLE name1 FROM lfa1 INTO wa_breakup-name1
          WHERE lifnr = wa_breakup-lifnr.
      ELSE.
        SELECT SINGLE name1 FROM kna1 INTO wa_breakup-name1
        WHERE lifnr = wa_breakup-kunnr.
        wa_breakup-lifnr = wa_breakup-kunnr.
      ENDIF.
    ENDSELECT.
    IF l_shkzg = 'H'.
      wa_breakup-dmbtr = wa_breakup-dmbtr * -1.
    ENDIF.
    IF wa_breakup IS NOT INITIAL.
      APPEND wa_breakup TO i_breakup.
    ENDIF.
    CLEAR wa_breakup.
  ENDLOOP.
  SET SCREEN 200.
  LEAVE SCREEN.
ENDFORM.                    " handle_hotspot_click
*&      Module  STATUS_0200  OUTPUT
*       text
MODULE status_0200 OUTPUT.
  SET PF-STATUS 'STATUS01'.
  SET TITLEBAR 'TITLE2'.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
*       text
MODULE user_command_0200 INPUT.
  CASE save_ok.
    WHEN 'BACK'.
*      CLEAR: gr_alvgrid, gr_ccontainer.
      SET SCREEN 100.
      LEAVE SCREEN .
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Module  create_alv_0200  OUTPUT
*       text
MODULE create_alv_0200 OUTPUT.
  IF gr_alvgrid_0200 IS INITIAL.
    CREATE OBJECT gr_ccontainer_0200
          EXPORTING
*    PARENT                      =
            container_name              = 'CUSTOM_CONTAINER'
            repid                       = sy-repid
            dynnr                       = '0200'
          EXCEPTIONS
            cntl_error                  = 1
            cntl_system_error           = 2
            create_error                = 3
            lifetime_error              = 4
            lifetime_dynpro_dynpro_link = 5
            OTHERS                      = 6.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CREATE OBJECT gr_alvgrid_0200
      EXPORTING
        i_parent          = gr_ccontainer_0200
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    PERFORM prepare_field_catalog_0200 CHANGING gt_fieldcat .
*  PERFORM prepare_layout CHANGING gs_layout .
    PERFORM prepare_sort CHANGING gt_sort.
    CALL METHOD gr_alvgrid_0200->set_table_for_first_display
      EXPORTING
*      I_BUFFER_ACTIVE               =
*      I_BYPASSING_BUFFER            =
*      I_CONSISTENCY_CHECK           =
*      I_STRUCTURE_NAME              =
*      IS_VARIANT                    =
*      I_SAVE                        =
*      I_DEFAULT                     = 'X'
        is_layout                     = gs_layout
*      IS_PRINT                      =
*      IT_SPECIAL_GROUPS             =
*      IT_TOOLBAR_EXCLUDING          =
*      IT_HYPERLINK                  =
*      IT_ALV_GRAPHICS               =
*      IT_EXCEPT_QINFO               =
*      IR_SALV_ADAPTER               =
      CHANGING
        it_outtab                     = i_breakup
        it_fieldcatalog               = gt_fieldcat
      it_sort                       = gt_sort
*      IT_FILTER                     =
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ELSE.
    CALL METHOD gr_alvgrid_0200->refresh_table_display
      EXPORTING
        is_stable      = gs_stbl
*        i_soft_refresh = 'X'
      EXCEPTIONS
        finished       = 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.
  ENDIF.
*  SET SCREEN 100.
ENDMODULE.                 " create_alv_0200  OUTPUT
*&      Form  prepare_field_catalog_0200
*       text
*      <--P_GT_FIELDCAT  text
FORM prepare_field_catalog_0200  CHANGING pt_fieldcat TYPE lvc_t_fcat.
  DATA: ls_fcat TYPE lvc_s_fcat.
  CLEAR: pt_fieldcat, gs_layout.
  ls_fcat-fieldname = 'BUKRS' .
  ls_fcat-ref_field = 'BUKRS'.
  ls_fcat-inttype = 'c' .
  ls_fcat-outputlen = '5' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Co' .
  ls_fcat-seltext = 'Company Code'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'BLART' .
  ls_fcat-ref_field = 'BLART'.
  ls_fcat-inttype = 'c' .
  ls_fcat-outputlen = '5' .
  ls_fcat-ref_table = 'BKPF'.
  ls_fcat-coltext = 'Doc Typ' .
  ls_fcat-seltext = 'Document Type'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'BELNR' .
  ls_fcat-ref_field = 'BELNR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '12' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Doc Num' .
  ls_fcat-seltext = 'Document Number'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'BUDAT' .
  ls_fcat-ref_field = 'BUDAT'.
  ls_fcat-inttype = 'DATS' .
  ls_fcat-outputlen = '13' .
  ls_fcat-ref_table = 'BKPF'.
  ls_fcat-coltext = 'G/L Date' .
  ls_fcat-seltext = 'G/L Posting Date'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'UMSKZ' .
  ls_fcat-ref_field = 'UMSKZ'.
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '5' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'G/L Indicator' .
  ls_fcat-seltext = 'Special G/L Indicator'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'REBZG' .
  ls_fcat-ref_field = 'REBZG'.
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '13' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Reference' .
  ls_fcat-seltext = 'Invoice Number'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'LIFNR' .
  ls_fcat-ref_field = 'LIFNR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '13' .
  ls_fcat-ref_table = 'LFA1'.
  ls_fcat-coltext = 'Vendor/Customer' .
  ls_fcat-seltext = 'Vendor/Customer Number'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'NAME1' .
  ls_fcat-ref_field = 'NAME1'.
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '50' .
  ls_fcat-ref_table = 'LFA1'.
  ls_fcat-coltext = 'Description' .
  ls_fcat-seltext = 'Description'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'DMBTR' .
  ls_fcat-ref_field = 'DMBTR'.
  ls_fcat-inttype = 'NUMC' .
  ls_fcat-outputlen = '25' .
  ls_fcat-ref_table = 'BSEG'.
  ls_fcat-coltext = 'Amount' .
  ls_fcat-seltext = 'Amount'.
  ls_fcat-no_sign = 'X'.
  ls_fcat-do_sum = 'X'.
  APPEND ls_fcat TO pt_fieldcat.
  CLEAR ls_fcat.
ENDFORM.                    " prepare_field_catalog_0200
*&      Form  handle_print_top_of_page
*       text
*  -->  p1        text
*  <--  p2        text
FORM handle_print_top_of_page .
  WRITE: sy-uline.
  WRITE: /(255)'Tecnimont ICB' CENTERED.
  WRITE: /(255)'Trial Balance' CENTERED.
  WRITE: 'Trial Balance for ', l_bukrs, ':  From Period - ', l_date-low, 'To Period - ', l_date-high. "LEFT-JUSTIFIED .
  WRITE: /.
  WRITE: / sy-uline.
  FORMAT COLOR 1.
  WRITE: sy-vline, AT 2(59)'Account Code and Name'CENTERED, AT 60 sy-vline, AT 61(45) 'Opening Balance' CENTERED, AT 107 sy-vline, AT 108(41) 'Transactions' CENTERED , AT 150 sy-vline, AT 155(41) 'Closing Balance' CENTERED,  AT 197 sy-vline.
  FORMAT COLOR 4.
  WRITE: sy-vline,'GL Account'LEFT-JUSTIFIED, AT 16(50)'Description'CENTERED, AT 60 sy-vline, AT 61(23) 'Debits'CENTERED, AT 85(23) 'Credits.'CENTERED, AT 107 sy-vline, AT 108(23) 'Debits'CENTERED, AT 128(23)'Credits'CENTERED, AT 150 sy-vline, AT 151(23)
  'Debits'CENTERED, AT 174(23) 'Credits'CENTERED, AT 197 sy-vline.
  FORMAT COLOR OFF.
*  WRITE: sy-uline.
ENDFORM.                    " handle_print_top_of_page
*&      Form  handle_subtotal_text
*       text
*  -->  p1        text
*  <--  p2        text
FORM handle_subtotal_text USING es_subtottxt_info TYPE lvc_s_stxt
                               ep_subtot_line TYPE REF TO data
                               e_event_data TYPE REF TO
                               cl_alv_event_data.
  DATA l_bank LIKE wa_bank.
  FIELD-SYMBOLS: <fs1> STRUCTURE wa_bank DEFAULT l_bank,
               <fs2>.
  IF es_subtottxt_info-criteria = 'TXT50'.
    ASSIGN ep_subtot_line->* TO <fs1>.
    ASSIGN e_event_data->m_data->* TO <fs2>.
    CONCATENATE es_subtottxt_info-keyword 'Grand Summary: '
                 INTO <fs2>.
  ENDIF.
ENDFORM.                    " handle_subtotal_text
This  is the Code............... this code creates a Grid and not list and hotspot event wors on grid and not on list.
Regards,
Tarun Bahal