閑的時候 做一個屏幕 分割器 、 tablecontrol 、tablestrip 、 alv oo 還有什麽？ 類似于PA30 的效果吧

 

主要學習的博客轉自：http://www.abaptech.com/2008/07/alv-grid-demo/ 

 

先記錄下爲何要用繁體吧。

 

oh 前兒去學guitar 遇見了個外國人，在中國3、4年， 一口流利的普通話，自愧不如，人家外語怎麽就這麽好。

 

了解到原是教中國厤史的老師，我對於祖國的歷史局限于初高中那點底子，唉。

 

留下個聯係方式，居然是繁體的中文名字，我，慚愧，所以，開始用繁體，希望潛移默化的起到些作用吧。

 

---

 

言歸正傳！！！！！！！！！！！！

 

大概框架：

左邊是2個tree，

 

涉及到的幾個類，不分先後順序：

    cl_gui_docking_container

    cl_gui_container

    cl_gui_splitter_manager

    cl_gui_alv_tree

    cl_gui_alv_grid

    cl_gui_column_tree

 

事件流：

•  先為分割器第一行顯示内表數據加值
• call screen 9000
• call method lcl_splitter_manager=>create
• 註冊事件
• 執行吧 
• 出發按鈕，轉換子屏幕

 

 

1： 先創建個分割器類定義

 

CLASS lcl_splitter_manager DEFINITION. PUBLIC SECTION. "静态方法 CLASS-METHODS: create IMPORTING progname TYPE progname dynnr TYPE sy-dynnr. "全局方法 METHODS: init IMPORTING progname TYPE progname dynnr TYPE sy-dynnr. "创建分离器 METHODS: create_splitter_control IMPORTING parent TYPE REF TO cl_gui_docking_container EXPORTING launchpad_container TYPE REF TO cl_gui_container displaytool_container TYPE REF TO cl_gui_container. CLASS-DATA self TYPE REF TO lcl_splitter_manager. DATA launchpad_height TYPE i VALUE 240."分割条的高度 DATA splitter_control TYPE REF TO cl_gui_splitter_container. DATA docking_container TYPE REF TO cl_gui_docking_container. DATA launchpad_container TYPE REF TO cl_gui_container."左边据上面TREE DATA launchpad_manager TYPE REF TO lcl_launchpad_manager. DATA displaytool_container TYPE REF TO cl_gui_container."左边据下面ALV DATA displaytl_manager TYPE REF TO lcl_displaytl_manager. ENDCLASS. "LCL_SPLITTER_MANAGER DEFINITION

 涉及了兩個類：lcl_launchpad_manager / lcl_displaytl_manager.

 

2: 分割器的實現

CLASS lcl_splitter_manager IMPLEMENTATION. METHOD : create. CREATE OBJECT self. CALL METHOD self->init EXPORTING progname = progname dynnr = sy-dynnr. ENDMETHOD. METHOD init. CREATE OBJECT me->docking_container EXPORTING repid = progname dynnr = dynnr extension = 300 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 ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CALL METHOD me->create_splitter_control EXPORTING