How to create Tree Structure for given data?

Hi,
I have to create a tree structure of Folders and the contents in the Folder.
I have a XML, it contains data for the tree structure to display. How can I create a tree structure which would look like below
Parent
   Child
     Supporting Views
        Raw eInfotree Table Views
        Background Calculations
        QC Data Views
     Calculation Views
     Unit Operation Views
        Cell Culture Views
        Purification Views
        MFR Views
     Personal Views
All the nodes should have folder Icon.
Please find the XML as
<?xml version="1.0" encoding="UTF-8"?><Rowsets DateCreated="2007-05-02T07:37:37" EndDate="2007-05-02T16:59:53" StartDate="2007-05-02T16:59:53" Version="11.5.3"><Rowset><Columns><Column Description="" MaxRange="1" MinRange="0" Name="TK" SQLDataType="4" SourceColumn="TK"/><Column Description="" MaxRange="1" MinRange="0" Name="NAME" SQLDataType="1" SourceColumn="NAME"/><Column Description="" MaxRange="1" MinRange="0" Name="TYPE" SQLDataType="1" SourceColumn="TYPE"/><Column Description="" MaxRange="1" MinRange="0" Name="PK" SQLDataType="4" SourceColumn="PK"/></Columns>
<Row><TK>1</TK><NAME>Parent</NAME><TYPE>F</TYPE><PK>0</PK></Row>
<Row><TK>2</TK><NAME>Child</NAME><TYPE>F</TYPE><PK>1</PK></Row>
<Row><TK>3</TK><NAME>Supporting Views</NAME><TYPE>F</TYPE><PK>2</PK></Row>
<Row><TK>4</TK><NAME>Raw eInfotree Table Views</NAME><TYPE>F</TYPE><PK>3</PK></Row>
<Row><TK>5</TK><NAME>Background Calculations</NAME><TYPE>F</TYPE><PK>3</PK></Row>
<Row><TK>6</TK><NAME>QC Data Views</NAME><TYPE>F</TYPE><PK>3</PK></Row>
<Row><TK>7</TK><NAME>Calculation Views</NAME><TYPE>F</TYPE><PK>2</PK></Row>
<Row><TK>8</TK><NAME>Unit Operation Views</NAME><TYPE>F</TYPE><PK>2</PK></Row>
<Row><TK>9</TK><NAME>Cell Culture Views</NAME><TYPE>F</TYPE><PK>8</PK></Row>
<Row><TK>10</TK><NAME>Purification Views</NAME><TYPE>F</TYPE><PK>8</PK></Row>
<Row><TK>11</TK><NAME>MFR Views</NAME><TYPE>F</TYPE><PK>8</PK></Row>
<Row><TK>12</TK><NAME>Personal Views</NAME><TYPE>F</TYPE><PK>2</PK></Row>
</Rowset>
</Rowsets>

Vishal,
If you structure your data with two columns, the first being the Node name and the second being the Parent node name (see your information below), the iBrowser applet will make a nice data driven tree with all of the SelectionEvent or navigational capabilities you want.
<?xml version="1.0" encoding="UTF-8"?>
<Rowsets DateCreated="2007-05-02T07:37:37" EndDate="2007-05-02T16:59:53" StartDate="2007-05-02T16:59:53" Version="11.5.3">
<Rowset><Columns><Column Description="" MaxRange="1" MinRange="0" Name="NAME" SQLDataType="1" SourceColumn="NAME"/><Column Description="" MaxRange="1" MinRange="0" Name="PARENT" SQLDataType="1" SourceColumn="PARENT"/></Columns>
<Row><NAME>Parent</NAME><PARENT></PARENT></Row>
<Row><NAME>Child</NAME><PARENT>Parent</PARENT></Row>
<Row><NAME>Supporting Views</NAME><PARENT>Child</PARENT></Row>
<Row><NAME>Calculation Views</NAME><PARENT>Child</PARENT></Row>
<Row><NAME>Unit Operation Views</NAME><PARENT>Child</PARENT></Row>
<Row><NAME>Personal Views</NAME><PARENT>Child</PARENT></Row>
<Row><NAME>Raw eInfotree Table Views</NAME><PARENT>Supporting Views</PARENT></Row>
<Row><NAME>Background Calculations</NAME><PARENT>Supporting Views</PARENT></Row>
<Row><NAME>QC Data Views</NAME><PARENT>Supporting Views</PARENT></Row>
<Row><NAME>Cell Culture Views</NAME><PARENT>Unit Operation Views</PARENT></Row>
<Row><NAME>Purification Views</NAME><PARENT>Unit Operation Views</PARENT></Row>
<Row><NAME>MFR Views</NAME><PARENT>Unit Operation Views</PARENT></Row>
</Rowset>
</Rowsets>
Regards,
Jeremy

