Required info on tree structure.

Hi All,
Can any body help me in displaying data in a tree structure in PDA.
We have a requirement where the data comes with parent & child relationship, each child may or may not be a parent and the tree may drill more than 10 levels.
when user clicks on the node all the subsequent childs need to be displayed and on the second click the tree need to be collapsed to that node level.(this should be similar to some of the data in sap ex: functional locations)
IS there a component in MI / MAM application to acheive the same else what is the possible way for this.
Your help will be well appriciated.
Thanks & Regards,
Sai.K. K

Hi Sai,
well, the answer is unfortunally a NO in the first place.
MI is based on standard JSP and AWT functionality - up to Version 7.0 - and both runtime environments do not support that stuff on PDA.
If you run the APP on Lapop only, you could build something like that with Java Script in HTML or extend the functionality there with some Add ons externally available that can be filled by normal XML. But this is outside the usual MI scope, it depends on your creative level. WebDynpro on the other side supports you with a tree view as I remember, so this could be an option - but again, only on Laptop.
The question is: why do you not split the tree view to several pages? I have no idea about the amount of data you need to carry with you, just in the first place already. Usually tree view could mean a lot of data and this could end up in a long waiting time just to display the first page. Perhaps it is an option to show the actual level of the tree and if the user selects on item, then this item is added to the path (how has he got there) and the next level is displayed in the screen. Pretty much like the Windows Workplace, where every klick on a folder opens a new window with just the info of that window. Performance wise tis could perhaps be the better option.
Does this help?
Regards,
Oliver

Similar Messages

Display Tree structure using EVS or OVS

Hi All,
Here we have a requirement like display tree structure when I press F4. currently the sample application (using Object Value Selector or Extended Value Selector) is displaying the values in table, instead of table here we have to display it in tree.
If it is not possible using either OVS or EVS please tell me what is the other way to solve the problem.
Please give me any suggestion.
Regards
Suresh

Suresh,
You can emulate the behaviour by having a separate view for the tree structure.
1.) Create a new view and put your tree structure UI + related logic in that view.
2.) Create an input field and a linkToAction / button (with the text "Search".) aligned side by side.
3.) On click of the search button, show the view containing tree as pop-up.
You may develop upon this hint to meet your requirement.
~ Bala

Customizing tree structure in On Hand Quantity form

Hi,
I have a requirement to Modify tree structure in On hand quantity form
After clicking on find in Onhand form,
Data will appear and in Left hand size a tree structure will be there,
With organization as Top Node,if we click on organization sub inventories in that org will be displayed,
I need to restrict the Sub inventories appearing in the list,in mtl_secondary_inventories table an attribute is defined and i should restrict the sub inventories in the tree with attribute of sub inventories set to value of Yes.
Please guide me on the possibilities
Best Regards,
Mahi

I had to do something similar for the supply-demand screen.
I believe the screen enters data into a temp table (maybe MTL_ONHAND_QUANTITY_TEMP). Open the form ; find the temp table it uses and then write a before-insert trigger that will change the seq_num being inserted depending on the subinventory.
Hope this helps
Sandeep Gandhi
Omkar Technologies Inc.
Independent Techno-functional Consultant
513-325-9026

How to create tree structure in abap

hi,
   I am mohan. Please send the how to create the tree structure. how to insert the child nodes in root node. actually our requirement is we have list transaction codes. We are planning to put all transaction codes in tree level.
please tell me how to do the program in tree structure.

Hi Mohan,
Check the following program on ALV tree.
REPORT zalvtree.
CLASS cl_gui_column_tree DEFINITION LOAD.
CLASS cl_gui_cfw DEFINITION LOAD.
DATA: go_grid TYPE REF TO cl_gui_alv_grid.
DATA: ro_grid TYPE REF TO cl_gui_alv_grid.
DATA tree1 TYPE REF TO cl_gui_alv_tree.
DATA mr_toolbar TYPE REF TO cl_gui_toolbar.
DATA : gt_checked TYPE lvc_t_chit,
       gs_checked LIKE LINE OF gt_checked,
       l_part_key TYPE lvc_nkey,
       gt_node TYPE lvc_s_chit-nodekey.
INCLUDE <icon>.
INCLUDE zamit_alv_tree_toolbar_event.
INCLUDE zbcalv_tree_event_receiver.
*DATA: toolbar_event_receiver TYPE REF TO lcl_toolbar_event_receiver.
DATA: gt_sflight      TYPE sflight OCCURS 0,      "Output-Table
      gt_fieldcatalog TYPE lvc_t_fcat, "Fieldcatalog
      ok_code LIKE sy-ucomm.           "OK-Code
START-OF-SELECTION.
END-OF-SELECTION.
CALL SCREEN 100.
*&      Module PBO OUTPUT
      process before output
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
IF tree1 IS INITIAL.
    PERFORM init_tree.
