ALV - OO - Tree 2

Ejemplo de ALV Tree

Para crear el container:

En la se80 creamos primero la dynpro.
 





En disp. Le damos el tamaño que queremos y llamamos al container como en el
programa:





*—————————————————————–*
FORM INIT_TREE.
DATA: L_TREE_CONTAINER_NAME(30) TYPE C.
L_TREE_CONTAINER_NAME =
'ZTREEE_CONTROL'.
CREATE OBJECT G_CUSTOM_CONTAINER
EXPORTING
CONTAINER_NAME = L_TREE_CONTAINER_NAME
EXCEPTIONS
CNTL_ERROR=1
CNTL_SYSTEM_ERROR=2
CREATE_ERROR=3
LIFETIME_ERROR=4
LIFETIME_DYNPRO_DYNPRO_LINK = 5.
CREATE OBJECT G_ALV_TREE
EXPORTING
PARENT
= G_CUSTOM_CONTAINER
NODE_SELECTION_MODE = CL_GUI_COLUMN_TREE=>NODE_SEL_MODE_SINGLE
ITEM_SELECTION= ''
NO_HTML_HEADER= 'X'
NO_TOOLBAR= ''
EXCEPTIONS
CNTL_ERROR=1
CNTL_SYSTEM_ERROR=2
CREATE_ERROR=3
LIFETIME_ERROR=4
ILLEGAL_NODE_SELECTION_MODE = 5
FAILED=6
ILLEGAL_COLUMN_NAME= 7.
PERFORM FILL_CATALOG_TREE.
PERFORM BUILD_HIERARCHY_HEADER CHANGING L_HIERARCHY_HEADER. 


Despues abrimos el module en el programa para el status y titulo.