*&---------------------------------------------------------------------*
*& Report  ZBC401_04A_ALV2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zbc401_04a_alv2.


INCLUDE zbc401_04a_alv2_handler.


DATA: r_container1            TYPE REF TO cl_gui_custom_container,
      r_container2            TYPE REF TO cl_gui_custom_container,
      r_grid1                 TYPE REF TO cl_gui_alv_grid,
      r_grid2                 TYPE REF TO cl_gui_alv_grid,
      r_handle                TYPE REF TO lcl_event_handler,
      ix_handle               type sy-tabix.


DATA:
  wa_bkpf                     TYPE bkpf,
  it_bkpf                     LIKE TABLE OF wa_bkpf,
  ix_bkpf                     TYPE sy-tabix.


DATA:
  wa_bseg                     TYPE bseg,
  it_bseg                     LIKE TABLE OF wa_bseg.


SELECT-OPTIONS:
  s_bukrs                     FOR wa_bkpf-bukrs OBLIGATORY,
  s_belnr                     FOR wa_bkpf-belnr,
  s_gjahr                     FOR wa_bkpf-gjahr OBLIGATORY.


START-OF-SELECTION.

  CREATE OBJECT r_container1
    EXPORTING container_name = 'CONTAINER1'.

  CREATE OBJECT r_grid1
    EXPORTING i_parent = r_container1.

  CREATE OBJECT r_container2
    EXPORTING container_name = 'CONTAINER2'.

  CREATE OBJECT r_grid2
    EXPORTING i_parent = r_container2.

  CREATE OBJECT r_handle.
  SET HANDLER   r_handle->on_double_click FOR r_grid1.


  SELECT * FROM bkpf INTO TABLE it_bkpf
    WHERE bukrs IN s_bukrs
    AND   belnr IN s_belnr
    AND   gjahr IN s_gjahr.


  r_grid1->set_table_for_first_display(
    EXPORTING i_structure_name = 'BKPF'
    CHANGING  it_outtab = it_bkpf ).


  CALL SCREEN 0100.


  INCLUDE zbc401_04a_alv2_o01.

  INCLUDE zbc401_04a_alv2_i01.