else.
              CALL METHOD me->refresh_table_display
                EXCEPTIONS
                  PROGRAM_ERROR = 1
                  others        = 2
              IF sy-subrc <> 0.
               MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
              ENDIF.
ENDIF.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                             " PBO OUTPUT
*&      Module PAI INPUT
      process after input
MODULE pai INPUT.
CASE ok_code.
    WHEN 'EXIT' OR 'BACK' OR 'CANC'.
      PERFORM exit_program.
*mrk
    WHEN 'MOVE'.
      PERFORM check_selection.
    WHEN 'MBAK'.
      PERFORM another_selection.
    WHEN 'ALL'.
      PERFORM select_all.
    WHEN 'CLEAR'.
      PERFORM clear_all.
    WHEN 'DELETE'.
      PERFORM delete_all.
    WHEN 'EXPAND'.
      PERFORM expand_all.
    WHEN 'COLLAPSE'.
      PERFORM collapse_all.
    WHEN OTHERS.
      CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CLEAR ok_code.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                             " PAI INPUT
*&      Form build_fieldcatalog
      build fieldcatalog for structure sflight
FORM build_fieldcatalog.
get fieldcatalog
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'SFLIGHT'
    CHANGING
      ct_fieldcat      = gt_fieldcatalog.
change fieldcatalog
DATA: ls_fieldcatalog TYPE lvc_s_fcat.
LOOP AT gt_fieldcatalog INTO ls_fieldcatalog.
    CASE ls_fieldcatalog-fieldname.
      WHEN 'CARRID' OR 'CONNID' OR 'FLDATE'.
        ls_fieldcatalog-no_out = 'X'.
        ls_fieldcatalog-key    = ''.
      WHEN 'PRICE' OR 'SEATSOCC' OR 'SEATSMAX' OR 'PAYMENTSUM'.
        ls_fieldcatalog-do_sum = 'X'.
    ENDCASE.
    MODIFY gt_fieldcatalog FROM ls_fieldcatalog.
ENDLOOP.
ENDFORM.                               " build_fieldcatalog
*&      Form build_hierarchy_header
      build hierarchy-header-information
     -->P_L_HIERARCHY_HEADER strucxture for hierarchy-header
FORM build_hierarchy_header CHANGING
                               p_hierarchy_header TYPE treev_hhdr.
p_hierarchy_header-heading = 'Hierarchy Header'.          "#EC NOTEXT
p_hierarchy_header-tooltip =
                         'This is the Hierarchy Header !'. "#EC NOTEXT
p_hierarchy_header-width = 30.
p_hierarchy_header-width_pix = ''.
ENDFORM.                               " build_hierarchy_header
*&      Form exit_program
      free object and leave program
FORM exit_program.
CALL METHOD tree1->free.
LEAVE PROGRAM.
ENDFORM.                               " exit_program
*&      Form check_selection
      text
--> p1        text
<-- p2        text
FORM check_selection .
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
        l_custom_container2 TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE2'.
IF sy-batch IS INITIAL.
    CREATE OBJECT l_custom_container2
      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.
    IF sy-subrc <> 0.
      MESSAGE x208(00) WITH 'ERROR'.                        "#EC NOTEXT
    ENDIF.
ENDIF.
CREATE OBJECT go_grid
    EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
      i_parent          = l_custom_container2
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT =
   I_NAME            =
EXCEPTIONS
   ERROR_CNTL_CREATE = 1
   ERROR_CNTL_INIT   = 2
   ERROR_CNTL_LINK   = 3
   ERROR_DP_CREATE   = 4
   others            = 5
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
PERFORM load_data_into_grid.
*data: lt_nodes type LVC_T_NKEY,
     ls_nodes like line of lt_nodes,
     ls_checked like line of gt_checked.
*loop at gt_checked into ls_checked.
ls_nodes = ls_checked-nodekey.
append ls_nodes to lt_nodes.
*endloop.
*CALL METHOD tree1->unselect_nodes
EXPORTING
   it_node_key                  = lt_nodes
EXCEPTIONS
   CNTL_SYSTEM_ERROR            = 1
   DP_ERROR                     = 2
   MULTIPLE_NODE_SELECTION_ONLY = 3
   ERROR_IN_NODE_KEY_TABLE      = 4
   FAILED                       = 5
   others                       = 6
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
ENDFORM.                    " check_selection
*&      Form another_selection
      text
--> p1        text
<-- p2        text
FORM another_selection .
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
        l_custom_container2 TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE2'.
IF sy-batch IS INITIAL.
    CREATE OBJECT l_custom_container2
      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.
    IF sy-subrc <> 0.
      MESSAGE x208(00) WITH 'ERROR'.                        "#EC NOTEXT
    ENDIF.
ENDIF.
CREATE OBJECT ro_grid
    EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
      i_parent          = l_custom_container2
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT =
   I_NAME            =
