topic Re: Problem with alv tree in Application Development and Automation Discussions

Problem with alv tree

Former Member — Tue, 20 Jul 2010 07:53:42 GMT

Hi Guys,

I'm working on an alv tree in a modal dialog.I am adding the heirarchy structure.But only one level is showing.

I mean only fodlers are showing.No data is being displayed.If i add another folder on top of these folders,

then even these folders dont display.

Re: Problem with alv tree

Former Member — Tue, 27 Jul 2010 11:41:30 GMT

What do you mean by "hierarchy structure"? If you meant hierarchy header, that is only the header for the tree part itself, not the ALV part of the control. Or do you mean that you already see the root node in your tree, but no children?

Did you have a look at the ALV_TREE demos? E.g. BCALV_TREE_01

If you provide further information on what you have done and where exactly you are stuck, I can probably support you a bit more.

Re: Problem with alv tree

Former Member — Tue, 27 Jul 2010 12:02:44 GMT

few simple stepd to build hierarachy tree structure in ALV

1. Fill the final internal table to be displayed.

2. Build the fieldcatalog.

3. loop the final internal table and add nodes according to the fields which you want to display in the hierarchy.

for example

here i have two hierarchy levels and using two different internal tables, the code as follows

loop at it_tab into wa_tab.

perform add_itab_node using wa_tab

changing l_profile_key.

loop at IT_FINAL into WA_FINAL where profile eq wa_tab-profile.

perform add_itab1_line using WA_FINAL

l_profile_key

changing l_posnr_key.

endloop.

4. under the performs use the method add_node to add the node for the tree

find the below code in the performs

orm add_carrid_line using ps_HEADER type TY_FINAL

p_relat_key type lvc_nkey

changing p_node_key type lvc_nkey.

data: l_node_text type lvc_value,

ls_HEADER type TY_FINAL.

set item-layout

data: lt_item_layout type lvc_t_layi,

ls_item_layout type lvc_s_layi.

ls_item_layout-t_image = '@3P@'.

ls_item_layout-fieldname = tree1->c_hierarchy_column_name.

ls_item_layout-style =

cl_gui_column_tree=>style_intensifd_critical.

append ls_item_layout to lt_item_layout.

add node

l_node_text = ps_HEADER-PROFILE.

data: ls_node type lvc_s_layn.

ls_node-n_image = space.

ls_node-exp_image = space.

call method tree1->add_node

EXPORTING

i_relat_node_key = p_relat_key

i_relationship = cl_gui_column_tree=>relat_last_child

i_node_text = l_node_text

is_outtab_line = ls_HEADER

is_node_layout = ls_node

it_item_layout = lt_item_layout

IMPORTING

e_new_node_key = p_node_key.

endform. " add_carrid_line

5. use the node_key values to display the child or parent nodes.

regards,

sirisha

Re: Problem with alv tree

Former Member — Tue, 27 Jul 2010 12:26:15 GMT

HI vivek,

Check the code below.

* type pool declarations for tree
TYPE-POOLS : fibs,stree.
*Data declaration for additional node information
DATA : t_node TYPE snodetext.
*Internal table and wa decl for nodes
DATA : it_node LIKE TABLE OF t_node INITIAL SIZE 0,
wa_node LIKE t_node.
*Internal table and wa decl for Education table PA0022
DATA : it_0022 TYPE STANDARD TABLE OF pa0022 INITIAL SIZE 0,
wa_0022 TYPE pa0022.
*Internal table and wa decl for text table t517x
DATA : it_517x TYPE STANDARD TABLE OF t517x INITIAL SIZE 0,
wa_517x TYPE t517x.
*Internal table and wa decl for text table t517T
DATA : it_517t TYPE STANDARD TABLE OF t517t INITIAL SIZE 0,
wa_517t TYPE t517t.
*Internal table and wa decl for text table t519T
DATA : it_519t TYPE STANDARD TABLE OF t519t INITIAL SIZE 0,
wa_519t TYPE t519t.
*initialization event
INITIALIZATION.
*Start of selection event
START-OF-SELECTION.
*Select the data for tree
  PERFORM fetch_data.
*Build the hierarchy for tree
  PERFORM build_hierarchy.
*Build Tree for display
  PERFORM build_tree.
*&--------------------------------------------------------------*
*& Form fetch_data
*&--------------------------------------------------------------*
* text
*---------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*---------------------------------------------------------------*
FORM fetch_data .
*select data from PA0022
  SELECT * FROM pa0022 INTO CORRESPONDING FIELDS OF TABLE it_0022
  UP TO 50 ROWS.
