ALV grid using oops concepts

Question

HI all,
          Is it necessary to use container for ALV grid using classes.If not then please help me with a sample code.

Answer 1

REPORT  z_alv_using_oops_conepts MESSAGE-ID z_OOPS.
TABLES: ekko, ekpo.
CLASS lcl_event_receiver DEFINITION DEFERRED.
DATA: ok_code             TYPE sy-ucomm,
      gx_fcat1            TYPE lvc_s_fcat,
      gt_fcat1            TYPE STANDARD TABLE OF lvc_s_fcat,
      gx_fcat2            TYPE lvc_s_fcat,
      gt_fcat2            TYPE STANDARD TABLE OF lvc_s_fcat,
      gx_layout1          TYPE lvc_s_layo,
      gx_layout2          TYPE lvc_s_layo,
      gx_variant          TYPE disvariant,
      g_custom_container1 TYPE REF TO cl_gui_custom_container,
      g_custom_container2 TYPE REF TO cl_gui_custom_container,
      grid1               TYPE REF TO cl_gui_alv_grid,
      grid2               TYPE REF TO cl_gui_alv_grid,
      g_container1        TYPE scrfname VALUE 'MAIN_REPORT_LIST',
      g_container2        TYPE scrfname VALUE 'SECOND_REPORT_LIST',
      gv_event_rec1       TYPE REF TO lcl_event_receiver,
      gv_event_rec2       TYPE REF TO lcl_event_receiver,
      gv_repid            TYPE sy-repid,
      gt_final1           TYPE STANDARD TABLE OF ekko,
      gt_final2           TYPE STANDARD TABLE OF ekpo,
      gt_final3           TYPE STANDARD TABLE OF ekpo,
      gx_final            TYPE ekko,
      gx_final1           TYPE ekpo.
INITIALIZATION.
  SELECTION-SCREEN                                              *
SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME .
SELECT-OPTIONS:
      s_ebeln             FOR ekko-ebeln obligatory,
      s_ebelp             FOR ekpo-ebelp,
      s_bukrs             FOR ekko-bukrs,
      s_bsart             FOR ekko-bsart.
SELECTION-SCREEN END OF BLOCK blk3.
LOCAL CLASSES: Definition
*===============================================================
class lcl_event_receiver: local class to
                        define and handle own functions.
Definition:
~~~~~~~~~~~
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
    hotspot_click1
        FOR EVENT hotspot_click OF cl_gui_alv_grid
            IMPORTING e_row_id
                      e_column_id,
    hotspot_click2
       FOR EVENT hotspot_click OF cl_gui_alv_grid
            IMPORTING e_row_id
                      e_column_id.
  PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
      CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD hotspot_click1.
    DATA: lv_tabix TYPE sy-tabix,
          lx_final TYPE ekko.
    READ TABLE gt_final1 INTO gx_final INDEX e_row_id.
    IF sy-subrc = 0.
      gt_final3 = gt_final2.
      DELETE gt_final3 WHERE ebeln NE gx_final-ebeln.
      IF NOT g_custom_container2 IS INITIAL.
        CALL METHOD grid2->refresh_table_display.
        CALL METHOD grid1->refresh_table_display.
      ENDIF.
    ELSE.
      MESSAGE s000 WITH text-003.
      LEAVE LIST-PROCESSING.
    ENDIF.
  ENDMETHOD.                    "hotspot_click1
  METHOD hotspot_click2.
    READ TABLE gt_final3 INTO gx_final1 INDEX e_row_id.
    IF sy-subrc = 0.
      SET PARAMETER ID 'BES' FIELD gx_final-ebeln.
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDMETHOD.                    "button_click1
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
  START-OF-SELECTION                                                 *
START-OF-SELECTION.
  SELECT * FROM ekko INTO TABLE gt_final1 WHERE ebeln IN s_ebeln
                                          AND   bukrs IN s_bukrs
                                          AND   bsart IN s_bsart.
  IF sy-subrc = 0.
   SELECT * FROM ekpo INTO TABLE gt_final2 FOR ALL ENTRIES IN gt_final1
                                          WHERE ebeln = gt_final1-ebeln
                                           AND ebelp IN s_ebelp.
    IF sy-subrc = 0.
      gt_final3 = gt_final2.
    ENDIF.
  ENDIF.
  PERFORM sub_get_fieldcat CHANGING gt_fcat1.
  PERFORM sub_get_fieldcat CHANGING gt_fcat2.
  END-OF-SELECTION                                                   *