EXCEPTIONS
   ERROR_CNTL_CREATE = 1
   ERROR_CNTL_INIT   = 2
   ERROR_CNTL_LINK   = 3
   ERROR_DP_CREATE   = 4
   others            = 5
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
PERFORM load_data_into_grid1.
DATA: lt_unsel TYPE lvc_t_nkey,
        ls_unsel LIKE LINE OF lt_unsel.
LOOP AT gt_checked INTO gs_checked.
    ls_unsel = gs_checked-nodekey.
    APPEND ls_unsel TO lt_unsel.
ENDLOOP.
CALL METHOD tree1->unselect_nodes
    EXPORTING
      it_node_key                  = lt_unsel
    EXCEPTIONS
      cntl_system_error            = 1
      dp_error                     = 2
      multiple_node_selection_only = 3
      error_in_node_key_table      = 4
      failed                       = 5
      OTHERS                       = 6.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CALL METHOD tree1->unselect_all
EXCEPTIONS
   CNTL_SYSTEM_ERROR = 1
   FAILED            = 2
   others            = 3
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
DATA: text TYPE lvc_value,
   item TYPE lvc_t_layi,
   node TYPE lvc_s_layn,
   inode TYPE lvc_nkey.
FIELD-SYMBOLS: <wa> TYPE ANY.
DATA: l_dref_wa LIKE LINE OF gt_sflight.
ASSIGN l_dref_wa TO <wa>.
READ TABLE gt_checked INTO gs_checked WITH KEY nodekey = 3.
inode = gs_checked-nodekey.
CALL METHOD tree1->get_outtab_line
    EXPORTING
      i_node_key     = inode
    IMPORTING
      e_outtab_line = <wa>
      e_node_text    = text
      et_item_layout = item
      es_node_layout = node
    EXCEPTIONS
      node_not_found = 1
      OTHERS         = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA: lt_layout TYPE lvc_t_laci,
        layout LIKE LINE OF lt_layout.
layout-chosen = 'X'.
layout-fieldname = tree1->c_hierarchy_column_name.
ls_item_layout-chosen = 'X'.           "To give default checkbox value checked
layout-class   = cl_gui_column_tree=>item_class_checkbox.
layout-editable = 'X'.
LAYOUT-U_CHOSEN = 'X'.
APPEND layout TO lt_layout.
CALL METHOD tree1->change_node
    EXPORTING
      i_node_key     = inode
      i_outtab_line = <wa>
   IS_NODE_LAYOUT =
      it_item_layout = lt_layout
   I_NODE_TEXT    =
   I_U_NODE_TEXT =
    EXCEPTIONS
      node_not_found = 1
      OTHERS         = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CALL METHOD tree1->change_item
EXPORTING
   i_node_key     = inode
   i_fieldname    = gs_checked-FIELDNAME
   i_data         = <wa>
   I_U_DATA       = ''
   IS_ITEM_LAYOUT = layout
EXCEPTIONS
   NODE_NOT_FOUND = 1
   others         = 2
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
*loop at lt_unsel into ls_unsel.
*CALL METHOD tree1->update_checked_items
EXPORTING
   i_node_key    = ls_unsel
   i_fieldname   = ''
   i_checked     = ''
EXCEPTIONS
   PROGRAM_ERROR = 1
   others        = 2
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
*endif.
ENDFORM.                    " another_selection
*&      Form select_all
      text
--> p1        text
<-- p2        text
FORM select_all .
CONSTANTS: c_x(1) TYPE c VALUE 'X'.
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
clear l_part_key.
create hierarchy
PERFORM create_hierarchy USING c_x.
CALL METHOD tree1->expand_node
    EXPORTING
      i_node_key          = gt_node
   I_LEVEL_COUNT       = 1
      i_expand_subtree    = 'X'
    EXCEPTIONS
      failed              = 1
      illegal_level_count = 2
      cntl_system_error   = 3
      node_not_found      = 4
      cannot_expand_leaf = 5
      OTHERS              = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
add own functioncodes to the toolbar
perform change_toolbar.
register events
perform register_events.
adjust column_width
call method tree1->COLUMN_OPTIMIZE.
ENDFORM.                    " select_all
*&      Form clear_all
      text
--> p1        text
<-- p2        text
FORM clear_all .
CONSTANTS: c_x(1) TYPE c VALUE space.
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
create hierarchy
PERFORM create_hierarchy USING c_x.
CALL METHOD tree1->expand_node
    EXPORTING
      i_node_key          = gt_node
   I_LEVEL_COUNT       = 1
      i_expand_subtree    = 'X'
    EXCEPTIONS
      failed              = 1
      illegal_level_count = 2
      cntl_system_error   = 3
      node_not_found      = 4
      cannot_expand_leaf = 5
      OTHERS              = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " clear_all
*&      Form delete_all
      text
--> p1        text
<-- p2        text
FORM delete_all .
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " delete_all
*&      Form expand_all
      text
