1. Data, Tree Event Receiver Class 선언 및 생성
2. 객체 선언 및 Container 할당
3. Tree Root, Node, Item 구성
4. Tree Refresh 방법.
1. Data, Tree Event Receiver Class 선언 및 생성
CLASS LCL_TREE_EVENT_RECEIVER DEFINITION DEFERRED. DATA: GO_COLUMN_TREE TYPE REF TO CL_GUI_COLUMN_TREE, GO_TREE TYPE REF TO LCL_TREE_EVENT_RECEIVER. 2. Tree Event Receiver Class 생성 *———————————————————————-* * CLASS LCL_TREE_EVENT_RECEIVER DEFINITION *———————————————————————-* * *———————————————————————-* CLASS LCL_TREE_EVENT_RECEIVER DEFINITION. PUBLIC SECTION. METHODS: HANDLE_BUTTON_CLICK FOR EVENT BUTTON_CLICK OF CL_GUI_COLUMN_TREE IMPORTING NODE_KEY ITEM_NAME. ENDCLASS. “LCL_TREE_EVENT_RECEIVER DEFINITION *———————————————————————-* * CLASS LCL_TREE_EVENT_RECEIVER IMPLEMENTATION *———————————————————————-* * *———————————————————————-* CLASS LCL_TREE_EVENT_RECEIVER IMPLEMENTATION. METHOD HANDLE_BUTTON_CLICK. PERFORM HANDLE_BUTTON_CLICK USING NODE_KEY ITEM_NAME. ENDMETHOD. “HANDLE_BUTTON_CLICK ENDCLASS. “LCL_TREE_EVENT_RECEIVER IMPLEMENTATION
2. 객체 선언 및 Container 할당
– 예제는 1행1열이 Tree, 1행2열이 ALV Grid.
* create a container for the tree control CREATE OBJECT GO_DOCKING_CONTAINER1 EXPORTING SIDE = GO_DOCKING_CONTAINER1->DOCK_AT_LEFT EXTENSION = 2000. IF SY-SUBRC <> 0. MESSAGE A000. ENDIF. * 화면 분할. CREATE OBJECT GO_SPLITTER1 EXPORTING PARENT = GO_DOCKING_CONTAINER1 ROWS = 1 WIDTH = 2000 COLUMNS = 2. * 1행 1열(Tree용). CALL METHOD GO_SPLITTER1->GET_CONTAINER EXPORTING ROW = 1 COLUMN = 1 RECEIVING CONTAINER = GO_CONTAINER1. * 1행 2열(ALV Grid용). CALL METHOD GO_SPLITTER1->GET_CONTAINER EXPORTING ROW = 1 COLUMN = 2 RECEIVING CONTAINER = GO_CONTAINER2. CALL METHOD GO_SPLITTER1->SET_COLUMN_WIDTH EXPORTING ID = 1 WIDTH = 15. * ALV Grid. CREATE OBJECT GO_GRID1 EXPORTING I_PARENT = GO_CONTAINER2.
3. Tree Root, Node, Item 구성
IF GO_TREE IS NOT BOUND. CREATE OBJECT GO_TREE. PERFORM CREATE_AND_INIT_TREE. ENDIF. * &———————————————————————* * & Form CREATE_AND_INIT_TREE * &———————————————————————* * text * ———————————————————————-* FORM CREATE_AND_INIT_TREE. DATA: PT_NODE_TABLE TYPE TREEV_NTAB, PT_ITEM_TABLE TYPE ITEM_TABLE_TYPE, LS_EVENT TYPE CNTL_SIMPLE_EVENT, LT_EVENTS TYPE CNTL_SIMPLE_EVENTS, LS_HIERARCHY_HEADER TYPE TREEV_HHDR. * setup the hierarchy header LS_HIERARCHY_HEADER-HEADING = ‘수익성분석 작업’. ” heading LS_HIERARCHY_HEADER-WIDTH = 30. ” width: 30 characters * create a tree control * After construction, the control contains one column in the * hierarchy area. The name of this column * is defined via the constructor parameter HIERACHY_COLUMN_NAME. CREATE OBJECT GO_COLUMN_TREE EXPORTING PARENT = GO_CONTAINER1 NODE_SELECTION_MODE = CL_GUI_COLUMN_TREE=>NODE_SEL_MODE_SINGLE ITEM_SELECTION = ‘X’ HIERARCHY_COLUMN_NAME = C_COLUMN-COLUMN1 HIERARCHY_HEADER = LS_HIERARCHY_HEADER EXCEPTIONS CNTL_SYSTEM_ERROR = 1 CREATE_ERROR = 2 FAILED = 3 ILLEGAL_NODE_SELECTION_MODE = 4 ILLEGAL_COLUMN_NAME = 5 LIFETIME_ERROR = 6. IF SY-SUBRC <> 0. MESSAGE A000. ENDIF. * define the Lt_EVENTS which will be passed to the backend * ” node double click * LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_NODE_DOUBLE_CLICK. * LS_EVENT-APPL_EVENT = ‘X’. ” process PAI if ls_EVENT occurs * APPEND LS_EVENT TO LT_EVENTS. * ” item double click * LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_ITEM_DOUBLE_CLICK. * LS_EVENT-APPL_EVENT = ‘X’. * APPEND LS_EVENT TO LT_EVENTS. * ” expand no children * LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_EXPAND_NO_CHILDREN. * LS_EVENT-APPL_EVENT = ‘X’. * APPEND LS_EVENT TO LT_EVENTS. * ” link click * LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_LINK_CLICK. * LS_EVENT-APPL_EVENT = ‘X’. * APPEND LS_EVENT TO LT_EVENTS. ” button click LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_BUTTON_CLICK. LS_EVENT-APPL_EVENT = ‘X’. APPEND LS_EVENT TO LT_EVENTS. * ” checkbox change * LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_CHECKBOX_CHANGE. * LS_EVENT-APPL_EVENT = ‘X’. * APPEND LS_EVENT TO LT_EVENTS. * ” header click * LS_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_HEADER_CLICK. * LS_EVENT-APPL_EVENT = ‘X’. * APPEND LS_EVENT TO LT_EVENTS. CALL METHOD GO_COLUMN_TREE->SET_REGISTERED_EVENTS EXPORTING EVENTS = LT_EVENTS EXCEPTIONS CNTL_ERROR = 1 CNTL_SYSTEM_ERROR = 2 ILLEGAL_EVENT_COMBINATION = 3. IF SY-SUBRC <> 0. MESSAGE A000. ENDIF. * assign ls_EVENT handlers in the application class to each desired ls_EVENT * SET HANDLER GO_tree->HANDLE_NODE_DOUBLE_CLICK FOR GO_COLUMN_TREE. * SET HANDLER GO_tree->HANDLE_ITEM_DOUBLE_CLICK FOR GO_COLUMN_TREE. * SET HANDLER GO_tree->HANDLE_EXPAND_NO_CHILDREN FOR GO_COLUMN_TREE. * SET HANDLER GO_tree->HANDLE_LINK_CLICK FOR GO_COLUMN_TREE. SET HANDLER GO_TREE->HANDLE_BUTTON_CLICK FOR GO_COLUMN_TREE. * SET HANDLER GO_tree->HANDLE_CHECKBOX_CHANGE FOR GO_COLUMN_TREE. * SET HANDLER GO_tree->HANDLE_HEADER_CLICK FOR GO_COLUMN_TREE. * Node, Child 설정. CLEAR: PT_NODE_TABLE, PT_ITEM_TABLE. PERFORM BUILD_NODE_AND_PT_ITEM_TABLE TABLES PT_NODE_TABLE PT_ITEM_TABLE. CALL METHOD GO_COLUMN_TREE->ADD_NODES_AND_ITEMS EXPORTING NODE_TABLE = PT_NODE_TABLE ITEM_TABLE = PT_ITEM_TABLE ITEM_TABLE_STRUCTURE_NAME = ‘MTREEITM’ EXCEPTIONS FAILED = 1 CNTL_SYSTEM_ERROR = 3 ERROR_IN_TABLES = 4 DP_ERROR = 5 TABLE_STRUCTURE_NAME_NOT_FOUND = 6. IF SY-SUBRC <> 0. MESSAGE A000. ENDIF. * expand the node with key ‘Root’ CALL METHOD GO_COLUMN_TREE->EXPAND_NODE EXPORTING NODE_KEY = C_NODEKEY-ROOT EXCEPTIONS FAILED = 1 ILLEGAL_LEVEL_COUNT = 2 CNTL_SYSTEM_ERROR = 3 NODE_NOT_FOUND = 4 CANNOT_EXPAND_LEAF = 5. IF SY-SUBRC <> 0. MESSAGE A000. ENDIF. ENDFORM. ” CREATE_AND_INIT_TREE * &———————————————————————* * & Form BUILD_NODE_AND_PT_ITEM_TABLE * &———————————————————————* * text * ———————————————————————-* FORM BUILD_NODE_AND_PT_ITEM_TABLE TABLES PT_NODE_TABLE TYPE TREEV_NTAB PT_ITEM_TABLE TYPE ITEM_TABLE_TYPE. DATA: LS_NODE TYPE TREEV_NODE, LS_ITEM TYPE MTREEITM. FIELD-SYMBOLS: <FS_CHILD>. FIELD-SYMBOLS: <FS_ICON>. DATA: LV_CHILD(30). DATA: LV_TEXT(30). DATA: LV_ICON(30). * Root Node. PERFORM BUILD_NODE_TABLE TABLES PT_NODE_TABLE USING C_NODEKEY-ROOT ‘X’ ” ”. READ TABLE GT_DISPLAY INTO GS_DISPLAY INDEX 1. LOOP AT GT_5499 INTO GS_5499. * Node. CLEAR: LV_CHILD, LV_TEXT. CONCATENATE ‘C_NODEKEY-CHILD’ GS_5499-SFLAG INTO LV_CHILD. CONCATENATE GS_5499-SFLAG GS_5499-TEXT INTO LV_TEXT SEPARATED BY ‘.’. ASSIGN (LV_CHILD) TO <FS_CHILD>. PERFORM BUILD_NODE_TABLE TABLES PT_NODE_TABLE USING <FS_CHILD> ‘X’ C_NODEKEY-ROOT CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD. * Item. * 출력 데이터를 검색하여 작업 단계 확인. CLEAR: LV_ICON. CONCATENATE ‘GV_ICON’ GS_5499-SFLAG INTO LV_ICON. ASSIGN (LV_ICON) TO <FS_ICON>. IF GS_DISPLAY-SFLAG GE GS_5499-SFLAG. * IF ZCOT5400-SFLAG GE GS_5499-SFLAG. <FS_ICON> = GC_ICON_CHECKED. ” @01@, ICON_CHECKED. ELSE. <FS_ICON> = GC_ICON_INCOMPLETE. ” @02@, ICON_INCOMPLETE. ENDIF. PERFORM BUILD_ITEM_TABLE TABLES PT_ITEM_TABLE USING <FS_CHILD> C_COLUMN-COLUMN1 CL_GUI_COLUMN_TREE=>ITEM_CLASS_BUTTON LV_TEXT <FS_ICON>. ENDLOOP. ” LOOP AT GT_5499 INTO GS_5499. ENDFORM. ” BUILD_NODE_AND_PT_ITEM_TABLE * &———————————————————————* * & Form BUILD_NODE_TABLE * &———————————————————————* * text * ———————————————————————-* FORM BUILD_NODE_TABLE TABLES PT_TABLE TYPE TREEV_NTAB USING PV_NODEKEY PV_ISFOLDER PV_RELAKEY PV_RELATSHIP. DATA: LS_NODE TYPE TREEV_NODE. LS_NODE-NODE_KEY = PV_NODEKEY. LS_NODE-HIDDEN = ‘ ‘. ” The node is visible, LS_NODE-DISABLED = ‘ ‘. ” selectable, CLEAR LS_NODE-N_IMAGE. ” Folder-/ Leaf-Symbol in state “closed”: IF PV_NODEKEY = C_NODEKEY-ROOT. CLEAR LS_NODE-RELATKEY. ” Special case: A root node has no parent CLEAR LS_NODE-RELATSHIP. ” node. LS_NODE-ISFOLDER = PV_ISFOLDER. ” a folder. ELSE. LS_NODE-RELATKEY = PV_RELAKEY. ” Special case: A root node has no parent LS_NODE-RELATSHIP = PV_RELATSHIP. ” node. CLEAR: LS_NODE-ISFOLDER. ENDIF. CLEAR LS_NODE-EXP_IMAGE. ” Folder-/ Leaf-Symbol in state “open”: CLEAR LS_NODE-EXPANDER. ” see below. APPEND LS_NODE TO PT_TABLE. ENDFORM. ” BUILD_NODE_TABLE * &———————————————————————* * & Form BUILD_ITEM_TABLE * &———————————————————————* * text * ———————————————————————-* FORM BUILD_ITEM_TABLE TABLES PT_TABLE TYPE ITEM_TABLE_TYPE USING PV_NODEKEY_CHILD1 PV_COLUMN_COLUMN1 PV_ITEM_CLASS PV_TEXT PV_ICON. DATA: LS_ITEM TYPE MTREEITM. CLEAR LS_ITEM. LS_ITEM-NODE_KEY = PV_NODEKEY_CHILD1. LS_ITEM-ITEM_NAME = PV_COLUMN_COLUMN1. LS_ITEM-CLASS = PV_ITEM_CLASS. LS_ITEM-EDITABLE = ‘ ‘. LS_ITEM-TEXT = PV_TEXT. * ICON. LS_ITEM-T_IMAGE = PV_ICON. * Data 추출시 버튼 비활성화. IF R_R2 = ‘X’. LS_ITEM-DISABLED = ‘X’. ENDIF. APPEND LS_ITEM TO PT_TABLE. ENDFORM. ” BUILD_ITEM_TABLE
4. Tree Refresh 방법
* Tree 재구성. IF GO_COLUMN_TREE IS BOUND. GO_COLUMN_TREE->FREE( ). ENDIF. PERFORM CREATE_AND_INIT_TREE. ” Reuse.
댓글