Similar Messages

How to create new structure for SOP?

How to create new structure for SOP? and transfer data for long term planning?

hi dear
For SOP there are two types
1. Standard SOP : this the standard SOP configured by SAP consider the Level by Level planning and planning done for product group .
2. Flexible planning SOP: this option is given, so that Rough planning/SOP planning can be done as per the client requirement.e.g planning structure can be sales orgn., distribution channel, division, plant, material
For configuring the flexible planning SOP follow steps
1. Define info structure in IMG
where u define the characteristic and Key field
2. Set parameters for info structures and key figures
Sales & Operations Planning >Master Data>Set parameters for info structures and key figures
where u define Planning method
Consistent planning
Level-by-level planning
Delta planning
and aggregation type
1. Average calculated
2. Total created
3. No aggregation
3. create Planning type with reference to info structure
Regards
Suresh

How to create process chains for Master Data?

I need information on " how we can create process Chains for Master Data"

Hi Sachin,
http://help.sap.com/saphelp_bw33/helpdata/en/ad/6b023b6069d22ee10000000a11402f/frameset.htm
and also Modelling aspects in process chains (ppt)
https://websmp109.sap-ag.de/~sapidb/011000358700002337702003
Hope this helps.
Srini

How to create a workflow for personnel data?

Dear All,
              I want to create a workflow for entering personnel data and submitting it to the immediate senior.I had created a workflow for leave approval.Can anyone tell me steps for creating the workflow for personnel data.
                           Pratighya Jain
Message was edited by: Pratighya jain
        Pratighya Jain

Check this documentaion on SAP Business Workflow, which is built in HR:
http://help.sap.com/saphelp_46c/helpdata/en/a1/172437130e0d09e10000009b38f839/frameset.htm
Things that can be done are eg:
Application forms and everything for handling them
Absence approvals, travel requests, expenses
Time
Pls don't forget to reward points and close the question if you find the answers useful.

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

How to get organisation unit for given date.

Hi Everyone,
I have created a report to display all the hired and left employees
for the given date. I have to display department wise.
      CALL FUNCTION 'RH_DIR_ORG_STRUC_GET'
        EXPORTING
         ACT_ORGUNIT           = S1_ORGEH-LOW
         ACT_PLVAR             = '01'
         ACT_DATE              = SO_DATE-HIGH
         SORT_FLAG             = 'X'
         ADD_FLAG_PDATA        = 'X'
       TABLES
         ORG_UNITS             = IT_ORG_UNITS.
This function module will bring all the active org unit existing
in our system. If an organisation unit is delimited.
This function module is not getting the delimited org unit.
How to get that org unit.
Plz its vry urgent,
thanks in advance,
regards,
stanley

did you try RH_STRUC_GET?
Regards
Raja
close your previous threads
Re: ALV in browser

How to create Document Structure for existing project in Solution Manager

Hi gurus
We have all the project document saved using Solution manager . we have ended with Phase1.
We are starting Phase2 and they are asking me to creat different folder as Phase to in existing project and store all the Documents
Can any one please tell me how to create New folder and store the documents in Existing project
Point will given for helpfull Answer
Thanks
Bhaskar

Hi Bhaskar,
Assuming you have full authorisations, the procedure is simple.
Please go SOLAR_PROJECT_ADMIN transaction.
From the menu please select Project -> Copy
In the ensuing screen, key in your desired project name, scroll through the other checkboxes to see if you are happy with the default choices; if not, take corrective actions.
In the last set of radi buttons "Desired behaviour at later version comparison", the default choice (2nd entry there - Adjust target project to the original of the source project) is fine.
From your scenario, since you do not have a Template -> Implementation Project functionality and instead are copying from one Implementation to the other, this radio button is of little consequence.
Execute the process.
In the window that comes up, please choose Local Object, assuming that you do not want to capture the whole contents into a 'Transport'. This is more required if you are aiming to copy the project from one SolMan instance to another.
It would give an information message "Generating in batch job (Name ......)
In a few minutes, you'd receive an intimation of the Project being copied.
That's pretty much about it. Have a check on the newly created project in SOLAR01.
Please let me know if you have any doubts.
Best regards,
Srini

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 Display Tree structure in Grid Data ?

Hi Friends.,
I am Using tree control to get the data from database dynamically.
Now i use to selected (node or folder) will be display in grid in tree structure with using panel. any Example coding....?
Any One Help me.....
With Regards.,
Lingu..,

i've posted some examples to Tree structures in a Datagrid in a topic a few below this one
http://forums.adobe.com/thread/569070?tstart=0