--> p1        text
<-- p2        text
FORM expand_all .
CALL METHOD tree1->expand_node
    EXPORTING
      i_node_key          = gt_node
   I_LEVEL_COUNT       = 1
      i_expand_subtree    = 'X'
    EXCEPTIONS
      failed              = 1
      illegal_level_count = 2
      cntl_system_error   = 3
      node_not_found      = 4
      cannot_expand_leaf = 5
      OTHERS              = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " expand_all
*&      Form collapse_all
      text
--> p1        text
<-- p2        text
FORM collapse_all .
CALL METHOD tree1->collapse_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " collapse_all
*&      Form load_data_into_grid
      text
--> p1        text
<-- p2        text
FORM load_data_into_grid .
DATA:
For parameter IS_VARIANT
      l_layout TYPE disvariant,
gs_layout TYPE lvc_s_layo.
DATA gi_sflight TYPE TABLE OF zsflight.
Load data into the grid and display them
l_layout-report = sy-repid.
gs_layout-grid_title = 'Amits Test Program'.
gs_layout-sel_mode = 'A'.
SELECT *
   FROM zsflight
   INTO TABLE gi_sflight.
CALL METHOD go_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SFLIGHT'
      is_layout        = gs_layout
      is_variant       = l_layout
      i_save           = 'A'
    CHANGING
      it_outtab        = gi_sflight.
ENDFORM.                    " load_data_into_grid
*&      Form load_data_into_grid
      text
--> p1        text
<-- p2        text
FORM load_data_into_grid1.
DATA:
For parameter IS_VARIANT
      l_layout TYPE disvariant,
gs_layout TYPE lvc_s_layo.
DATA gi_sflight TYPE TABLE OF zapempl.
Load data into the grid and display them
l_layout-report = sy-repid.
gs_layout-grid_title = 'Rams Test Program'.
gs_layout-sel_mode = 'A'.
SELECT *
   FROM zapempl
   INTO TABLE gi_sflight.
CALL METHOD ro_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZAPEMPL'
      is_layout        = gs_layout
      is_variant       = l_layout
      i_save           = 'A'
    CHANGING
      it_outtab        = gi_sflight.
ENDFORM.                    " load_data_into_grid1
*&      Form build_header
      build table for html_header
--> p1        text
<-- p2        text
FORM build_comment USING
      pt_list_commentary TYPE slis_t_listheader
      p_logo             TYPE sdydo_value.
DATA: ls_line TYPE slis_listheader.
LIST HEADING LINE: TYPE H
CLEAR ls_line.
ls_line-typ = 'H'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
ls_line-info = 'ALV-tree-demo: flight-overview'.          "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
STATUS LINE: TYPE S
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = 'valid until'.                             "#EC NOTEXT
ls_line-info = 'January 29 1999'.                         "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
ls_line-key = 'time'.
ls_line-info = '2.00 pm'.                                 "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
ACTION LINE: TYPE A
CLEAR ls_line.
ls_line-typ = 'A'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
ls_line-info = 'actual data'.                             "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
p_logo = 'ENJOYSAP_LOGO'.
ENDFORM.                    "build_comment
*&      Form create_hierarchy
      text
--> p1        text
<-- p2        text
FORM create_hierarchy USING p_x.
DATA: ls_sflight TYPE sflight,
        lt_sflight TYPE sflight OCCURS 0.
get data
SELECT * FROM sflight INTO TABLE lt_sflight
                        UP TO 200 ROWS .
SORT lt_sflight BY carrid connid fldate.
add data to tree
DATA: l_carrid_key TYPE lvc_nkey,
        l_connid_key TYPE lvc_nkey,
        l_last_key TYPE lvc_nkey.
       l_part_key TYPE lvc_nkey
PERFORM add_carrid_line USING    ls_sflight
                          CHANGING l_part_key.
gt_node = l_part_key.
LOOP AT lt_sflight INTO ls_sflight.
    ON CHANGE OF ls_sflight-carrid.
      PERFORM add_carrid_line USING    ls_sflight
                                       l_part_key
                              CHANGING l_carrid_key.
      PERFORM add_connid_line USING    ls_sflight
                                       l_carrid_key
                              CHANGING l_connid_key.
      PERFORM add_complete_line USING ls_sflight
                                     l_connid_key
                                     p_x
                            CHANGING l_last_key.
      CONTINUE.
    ENDON.
    ON CHANGE OF ls_sflight-connid.
      PERFORM add_connid_line USING    ls_sflight
                                       l_carrid_key
                              CHANGING l_connid_key.
      PERFORM add_complete_line USING ls_sflight
                                     l_connid_key
                                     p_x
                            CHANGING l_last_key.
      CONTINUE.
    ENDON.
    PERFORM add_complete_line USING ls_sflight
                                     l_connid_key
                                     p_x
                            CHANGING l_last_key.
