REPORT z18_01.
TYPES: node_table_type LIKE STANDARD TABLE OF mtreesnode
WITH DEFAULT KEY.
DATA : tree_con_ref TYPE REF TO cl_gui_custom_container.
DATA : g_tree TYPE REF TO cl_gui_simple_tree.
DATA : con1_ref TYPE REF TO cl_gui_custom_container.
DATA : g_grid TYPE REF TO cl_gui_alv_grid.
DATA : gs_variant TYPE disvariant.
DATA : gt_sflight TYPE TABLE OF sflight.
DATA : ok_code TYPE sy-ucomm.
START-OF-SELECTION.
SELECT * FROM sflight
INTO TABLE gt_sflight UP TO 25 ROWS.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module INIT_CON OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE init_con OUTPUT.
IF con1_ref IS INITIAL.
CREATE OBJECT con1_ref
EXPORTING
container_name = 'CON1'.
CREATE OBJECT g_grid
EXPORTING
i_parent = con1_ref.
ENDIF.
gs_variant-report = sy-repid.
gs_variant-username = sy-uname.
CALL METHOD g_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
is_variant = gs_variant
i_save = ''
CHANGING
it_outtab = gt_sflight.
ENDMODULE. " INIT_CON OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
IF ok_code = 'BACK'.
LEAVE PROGRAM.
ENDIF.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS '100_STATUS'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module INIT_TREE OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module INIT_TREE output.
IF g_tree IS INITIAL.
DATA: node_table TYPE node_table_type.
DATA : events TYPE cntl_simple_events,
event TYPE cntl_simple_event.
CREATE OBJECT tree_con_ref
EXPORTING
container_name = 'TREE_CONTAINER'.
* create a tree control
CREATE OBJECT g_tree
EXPORTING
parent = tree_con_ref
" single node selection is used
node_selection_mode = cl_gui_simple_tree=>node_sel_mode_single.
PERFORM build_node_table USING node_table.
* node_table_structure_name = 'MTREESNODE'
CALL METHOD g_tree->add_nodes
EXPORTING
table_structure_name = 'MTREESNODE'
node_table = node_table.
* define the events which will be passed to the backend
event-eventid = cl_gui_simple_tree=>eventid_node_double_click.
event-appl_event = 'X'. " process PAI if event occurs
APPEND event TO events.
CALL METHOD g_tree->set_registered_events
EXPORTING
events = events
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
illegal_event_combination = 3.
ENDIF.
endmodule. " INIT_TREE OUTPUT
*&---------------------------------------------------------------------*
*& Form BUILD_NODE_TABLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_NODE_TABLE text
*----------------------------------------------------------------------*
FORM build_node_table
USING
node_table TYPE node_table_type.
DATA: node LIKE mtreesnode.
CLEAR node.
node-node_key = 'Root'.
node-isfolder = 'X'. " a folder.
node-text = 'AIRPLANE'.
APPEND node TO node_table.
CLEAR node.
node-node_key = 'Child1'.
node-relatkey = 'Root'.
node-isfolder = 'X'.
node-text = 'CARRID'.
node-expander = 'X' .
APPEND node TO node_table.
CLEAR node.
node-node_key = 'AA'.
node-relatkey = 'Child1'.
node-n_image = '@10@'.
node-text = 'AA'.
APPEND node TO node_table.
CLEAR node.
node-node_key = 'AZ'.
node-relatkey = 'Child1'.
NODE-style = CL_GUI_SIMPLE_TREE=>style_emphasized.
node-text = 'AZ'.
APPEND node TO node_table.
CLEAR node.
node-node_key = 'DL'.
node-relatkey = 'Child1'.
node-expander = ' '.
* NODE-HIDDEN = ' '.
node-disabled = 'X'.
NODE-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
node-text = 'DL'.
APPEND node TO node_table.
ENDFORM. " build_node_table
form refresh_grid .
DATA : l_scroll TYPE lvc_s_stbl.
l_scroll-row = 'X'.
l_scroll-col = 'X'.
CALL METHOD g_grid->refresh_table_display
EXPORTING
i_soft_refresh = ''
is_stable = l_scroll.
endform. " refresh_grid
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
649 | <b>ABAP SOURCE는 교재에 사용된 소스들입니다.</b> [1] | sapjoy | 2006.12.02 | 3618 |
648 | REPORT z19_01. | sapjoy | 2012.08.01 | 3530 |
647 | z_exception_test | sapjoy | 2010.10.10 | 3520 |
646 | report zsalv_036 . | sapjoy | 2010.08.20 | 3472 |
645 | REPORT z18_04 . | sapjoy | 2012.08.01 | 3351 |
644 | REPORT ZSMARTFORMS_03. | sapjoy | 2008.11.28 | 3345 |
643 | REPORT z18_05 | sapjoy | 2012.08.01 | 3333 |
642 | Sub DOI_EXCEL_MACRO() | sapjoy | 2008.12.26 | 3312 |
641 | REPORT z18_003 | sapjoy | 2007.03.05 | 3281 |
640 | subroutine pool | sapjoy | 2013.11.15 | 3276 |
639 | REPORT z19_004 | sapjoy | 2007.03.27 | 3230 |
638 | REPORT Z_WHEREUSEDLIST [4] | sapjoy | 2011.03.28 | 3215 |
637 | REPORT ZALVCOLOR | sapjoy | 2010.10.09 | 3212 |
636 | zsalv_edit [1] | sapjoy | 2010.08.20 | 3207 |
635 | REPORT ZSAPTIP_002. | sapjoy | 2009.02.20 | 3206 |
634 | REPORT Z06_001 MESSAGE-ID ZTEST . [1] | sapjoy | 2006.12.05 | 3205 |
633 | REPORT z18_06. | sapjoy | 2012.08.01 | 3154 |
632 | REPORT zsapdoi_001. [2] | sapjoy | 2008.12.20 | 3135 |
631 | report zsalv_042 . | sapjoy | 2010.08.20 | 3132 |
» | REPORT z18_01. | sapjoy | 2012.08.01 | 3113 |