*select data from T517x
  SELECT * FROM t517x INTO CORRESPONDING FIELDS OF TABLE it_517x
  WHERE langu = 'E'.
*select data from T517T
  SELECT * FROM t517t INTO CORRESPONDING FIELDS OF TABLE it_517t
  WHERE sprsl = 'E'.
*select data from T519t
  SELECT * FROM t519t INTO CORRESPONDING FIELDS OF TABLE it_519t
  WHERE sprsl = 'E'.
ENDFORM. " fetch_data
*&----------------------------------------------------------------*
*& Form build_hierarchy
*&----------------------------------------------------------------*
FORM build_hierarchy .
*Building the nodes and hierarchy for tree
  CLEAR : it_node[],
  wa_node.

  wa_node-type = 'T'.
  wa_node-name = 'Education'.
  wa_node-tlevel = '01'.
  wa_node-nlength = '15'.
  wa_node-color = '4'.
  wa_node-text = 'Infotype 0022'.
  wa_node-tlength ='20'.
  wa_node-tcolor = 3.
  APPEND wa_node TO it_node.
  CLEAR wa_node.
*Filling the values of internal table into tree
  LOOP AT it_0022 INTO wa_0022.
    wa_node-type = 'P'.
    wa_node-name = 'PERNR'.
    wa_node-tlevel = '02'.
    wa_node-nlength = '8'.
    wa_node-color = '1'.
    wa_node-text = wa_0022-pernr.
    wa_node-tlength ='20'.
    wa_node-tcolor = 4.
    APPEND wa_node TO it_node.
    CLEAR wa_node.
*Filling the text of T517t
    READ TABLE it_517t INTO wa_517t WITH KEY slart = wa_0022-slart.
    wa_node-type = 'P'.
    wa_node-name = wa_0022-slart.
    wa_node-tlevel = '03'.
    wa_node-nlength = '8'.
    wa_node-color = '1'.
    wa_node-text = wa_517t-stext.
    wa_node-tlength ='40'.
    wa_node-tcolor = 4.
    APPEND wa_node TO it_node.
    CLEAR wa_node.
*Filling the text of T519t
    READ TABLE it_519t INTO wa_519t WITH KEY slabs = wa_0022-slabs.
    wa_node-type = 'P'.
    wa_node-name = wa_0022-slabs.
    wa_node-tlevel = '04'.
    wa_node-nlength = '8'.
    wa_node-color = '2'.
    wa_node-text = wa_519t-stext.
    wa_node-tlength ='40'.
    wa_node-tcolor = 4.
    APPEND wa_node TO it_node.
    CLEAR wa_node.
*Filling the text of T517x
    READ TABLE it_517x INTO wa_517x WITH KEY faart = wa_0022-sltp1.
    wa_node-type = 'P'.
    wa_node-name = wa_0022-sltp1.
    wa_node-tlevel = '05'.
    wa_node-nlength = '8'.
    wa_node-color = '1'.
    wa_node-text = wa_517x-ftext.
    wa_node-tlength ='40'.
    wa_node-tcolor = 4.
    APPEND wa_node TO it_node.
    CLEAR wa_node.

    wa_node-type = 'P'.
    wa_node-tlevel = '06'.
    wa_node-nlength = '8'.
    wa_node-color = '1'.
    wa_node-text = '% Completed'.
    wa_node-tlength ='15'.
    wa_node-tcolor = 4.
    APPEND wa_node TO it_node.
    CLEAR wa_node.
  ENDLOOP.
ENDFORM. " build_hierarchy
*&---------------------------------------------------------------*
*& Form build_tree
*&---------------------------------------------------------------*

FORM build_tree .
*Fm for constructing the tree
  CALL FUNCTION 'RS_TREE_CONSTRUCT'
    TABLES
      nodetab = it_node.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*FM for displaying the tree
  CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
    EXPORTING
      callback_program     = sy-repid
      check_duplicate_name = '1'
      color_of_node        = '4'
      color_of_mark        = '3'
      color_of_link        = '1'
      color_of_match       = '5'
      node_length          = 30
      text_length          = 75
      use_control          = 'L'.
ENDFORM. " build_tree

Re: Problem with alv tree

Former Member — Thu, 12 Jan 2012 06:39:17 GMT

Found solution