Tree im Docking Container

Code: Alles auswählen.

REPORT ysg_dok_akte.
DATA:
  ok_code TYPE sy-ucomm,
*  tree TYPE REF TO CL_GUI_ALV_TREE_SIMPLE,
  tree    TYPE REF TO cl_gui_alv_tree,
  edit    TYPE REF TO cl_gui_textedit,
  dock    TYPE REF TO cl_gui_docking_container.


CREATE OBJECT dock
  EXPORTING
    repid = sy-repid
    dynnr = '9000'
    side  = dock->dock_at_right
*   style = 0
    ratio = 50.


*CREATE OBJECT edit
*  EXPORTING
**    max_number_chars       =
**    style                  = 0
**    wordwrap_mode          = WORDWRAP_AT_WINDOWBORDER
**    wordwrap_position      = -1
**    wordwrap_to_linebreak_mode = FALSE
**    filedrop_mode          = DROPFILE_EVENT_OFF
*    parent                 = dock
**    lifetime               =
**    name                   =
*  EXCEPTIONS
*    error_cntl_create      = 1
*    error_cntl_init        = 2
*    error_cntl_link        = 3
*    error_dp_create        = 4
*    gui_type_not_supported = 5
*    others                 = 6.
*IF sy-subrc <> 0.
*ENDIF.


CREATE OBJECT tree
  EXPORTING
    parent                      = dock
  EXCEPTIONS
    cntl_error                  = 1
    cntl_system_error           = 2
    create_error                = 3
    lifetime_error              = 4
    illegal_node_selection_mode = 5
    failed                      = 6
    illegal_column_name         = 7
    OTHERS                      = 8.
IF sy-subrc <> 0.
ENDIF.



CALL SCREEN 9000.

INCLUDE ysg_dok_akte_status_9000o01.
INCLUDE ysg_dok_akte_ok_9000i01.