ENDLOOP.
calculate totals
CALL METHOD tree1->update_calculations.
this method must be called to send the data to the frontend
CALL METHOD tree1->frontend_update.
ENDFORM.                               " create_hierarchy
*&      Form add_carrid_line
      add hierarchy-level 1 to tree
     -->P_LS_SFLIGHT sflight
     -->P_RELEATKEY   relatkey
    <-->p_node_key    new node-key
FORM add_carrid_line USING     ps_sflight TYPE sflight
                               p_relat_key TYPE lvc_nkey
                     CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
        ls_sflight TYPE sflight.
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_sflight-carrid.
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_sflight
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = p_node_key.
ENDFORM.                               " add_carrid_line
*&      Form add_connid_line
      add hierarchy-level 2 to tree
     -->P_LS_SFLIGHT sflight
     -->P_RELEATKEY   relatkey
    <-->p_node_key    new node-key
FORM add_connid_line USING     ps_sflight TYPE sflight
                               p_relat_key TYPE lvc_nkey
                     CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
        ls_sflight TYPE sflight.
set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@3Y@'.
ls_item_layout-style   =
                        cl_gui_column_tree=>style_intensified.
ls_item_layout-fieldname = tree1->c_hierarchy_column_name.
APPEND ls_item_layout TO lt_item_layout.
add node
l_node_text = ps_sflight-connid.
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_sflight
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = p_node_key.
ENDFORM.                               " add_connid_line
*&      Form add_cmplete_line
      add hierarchy-level 3 to tree
     -->P_LS_SFLIGHT sflight
     -->P_RELEATKEY   relatkey
    <-->p_node_key    new node-key
FORM add_complete_line USING   ps_sflight TYPE sflight
                               p_relat_key TYPE lvc_nkey
                               p_x
                     CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value.
set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-fieldname = tree1->c_hierarchy_column_name.
ls_item_layout-chosen = p_x.           "To give default checkbox value checked
ls_item_layout-class   = cl_gui_column_tree=>item_class_checkbox.
ls_item_layout-editable = 'X'.
APPEND ls_item_layout TO lt_item_layout.
l_node_text = ps_sflight-fldate.
CALL METHOD tree1->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      is_outtab_line   = ps_sflight
      i_node_text      = l_node_text
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = p_node_key.
ENDFORM.                               " add_complete_line
*&      Form register_events
      text
--> p1        text
<-- p2        text
FORM register_events.
define the events which will be passed to the backend
DATA: lt_events TYPE cntl_simple_events,
        l_event TYPE cntl_simple_event.
define the events which will be passed to the backend
l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_checkbox_change.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_header_click.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_item_keypress.
APPEND l_event TO lt_events.
CALL METHOD tree1->set_registered_events
    EXPORTING
      events                    = lt_events
    EXCEPTIONS
      cntl_error                = 1
      cntl_system_error         = 2
      illegal_event_combination = 3.
IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'.                          "#EC NOTEXT
ENDIF.
set Handler
DATA: l_event_receiver TYPE REF TO lcl_tree_event_receiver.
CREATE OBJECT l_event_receiver.
SET HANDLER l_event_receiver->handle_node_ctmenu_request
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_node_ctmenu_selected
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_item_ctmenu_request
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_item_ctmenu_selected
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_checkbox_change FOR tree1.
ENDFORM.                               " register_events
*&      Form change_toolbar
      text
--> p1        text
<-- p2        text
FORM change_toolbar.
DATA: toolbar_event_receiver TYPE REF TO lcl_toolbar_event_receiver.
get toolbar control
CALL METHOD tree1->get_toolbar_object
    IMPORTING
      er_toolbar = mr_toolbar.
CHECK NOT mr_toolbar IS INITIAL.
add seperator to toolbar
CALL METHOD mr_toolbar->add_button
    EXPORTING
      fcode     = ''
      icon      = ''
      butn_type = cntb_btype_sep
      text      = ''
      quickinfo = 'This is a Seperator'.                    "#EC NOTEXT
add Standard Button to toolbar (for Delete Subtree)
CALL METHOD mr_toolbar->add_button
    EXPORTING
      fcode     = 'DELETE'
      icon      = '@18@'
      butn_type = cntb_btype_button
      text      = ''
      quickinfo = 'Delete subtree'.                         "#EC NOTEXT
add Dropdown Button to toolbar (for Insert Line)
CALL METHOD mr_toolbar->add_button
    EXPORTING
      fcode     = 'INSERT_LC'
      icon      = '@17@'
      butn_type = cntb_btype_dropdown
      text      = ''
      quickinfo = 'Insert Line'.                            "#EC NOTEXT
set event-handler for toolbar-control
CREATE OBJECT toolbar_event_receiver.
SET HANDLER toolbar_event_receiver->on_function_selected
                                                      FOR mr_toolbar.
SET HANDLER toolbar_event_receiver->on_toolbar_dropdown
                                                      FOR mr_toolbar.
ENDFORM.                               " change_toolbar
*&      Form init_tree
      text
