This tutorial program displays sample ALV tree based on class CL_SALV_TREE.
The tree consists of a hierarchy of ALV classes (see screenshot) which is build recursively.
There is also a second sample for sales documents based on simple head and position relation.
The separate tables are used for the tree data and hierarchy.
Consider, you have to pass an empty table to the factory method.
The ALV tree looks like on this screenshot:
Here the corresponding program:
REPORT zkm_tree.
TYPES:
* Types for structure and table of tree data
BEGIN OF ts_data,
node TYPE string,
descript TYPE string,
END OF ts_data,
tt_data TYPE TABLE OF ts_data,
* Types for structure and table of tree hierarchy
BEGIN OF ts_hier,
node TYPE string,
parent TYPE string,
key TYPE salv_de_node_key,
END OF ts_hier,
tt_hier TYPE TABLE OF ts_hier.
DATA:
gt_data TYPE tt_data, " Tree data
gt_hier TYPE tt_hier. " Tree hierarchy
START-OF-SELECTION.
* Read the tree data and hierarchy
PERFORM scan_hier USING 'CL_SALV_MODEL' '' CHANGING gt_data gt_hier.
* Other sample with sales documents
* PERFORM read_sales CHANGING gt_data gt_hier.
* Display tree
PERFORM display_alv_tree.
*&---------------------------------------------------------------------*
*& Form scan_hier
*&---------------------------------------------------------------------*
FORM scan_hier USING pi_node TYPE seoclsname
pi_parent TYPE seoclsname
CHANGING pt_data TYPE tt_data
pt_hier TYPE tt_hier.
DATA:
ls_data TYPE ts_data,
ls_hier TYPE ts_hier,
lv_child TYPE seoclsname.
* Read and save data
ls_data-node = pi_node.
SELECT SINGLE descript
INTO ls_data-descript
FROM seoclasstx
WHERE clsname = pi_node
AND langu = sy-langu.
APPEND ls_data TO pt_data.
* Save relation
ls_hier-node = pi_node.
ls_hier-parent = pi_parent.
ls_hier-key = pi_node.
APPEND ls_hier TO pt_hier.
* Find children
SELECT clsname
INTO lv_child
FROM seometarel
WHERE refclsname = pi_node.
PERFORM scan_hier USING lv_child pi_node CHANGING pt_data pt_hier.
ENDSELECT.
ENDFORM. "scan_hier
*&---------------------------------------------------------------------*
*& Form read_sales
*&---------------------------------------------------------------------*
FORM read_sales CHANGING pt_data TYPE tt_data
pt_hier TYPE tt_hier.
DATA:
BEGIN OF ls_sales,
vbeln TYPE vbak-vbeln,
ktext TYPE vbak-ktext,
posnr TYPE vbap-posnr,
arktx TYPE vbap-arktx,
END OF ls_sales,
lt_sales LIKE STANDARD TABLE OF ls_sales,
ls_data TYPE ts_data,
ls_hier TYPE ts_hier.
FIELD-SYMBOLS:
<fs_sales> LIKE ls_sales.
SELECT vbak~vbeln
vbak~ktext
vbap~posnr
vbap~arktx
UP TO 1000 ROWS
INTO CORRESPONDING FIELDS OF TABLE lt_sales
FROM vbak
INNER JOIN vbap
ON vbap~vbeln = vbak~vbeln.
SORT lt_sales BY vbeln posnr.
LOOP AT lt_sales ASSIGNING <fs_sales>.
AT NEW vbeln.
ls_hier-node = <fs_sales>-vbeln.
ls_hier-parent = ''.
ls_hier-key = <fs_sales>-vbeln.
APPEND ls_hier TO pt_hier.
ls_data-node = ls_hier-node.
ls_data-descript = <fs_sales>-ktext.
APPEND ls_data TO pt_data.
ENDAT.
ls_hier-node = <fs_sales>-posnr.
ls_hier-parent = <fs_sales>-vbeln.
CONCATENATE <fs_sales>-vbeln '-' <fs_sales>-posnr INTO ls_hier-key.
APPEND ls_hier TO pt_hier.
ls_data-node = ls_hier-node.
ls_data-descript = <fs_sales>-arktx.
APPEND ls_data TO pt_data.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form display_alv_tree
*&---------------------------------------------------------------------*
FORM display_alv_tree.
DATA:
lt_empty TYPE tt_data,
ls_data TYPE ts_data,
ls_hier TYPE ts_hier,
lv_key TYPE salv_de_node_key,
lo_tree TYPE REF TO cl_salv_tree,
lo_nodes TYPE REF TO cl_salv_nodes,
lo_node TYPE REF TO cl_salv_node,
lo_columns TYPE REF TO cl_salv_columns,
lo_column TYPE REF TO cl_salv_column,
lo_tree_settings TYPE REF TO cl_salv_tree_settings,
lv_text TYPE lvc_value.
FIELD-SYMBOLS:
<fs_hier> TYPE ts_hier.
TRY.
* 1. Create instance with an empty table
CALL METHOD cl_salv_tree=>factory
IMPORTING
r_salv_tree = lo_tree
CHANGING
t_table = lt_empty.
* 2. Add the nodes to the tree and set their relations
lo_nodes = lo_tree->get_nodes( ).
LOOP AT gt_hier ASSIGNING <fs_hier>.
IF <fs_hier>-parent = ''.
* Add the node as root
lo_node = lo_nodes->add_node(
related_node = ''
relationship = if_salv_c_node_relation=>parent ).
ELSE.
* Read the ALV key of parent node and add as a child
READ TABLE gt_hier INTO ls_hier
WITH KEY node = <fs_hier>-parent.
lo_node = lo_nodes->add_node(
related_node = ls_hier-key
relationship = if_salv_c_node_relation=>first_child ).
ENDIF.
* Save the ALV internal key
<fs_hier>-key = lo_node->get_key( ).
* Add the data of the tree
READ TABLE gt_data INTO ls_data
WITH KEY node = <fs_hier>-node.
lo_node->set_data_row( ls_data ).
lv_text = ls_data-node.
lo_node->set_text( lv_text ).
ENDLOOP.
* Do some final format tasks
lo_columns = lo_tree->get_columns( ).
lo_columns->set_optimize( abap_true ).
lo_column = lo_columns->get_column( 'NODE' ).
lo_column->set_visible( abap_false ).
lo_tree_settings = lo_tree->get_tree_settings( ).
lo_tree_settings->set_hierarchy_header( 'Node' ).
lo_nodes->expand_all( ).
* Display Table
lo_tree->display( ).
CATCH cx_salv_error. " for cl_salv_tree=>factory
ENDTRY.
ENDFORM. "display_alv_treeSee other related notes on my website: