Вывод списка совместно с docking container

kim

Наверняка все видели отчеты сделанные report painter'e. Экран разделён на две части, слева деревья отвечающие за выбор отчета/вариацию, а справа сам отчет. Хочу сделать точно такое-же в своём отчете.
Путём отладки выяснил, что используется экран с контейнером, левая часть создана путём использования класса cl_gui_docking_container в нём уже сплиттер (cl_gui_splitter_container) а в нём уже деревья (cl_gui_column_tree). Вывод на правую часть идёт обычными write, new-line и прочим той-же серии.
У меня получилось повторить то, что касается левой стороны, но не получается вывод через write в правую... Может кто-то лучше знает, как совмещается экран и вывод списков?

sy-uname

kim написал:

Наверняка все видели отчеты сделанные report painter'e. Экран разделён на две части, слева деревья отвечающие за выбор отчета/вариацию, а справа сам отчет. Хочу сделать точно такое-же в своём отчете.
Путём отладки выяснил, что используется экран с контейнером, левая часть создана путём использования класса cl_gui_docking_container в нём уже сплиттер (cl_gui_splitter_container) а в нём уже деревья (cl_gui_column_tree). Вывод на правую часть идёт обычными write, new-line и прочим той-же серии.
У меня получилось повторить то, что касается левой стороны, но не получается вывод через write в правую...

А что происходит? Как выглядит итоговый экран?
Вообще не имеет смысла тратить силы на write. Лучше освоить что-либо более полезное.

tester

Code:

PROGRAM.
  TYPE-POOLS
    cndp.
CLASS lcl_main DEFINITION.
*
  PUBLIC SECTION.
    CLASS-METHODS:
      create_docking_container IMPORTING i_side TYPE i,
*
      dp_publish_www_url IMPORTING objid    TYPE w3objid
                                   lifetime TYPE c DEFAULT cndp_lifetime_transaction
                         EXPORTING url TYPE cndp_url
                         EXCEPTIONS error.
ENDCLASS.                    "lcl_main DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_main IMPLEMENTATION.
  METHOD create_docking_container.
    DATA:
      docking TYPE REF TO cl_gui_docking_container,
      picture TYPE REF TO cl_gui_picture,
      url     TYPE cndp_url.
*
    CREATE OBJECT docking EXPORTING side  = i_side
                                    ratio = 30.
*
    CREATE OBJECT picture EXPORTING parent = docking.
    call method dp_publish_www_url( EXPORTING objid = 'DB50_LOGO.GIF'
                        IMPORTING url = url
                        EXCEPTIONS error = 1 ).
    IF sy-subrc <> 0. BREAK-POINT. ENDIF.
*   Bild anzeigen
    call method picture->load_picture_from_url_async( url = url ).
    call method     picture->set_display_mode( picture->display_mode_stretch ).
  ENDMETHOD.                    "create_docking_container
*----------------------------------------------------------------------*
  METHOD dp_publish_www_url.
    CALL FUNCTION 'DP_PUBLISH_WWW_URL'
      EXPORTING
        objid                 = objid
        lifetime              = lifetime
      IMPORTING
        url                   = url
      EXCEPTIONS
        dp_invalid_parameters = 1
        no_object             = 2
        dp_error_publish      = 3.
    IF sy-subrc <> 0.
      RAISE error.
    ENDIF.
  ENDMETHOD.                    "dp_publish_www_url
ENDCLASS.                    "lcl_main IMPLEMENTATION
*----------------------------------------------------------------------*
AT USER-COMMAND.
      call method lcl_main=>create_docking_container( cl_gui_docking_container=>dock_at_left ).
      call method lcl_main=>create_docking_container( cl_gui_docking_container=>dock_at_right ).
      call method lcl_main=>create_docking_container( cl_gui_docking_container=>dock_at_top ).
      call method lcl_main=>create_docking_container( cl_gui_docking_container=>dock_at_bottom ).
*----------------------------------------------------------------------*
START-OF-SELECTION.
  DO 100 TIMES. WRITE / sy-index. ENDDO.
*
  SET USER-COMMAND 'X'.

 

kim

tester Огромное спасибо!

Правила форума

Вывод списка совместно с docking container

Кто сейчас на конференции