--> p1        text
<-- p2        text
FORM init_tree.
create fieldcatalog for structure sflight
PERFORM build_fieldcatalog.
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
        l_custom_container TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE1'.
IF sy-batch IS INITIAL.
    CREATE OBJECT l_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.
    IF sy-subrc <> 0.
      MESSAGE x208(00) WITH 'ERROR'.                        "#EC NOTEXT
    ENDIF.
ENDIF.
create tree control
CREATE OBJECT tree1
    EXPORTING
        parent              = l_custom_container
        node_selection_mode = cl_gui_column_tree=>node_sel_mode_multiple "node_sel_mode_single
        item_selection      = 'X'
        no_html_header      = ''
        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.
IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'.                          "#EC NOTEXT
ENDIF.
create Hierarchy-header
DATA l_hierarchy_header TYPE treev_hhdr.
PERFORM build_hierarchy_header CHANGING l_hierarchy_header.
create info-table for html-header
DATA: lt_list_commentary TYPE slis_t_listheader,
        l_logo             TYPE sdydo_value.
PERFORM build_comment USING
                 lt_list_commentary
                 l_logo.
repid for saving variants
DATA: ls_variant TYPE disvariant.
ls_variant-report = sy-repid.
create emty tree-control
CALL METHOD tree1->set_table_for_first_display
    EXPORTING
      is_hierarchy_header = l_hierarchy_header
      it_list_commentary = lt_list_commentary
      i_logo              = l_logo
      i_background_id     = 'ALV_BACKGROUND'
      i_save              = 'A'
      is_variant          = ls_variant
    CHANGING
      it_outtab           = gt_sflight "table must be emty !!
      it_fieldcatalog     = gt_fieldcatalog.
CONSTANTS: c_s(1) TYPE c VALUE space.
create hierarchy
PERFORM create_hierarchy USING c_s.
add own functioncodes to the toolbar
PERFORM change_toolbar.
register events
PERFORM register_events.
adjust column_width
call method tree1->COLUMN_OPTIMIZE.
ENDFORM.                    " init_tree
Award points if found useful.
Regards
Indrajit

Output like Tree structure

Hi
I am having Data in one internal table
BEGIN OF ty_box,
       vbeln LIKE vbak-vbeln, "Sales Order Document Number
       exidv LIKE vekp-exidv, "External Handling Unit Identification
       vegr4 LIKE vekp-vegr4, "Integration required if the value is INTR
       matnr LIKE lips-matnr, "Delivery Item-Material Number
       arktx LIKE lips-arktx, "Delivery Item-Short text for Material
END OF ty_box.
I want to Display output like tree structure
integration required?
() Sales order
() HU -
checkbox
Mat A       Description of A
Mat B       Description of B
Please give sample program for this type. '-' indicate sapce
Message was edited by:
        sudhakara reddy
Message was edited by:
        sudhakara reddy

hi,
use ALV TREE
check these links.
http://www.erpgenie.com/sap/abap/SalesOrderFlow.htm
http://www.sapdevelopment.co.uk/reporting/alv/alvtree/alvtree_basic.htm
Check these programs.
BCALV_TREE_01 ALV tree control: build up the hierarchy tree
BCALV_TREE_02 ALV tree control: event handling
BCALV_TREE_03 ALV tree control: use an own context menu
BCALV_TREE_04 ALV tree control: add a button to the toolbar
BCALV_TREE_05 ALV tree control: add a menu to the toolbar
BCALV_TREE_06 ALV tree control: Icon column and icon for nodes/items
BCALV_TREE_DEMO Demo for ALV tree control
BCALV_TREE_DND ALV tree control: Drag & Drop within a hierarchy tree
BCALV_TREE_DND_MULTIPLE ALV tree control: Drag & Drop within a hierarchy tree
RSDEMO_DRAG_DROP_TREE_MULTI
BCALV_TREE_EVENT_RECEIVER Include BCALV_TREE_EVENT_RECEIVER
BCALV_TREE_EVENT_RECEIVER01
BCALV_TREE_ITEMLAYOUT ALV Tree: Change Item Layouts at Runtime
BCALV_TREE_MOVE_NODE_TEST Demo for ALV tree control
BCALV_TREE_SIMPLE_DEMO Program BCALV_TREE_SIMPLE_DEMO
BCALV_TREE_VERIFY Verifier for ALV Tree and Simple ALV Tree
Also please check the transaction DWDM This will give info also on trees.
Check the links -
drag drop required for alv column!
drag and drop in a tree
Drag&Drop within the Tree
Drag&Drop within a tree
Drag and drop in ALV tree

How to create a tree structure with check boxs using Windows Activex Control?

Hi,
I am very new to LabVIEW. I am trying to create a tree structure with Check Boxes like the below. It would be great if someone would show me a right direction to go forward.
The aim is to select the item and one by one i have to get the Path and give as an input to by application VI.
Thanks and Best Regards
Prathap