END-OF-SELECTION.
  PERFORM display_process.
  CALL SCREEN 9000.
MODULE pbo OUTPUT
MODULE pbo OUTPUT.
  SET PF-STATUS 'MAIN100'.
  gx_layout1-grid_title = 'Purchase Order Header'.
  gx_layout1-zebra      = 'X'.
  gx_layout1-info_fname = 'COLOR_LINE'.
  gx_layout1-sel_mode   = 'X'.
  gx_layout2-grid_title = 'Purchase Order Items'.
  gx_layout2-zebra      = 'X'.
  gx_layout1-stylefname = 'CB'.
gs_layout1-excp_led   = gc_check.
gs_layout1-excp_group = gc_check.
  gv_repid = sy-repid.
  gx_variant-report = gv_repid.
  READ TABLE gt_final1 INTO gx_final INDEX 1.
  IF sy-subrc = 0.
    DELETE gt_final3 WHERE ebeln NE gx_final-ebeln.
  ENDIF.
  IF g_custom_container1 IS INITIAL.
    CREATE OBJECT g_custom_container1
      EXPORTING
        container_name = g_container1.
    CREATE OBJECT grid1
      EXPORTING
        i_parent = g_custom_container1.
    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        is_layout       = gx_layout1
        is_variant      = gx_variant
        i_save          = 'U'
        i_default       = 'X'
        i_structure_name = 'EKKO'
      CHANGING
        it_outtab       = gt_final1
        it_fieldcatalog = gt_fcat1.
    CALL METHOD cl_gui_control=>set_focus
      EXPORTING
        control = grid1.
  ENDIF.
  IF g_custom_container2 IS INITIAL.
    CREATE OBJECT g_custom_container2
      EXPORTING
        container_name = g_container2.
    CREATE OBJECT grid2
      EXPORTING
        i_parent = g_custom_container2.
    CALL METHOD grid2->set_table_for_first_display
      EXPORTING
        is_layout       = gx_layout2
        is_variant      = gx_variant
        i_save          = 'U'
        i_default       = 'X'
        i_structure_name = 'EKPO'
      CHANGING
        it_outtab       = gt_final3
        it_fieldcatalog = gt_fcat2.
    CALL METHOD cl_gui_control=>set_focus
      EXPORTING
        control = grid2.
  ENDIF.
  CREATE OBJECT gv_event_rec1.
  SET HANDLER gv_event_rec1->hotspot_click1 FOR grid1.
CREATE OBJECT gv_event_rec2.
  SET HANDLER gv_event_rec1->hotspot_click2 FOR grid2.
  IF gt_final2 IS INITIAL.
    MESSAGE i000 WITH 'No Items exist for the Purchase Order'.
  ENDIF.
ENDMODULE.                    "PBO OUTPUT
      MODULE PAI INPUT                                              *
MODULE pai INPUT.
To react on oi_custom_events:
  CALL METHOD cl_gui_cfw=>dispatch.
  CASE ok_code.
    WHEN 'EXIT'.
      PERFORM exit_program.
      LEAVE PROGRAM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
  ENDCASE.
  CLEAR ok_code.
ENDMODULE.                    "PAI INPUT
      FORM EXIT_PROGRAM                                             *
FORM exit_program.
  CALL METHOD grid1->free.
  CALL METHOD grid2->free.
  CALL METHOD cl_gui_cfw=>flush.
  IF sy-subrc NE 0.
    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel = gv_repid
        txt2  = sy-subrc
        txt1  = 'Error in Flush'(009).
  ENDIF.
ENDFORM.                    "EXIT_PROGRAM
*&      Form  display_process
      text
-->  p1        text
<--  p2        text
FORM display_process .
  DATA: a LIKE sy-ucomm.
  DO 100 TIMES.
    DO 300 TIMES.
      GET TIME.
    ENDDO.
    a(3) = sy-index.a+3 = '%'.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = sy-index
        text       = a.
  ENDDO.
ENDFORM.                    " display_process
*&      Form  sub_get_fieldcat
      text
     <--P_GT_FCAT1  text
FORM sub_get_fieldcat  CHANGING lt_fcat  TYPE lvc_t_fcat.
  gx_fcat1-fieldname = 'EBELN'.
  gx_fcat1-tabname   = 'gt_final1'.
  gx_fcat1-hotspot   = 'X'.
  APPEND gx_fcat1 TO lt_fcat.
ENDFORM.                    " sub_get_fieldcat