*&---------------------------------------------------------------------*
*& Report ZLEH11
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
report zleh11.

class ooalv definition.

  public section.
    class-methods:split_con importing iv_type  type i
                            changing  io_grid1 type ref to cl_gui_alv_grid optional
                                      io_grid2 type ref to cl_gui_alv_grid optional
                                      io_grid3 type ref to cl_gui_alv_grid optional.

  private section.

    class-data:go_split1 type ref to cl_gui_splitter_container.
    class-data:go_split2 type ref to cl_gui_splitter_container.

    class-data:go_cc type ref to cl_gui_custom_container.
*    class-data:go_cc type ref to cl_gui_docking_container.

endclass .

class ooalv implementation.

  method:split_con.

    check go_cc is not bound.

    if go_cc is not bound.
      go_cc = new cl_gui_custom_container( container_name = 'ALV' ).
    endif.
*    if go_cc is not bound.
*      go_cc = new cl_gui_docking_container(
*      side = cl_gui_docking_container=>dock_at_LEFT
*      repid = sy-repid dynnr = sy-dynnr extension = 300 ).
*    endif.

    "iv_type 1 分割左右 2 分割上下 3上半部分割左右 4 下半部分分割左右
    case iv_type.
      when 1.
        if go_split1 is not bound.
          go_split1 = new cl_gui_splitter_container( parent = go_cc rows = 1 columns = 2 ).
          io_grid1 = new cl_gui_alv_grid( go_split1->get_container( row = 1 column = 1 ) ) .
          io_grid2 = new cl_gui_alv_grid( go_split1->get_container( row = 1 column = 2 ) ) .
        endif.
      when 2.
        if go_split1 is not bound.
          go_split1 = new cl_gui_splitter_container( parent = go_cc rows = 2 columns = 1 ).
          io_grid1 = new cl_gui_alv_grid( go_split1->get_container( row = 1 column = 1 ) ) .
          io_grid2 = new cl_gui_alv_grid( go_split1->get_container( row = 2 column = 1 ) ) .
        endif.
      when 3.
        if go_split1 is not bound.
          go_split1 = new cl_gui_splitter_container( parent = go_cc rows = 2 columns = 1 ).
        endif.
        if go_split2 is not bound.
          go_split2 = new cl_gui_splitter_container( parent = go_split1->get_container( row = 1 column = 1 ) rows = 1 columns = 2 ).
        endif.
        io_grid1 = new cl_gui_alv_grid( go_split1->get_container( row = 2 column = 1 ) ) .
        io_grid2 = new cl_gui_alv_grid( go_split2->get_container( row = 1 column = 1 ) ) .
        io_grid3 = new cl_gui_alv_grid( go_split2->get_container( row = 1 column = 2 ) ) .
      when 4.
        if go_split1 is not bound.
          go_split1 = new cl_gui_splitter_container( parent = go_cc rows = 2 columns = 1 ).
        endif.
        if go_split2 is not bound.
          go_split2 = new cl_gui_splitter_container( parent = go_split1->get_container( row = 2 column = 1 ) rows = 1 columns = 2 ).
        endif.
        io_grid1 = new cl_gui_alv_grid( go_split1->get_container( row = 1 column = 1 ) ) .
        io_grid2 = new cl_gui_alv_grid( go_split2->get_container( row = 1 column = 1 ) ) .
        io_grid3 = new cl_gui_alv_grid( go_split2->get_container( row = 1 column = 2 ) ) .
      when others.
    endcase.

  endmethod.

endclass.



start-of-selection.

  data:go_grid1 type ref to cl_gui_alv_grid.
  data:go_grid2 type ref to cl_gui_alv_grid.
  data:go_grid3 type ref to cl_gui_alv_grid.

  call screen 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
module status_0100 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.

  ooalv=>split_con( exporting iv_type = 1 changing io_grid1 = go_grid1 io_grid2 = go_grid2 io_grid3 = go_grid3 ).


endmodule.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module user_command_0100 input.

*  check sy-ucomm eq 'EXIT'.
  leave to screen 0.

endmodule.