How to create a workflow for a date field if the date is approaching?

Hi Experts,
I have to create a workflow on the basis of delievery date entered for the Record type opportunity.
Like, if the user have entered the expected delievery date while Closing the Opportunity a mail should be triggered to concerened persons before 10 days of that "Expected Delievery Date".
If anybody can help in this regard,Thanking in anticipation.

Configure wait action field Until When with the expression [<Delivery Date Filed Name>] - Period("10D")

How to create process chain for this data flow

Hi experts,
My data flow is:
======================================
2lis_11_vahdr->Transfer rules->2lis_11_vahdr->Update rules->DSO1->Transformation->DTP->Cube1.
2lis_11_vaitm->Transfer rules->2lis_11_vaitm->Update rules->DSO1->Transformation->DTP->Cube1.
======================================
2lis_12_vchdr->Transfer rules->2lis_12_vchdr->Update rules->DSO2->Transformation->DTP->Cube1.
2lis_12_vcitm->Transfer rules->2lis_12_vcitm->Update rules->DSO2->Transformation->DTP->Cube1.
======================================
2lis_13_vdhdr->Transfer rules->2lis_13_vdhdr->Update rules->DSO3->Transformation->DTP->Cube1.
2lis_13_vditm->Transfer rules->2lis_13_vditm->Update rules->DSO3->Transformation->DTP->Cube1.
======================================
Here for each datasource info package brings data upto dso and then from dso dtp fetches the data.
For deltas i want to keep this data flow in process chain.
Anyone please guide me how to keep this in a process chain.
Full points will be assigned.
Regards,
Bhadri m.
Edited by: Bhadri M on Sep 2, 2008 7:20 PM
Edited by: Bhadri M on Sep 2, 2008 7:21 PM

Hello,
Sure it is possible to maintain that dataflow.
Start here:
This is a very good document about process chains:
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/8da0cd90-0201-0010-2d9a-abab69f10045
Let me know if you have any doubts.
Regards,
Jorge Diogo

How to create Dynamic Parameters for between dates

Hi,
I have a requirement to create a crystal report with between dates using dynamic parameters.
I am getting data from 'BEx Query' where already filters were defined on Date field. So While I am creating a crystal report these filters are displaying under 'Parameter Fields' automatically as Static. When I execute the report I am getting these Date's as Dropdown box. But as per the 'help' in crystal reports, static values won't get updated if any changes were taken place in backend system.
I have created a Dynamic parameter 'StartDate', but the values are not getting populated in Dropdown box.
Please let me know how to achieve this requirement.
Thanks in advance.
cheers
dev

Please re-post if this is still an issue or purchase a case and have a dedicated support engineer work with your directly

How to create portal pages for GUI data updates

Hi,
We have a simple (seems) requirement to develop a portal page to provide GUI for users to update oracle tables. No valdiations or any anything, just plain inserts into the table. How do i approach this from step1. ( I have the portal installed and configures and etc).
Thanks,
Vijay

Thanks a lot for your help:
I've find a temporaly solution for my problem, it consist in a pl/sql porlet whit this code on it:
---------------------code-----------------------
declare
page number;
begin
page :=PORTAL.wwsbr_api.add_folder(
p_caid => 1201,
p_name => 'PAGENAME',
p_display_name => 'page name',
p_type_id => PORTAL.wwsbr_api.FOLDER_TYPE_CONTAINER,
p_type_caid => 0,
p_isportlet => 1); PORTAL.wwpro_api_invalidation.execute_cache_invalidation; end;
--------------end code---------------------
and now im trying to do this from java using an OracleCallableStatement, after that i will try to insert content using this api, if anybody knows, please put a sample of code to execute pl/sql from java using OracleCallableStatement
Regards
Message was edited by:
Dreamloger

Creating Tree Structure in VC

Hello,
Do you know how to create Tree like structure in Visual Composer. Tree should contain XML data coming from Web Service.
Thanks,
Prashant

Hi Prashant,
we have already a discussion about trees in VC [here|How to create Tree structure in Visual Composer;.
Best Regards,
Marcel

How to create PLD_Items table for Crystal Reports

Hi experts,
Im trying to use the variable 130 for a report but in crystal reports, in some SAP Standard Reports the table PLD_Items appears, my question is how to create this structure for my report, i know that is an ADO.NET connection based on an XML file, but i dont know from where i can take this value can any one help me please?
Best Regards
Dave

If this is CR for B1, please post to SAP Business One Application
Alternatively see the SCN Site Index for the correct SCN Space for your product / component.
- Ludek
SCN Moderator

How to create Tree Structure for given data?

Similar Messages

Maybe you are looking for