笔记三、切割屏幕

*  创建 容器
  CREATE OBJECT g_container_100
    EXPORTING
      repid                       = sy-repid
      dynnr                       = '0300'
*     side                        = cl_gui_docking_container=>dock_at_right      ”ALV贴屏幕右边，从屏幕右边开始算宽度
      side                        = cl_gui_docking_container=>dock_at_top       "ALV贴屏幕左边，从左边算屏幕宽度，
      extension                   = 1500                                          "屏幕宽度
*     ratio                       = 95  "屏幕比例 小于5大于95会报cntl_error异常
      style                       = cl_gui_control=>ws_child                     "可选参数，设置ALV是否可用手动拖动大小
    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 s001(00) WITH '屏幕初始化失败'.
    LEAVE LIST-PROCESSING.
  ENDIF.

  "拆分成2行1列部分
  CREATE OBJECT g_splitter
    EXPORTING
      parent  = g_container_100
      rows    = 2
      columns = 1.

  "一行一列
  CALL METHOD g_splitter->get_container
    EXPORTING
      row