Hi Andy,
Sorry i pasted the Picture.. Pls find the attached picture.
Following are my requirement:
1) I need to populate a tree given a root directory, listing all the Folders and file of cetain pattern(*.pjt... ther will be only one *.pjt in every subfolders).
2) I need a check box for every *.pjt to select the its path. The list of pjt files selected are used for my automation test suit.
Pls let me know if you need more info.
Best Regards
Prathap
Attachments:
tree.JPG ‏73 KB

How to create Tree structure in Visual Composer

Hi All,
I need to develop tree structure in my VC application. Can any one of you please suggest me the steps to do it.Its very urgent please can any one help me out in this.
Regards,
Lakshmi

Hi Nutan,
if you want to solve it with webdynpro it depends on your skills in java and abap. There are books available to start with webdynpro and there are examples for building tree structures with Webdynpro.
[Java Webdynpro|http://www.sappress.com/product.cfm?account=&product=H983]
[ABAP Webdynpro|http://www.sappress.com/product.cfm?account=&product=H1916]
If you want to do it in VC you have to write e.g. an ABAP rfc function module, which returns you the tree with the information about childnode, parentnode and so on, so that you can display it in the table. But if the users click on sort then the tree is "destroyed". You can also display only a few levels of your tree and when you select a certain node a drill down is done by calling a rfc which returns the child nodes of the corresponding node.
But I think the solution with VC is not the best. Use webdynpro for this requirements.
Best Regards,
Marcel

How to get Tree structure in JSP page?

Hi,
I would like get data from the database and display the data in tree structure with the check boxes at each nodes on a jsp page with out using any third party tools. how can i do that? Do i require any new tags to fulfill this requirement?
can any one help me out by sending any example code?
thanks in advance.
Regards,
Reddy

Once you have the data in a list or something, can't you just use <c:forEach> and then output standard nested <ul> and <li> tags to give the tree structure.
<html>
     <style>
          li
               list-style-type:none;
     </style>
     <body>
          <form>
               <ul>
                    <li>
                         <input type="checkbox">Check 1</input>
                         <ul>
                              <li>
                                   <input type="checkbox">Check 1A</input>
                              </li>
                              <li>
                                   <input type="checkbox">Check 1B</input>
                              </li>
                         </ul>
                    </li>
                    <li>
                         <input type="checkbox">Check 2</input>
                         <ul>
                              <li>
                                   <input type="checkbox">Check 2A</input>
                              </li>
                         </ul>
                    </li>
                    <li>
                         <input type="checkbox">Check 3</input>
                    </li>
               </ul>
          </form>
     </body>
</html>

How to get tree structure navigation in module pool program

please send me a sample code for getting tree structure navigation in a screen in module pool program.
ex.
masters
items

do a chain and endchain on the fields.Then insert the fields in to the required database.

How to create a PortalSite map in a tree structure

Hi,
We are trying to reuse SAP Portal EP 7.3 standard functionalities related to create a Portal Site Map.
I've seen the procedure to create a Workset map iview (http://help.sap.com/saphelp_nw73/helpdata/en/49/32a7a9e8c45aaae10000000a42189d/frameset.htm), but we are interested in generate this map contained in a tree structure, because currently the SAP EP 7.1 brings the menu and option format.
I would like to know if this is possible using the standard functionalities or it is required to develop any application?
Please if you could help me it would be really useful.
Thanks in advance,

Thanks for your help Srinivas,
I was trying to know if it was possible to assign a style or layout to the site map iview created using the standard map iview delivered by SAP EP 7.3. I was looking for documentation but it is not enough at all and in my project we are still working with SAP EP 7.0
Please, if anyone could know about the map site iview standard and the available styles or maybe it is not changeable.
In that case, the only way it would be a development to get the tree structure.
Thanks!!!!

ATP Tree Structure is not getting created automatically after Sales Order is saved

In one one of our scenario, when we add material to Sales Order and save with Requirement Type(under Procurrement Tab of Sales Order) , in APO there is no planned order or only planned order which is dynamically pegged created because the ATP Tree in APO is not being converted. There is no pegging relevant item create(e.g. Planned Order). When we are checking the persistent ATP Trees in APO (/SAPAPO/ATREE_DSP - ATP-Trees) we can see that they are not converted automatically. They are still there. If we do it manually via transaction (/SAPAPO/RRP_ATP2PPDS - Conversion ATP Tree Structures -> Production Planning) it works. Afterwards the Planned Order is available and fixed pegged.
Why is APO not converting the ATP tree automatically ?
I also checked the scheduling horizon for conversion of the ATP Tree and it is correct: Is there any relation with Check Mode setting under ATP tab in Material Master?

Hi Prasad ,
This enables you to debug the ATP tree . If you have created an entry here with your user name then it will not let ATP tree get converted into PP/DS orders automatically .
It's very surprising because all seems fine . Just cross check all the settings once with below .
The conversion time depends on the following horizons and dates:
· PP/DS Horizon
· Scheduling horizon for the conversion of ATP tree structures
· Requirements dates in the ATP tree structure
PP/DS immediately converts the ATP tree structure when the sales order is saved
· If the earliest requirements date for components is within the scheduling horizon or
· If the latest requirements date for finished products is within the PP/DS horizon
If none of these conditions are fulfilled when saving the sales order, the system saves the ATP tree structure in SAP APO. In this case you can only convert the ATP tree structure online or in the background when one of the conditions given above is fulfilled. Here, there is an offset for the horizons with which you can achieve an earlier conversion.
You maintain the scheduling horizon for the conversion of ATP tree structures in Customizing for Production Planning and Detailed Scheduling under Maintain Global Parameters and Defaults. You maintain a location product specific PP/DS horizon in the location product master. If no location product specific PP/DS horizon exists, the system uses the PP/DS horizon from the planning version. You maintain these in Model and Planning Version Management.
Love Singh

Bookmark tree structure using Microsoft word 2007 not creating properly

I have a word document file in MS office 2007. When i am converting the word document to a PDF file using the HEADING option , the bookmarks tree structure in the PDF file is not created properly. Means that the between content of a topic is also read
as a bookmark heading while conversion. Only the heading of a topic should be read as a bookmark and the sub heading as a sub-bookmark but the content should not come in the tree structure of bookmarks in a PDF file..
For Example:- if MICROSOFT is the heading of any xyz.doc then it should be the parent bookmark. . but in my case , MICROSOFT is coming as a bookmark but the content inside this is also created as a bookmark..
So my question is that what is the internal structure of the of the MS word 2007 to convert a doc to a PDF file???
Because it is not creating the bookmarks tree structure properly...and taking the content randomly from the middle of a topic and adding it in the bookmark tree structure...(which should not happen). The font throughout the doc is the same and aligned properly..so
why it is randomly taking the between text as a bookmark...???
what is the root cause of this bug..?? how can this problem be solved..?? is there any sort of change have to be done in my word doc.?
i need an urgent help regarding this...
NOTE:- I am using MS office 2007.

I tried this but didnt work for mr. Can you help? How did you PDFed??
It works for me in Word 2010 (or later) using Save As PDF. It did not work in Word 2007 using the Adobe Acrobat PDF printer nor using Word 2007's save as pdf utility. (The hyperlink showed up but was not active.) It did work using the Acrobat tab in Word
2007 (this requires Adobe Acrobat).
I did this by:
first creating the text box with the hyperlink in the body of the document and moving it into the footer area (but still not in the footer itself).
Then I used the Format tab of Text Box Tools and the Postion button (More Layout Options).
I gave it an absolute vertical position relative to the page.
Then I cut the text box, went into the footer, and pasted it there.
It might have worked to just create the text box in the footer itself.
I personally prefer it that the header and footer are not part of the active page when I am typing. This hyperlink is not clickable in Word without going into the header/footer view and I'm fine with that. The QAT workaround is just fine.
Charles Kenyon Madison, WI

Display Tree Structure in a List / Select Box

I need info on the following
1.display tree structure inside a select/combo/list box.
2.Select a node element from the above tree structure.
Thanks in advance

Have you managed to do this?
Faaiez

Tree Structure - Is it possible to Open a Pop up/external window on select

Is it possible to Open a Pop up/external window on select of any Leafe node or a parent node?
My requirement is to create a webdynpro screen which depicts the transaction :
ooqa in sap R/3.
Is it possible to do that in tree structure?
Thanks & Regards,
Sirisha.RS

Hi Ayyaparaj,
Thanks for ur reply.
but i cant use a table here. I just need a tree structure..
I guess Its posible by writing a code for a external window open in the onselect method itself.
Thanks & regards,
Sirisha.Rs

JPA - tree structure mapping    with toplink essential

I'll try to explain it correctly.
I store a tree structure in a database. I have just two tables:
Node which contain a id , and some other info.
Tree which contain a parent and child
parent and child are ids from node.
Since each node can have several childs, and each node can have several parents, I had try a @ManyToMany relationship without sucess.
Here one small example of my tries :
@Entity
@Table(name="node")
public class Node {
@Id private int id;
private List<Node> childs;
private List<Node> parents;
@ManyToMany
@JoinTable(name="Tree")
public List<Node> getParents(){
     return parents;
@ManyToMany(mappedBy="parents")
public List<Node> getChilds(){
     return childs;
}But I always got several error.
Anyone have a working example that look like mine ?
Even after googling for several hours I still find nothing.
If it helps, I use toplink essential for my persistance layer.

Please see http://www.oracle.com/technetwork/middleware/toplink/index-085257.html for information on TopLink JPA support.
So as of TopLink 11, you will need to use EclipseLink's org.eclipse.persistence.jpa.PersistenceProvider as the provider class for JPA support, which is in the eclipselink.jar.
Best Regards,
Chris

Required info on tree structure.

Similar Messages

Maybe you are looking for