How to expand a Root-Element in ALV-Tree?

Hi,
i use ALV-Tree and try to expand the first hierarchie.
I try this:
TRY.
      GR_TREE_NODE = GR_TREE_NODES->ADD_NODE(
        RELATED_NODE = ROOT_KEY
        *EXPANDER     = ABAP_TRUE*
        RELATIONSHIP = CL_GUI_COLUMN_TREE=>RELAT_FIRST_CHILD
        TEXT         = 'Meldungen').
    CATCH CX_SALV_MSG.
ENDTRY.
but this element will not be expandet?
I know this for expand all:     CALL METHOD GR_TREE_NODES->EXPAND_ALL.
but want to expand only the first hierarch-elemet (root).
Can anyone tell me what i'm doing wrong?
Thanks.
Regards, Dieter

Hi,
solved by this:
GR_TREE_NODE->EXPAND( ).
Regards, Dieter

Similar Messages

How to get the root node of a tree?

I wanna get all the leaf node of a tree.But JTree have no method about how to get the root TreeNode of a tree.Then how should I do?

try this:
http://javaalmanac.com/egs/javax.swing.tree/GetNodes.html?l=rel

How to handle blank root element in xml source file

Hi There,
I have a dataflow which using xml source file. The job keep failing and I guess it might be caused by one of the root element which is blank. Can anyone advise me how to handle it?
The xml file look like this:
-<orderinfo>
--<orderdetail>
---<orderid>1</orderid>
---<orderdate>20110101</orderdate>
--</orderdetail>
--<abc />
-</orderinfo>
element <abc> is blank
Thanks and Regards,
BL

Hi Suneer,
The issue is DS cannot validate the source file at all. It returns error message when I try to preview the source file in the dataflow. Is there any work around I can implement other than request the source team to change the file layout?
Thanks,
BL

How to make fields editable in an alv tree

hi
there is an alv grid for which tree view shud also be made. The cells that are editable in the grid should also be editable in the tree.
please let me know how to make the specific cells of the tree editable

after setting the edit field in the field catalogue its bot working.
i am posting the code snippet.
please let me know what else should be done and how to add INPUT field to the fieldcat.
field-symbols: <fs_fieldcat> type lvc_s_fcat.
data: l_tabix type sy-tabix.
data: g_fieldcatalog type lvc_t_fcat,
 wa_fcat like line of g_fieldcatalog.
data : hide type c value 'X'.
call function 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = 'RSTHIE_M'
 i_client_never_display = 'X'
 i_bypassing_buffer = 'X'
 CHANGING
 ct_fieldcat = g_fieldcatalog.
***-set table header on middle width
LOOP AT g_fieldcatalog ASSIGNING <fs_fieldcat>.
 <fs_fieldcat>-FIX_COLUMN = 'X'.
 <fs_fieldcat>-edit = 'X'.
ENDLOOP.

How to make the content of the alv tree accessible?

I have created an alv tree using class interface CL_SALV_TREE. The code snippet to build the tree I have used is
cl_salv_tree=>factory(
 IMPORTING
 r_salv_tree = gr_tree
 CHANGING
 t_table = gt_tree ).
I have provided header text and tooltips.
 DATA: lr_columns TYPE REF TO cl_salv_columns,
 lr_columns = gr_tree->get_columns( ).
 lr_column = lr_columns->get_column( 'TEXT1' ).
 lc_col_long_text = text-161.
 lc_col_tool_text = text-161.
 lr_column->set_long_text( lc_col_long_text ).
 lr_column->set_tooltip( lc_col_tool_text ).
The content of the tree is filled dynamically by passing the internal table gt_tree as shown in the aforementioned code. And on double click it leads to another screen.
Now the problem is that JAWS doesnt announce "Press F2" when it tabs to this content. As far as I know jaws announces if there is a tooltip or it announces the text itself. Also I know you can provide tooltip with the alv function module to the content but with the class cl_salv_tree_settings I am oblivious of such kind of provision or if any other.
Kindly provide your inputs on the same.

Welcome to SDN.
check out the following weblog.
/people/sap.user72/blog/2005/09/14/a-new-approach-to-alv-programming
by the way whats "JAWS"
Regards
Raja
Message was edited by: Durairaj Athavan Raja

How to insert textedit ui element in ALV

hi experts,
i need to insert textedit ui element in one of the column of ALV.
thanks

No you cann't use the TExtedit in ALV cell.
Check out the thread [Line break in ALV cells|Re: Line break in ALV cells?] for more details.

How to add button ui element in alv table data in web Dynpro ABAP

Hi Experts,
I have one requirement,
Actually I was devloped normal table in web Dynpro ABAP
in that i have one column Display as a button .
when i select that button need to display some data.
same requirement i need to devlope in alv table.
i am going to attach file please check.
Thanks in advance.
Regards,
Subba Reddy.

Hi,
You can create Button in your ALV table column with below code
DATA lo_button TYPE REF TO cl_salv_wd_uie_button.
CREATE OBJECT lo_button.
 CALL METHOD lv_value->if_salv_wd_column_settings~get_column
 EXPORTING
 id = <your column name>
 RECEIVING
 value = lo_system_select_hdr.
 lo_button->set_enabled( value = abap_true ).
 lo_button->set_text( value = 'Avaliable List' ).
 lo_button->set_tooltip( value = 'Avaliable List' ).
 lo_system_select_hdr->set_cell_editor( value = lo_button ).
And for button click action,
Create a method (say SHOW_DATA( ) ) with on_click event handler.And when you click button on your ALV table, SHOW_DATA( ) method will trigger.
Thanks
KH

How to expand all the nodes in a tree while loading the tree initially

Hi All
Now i am able to display the tree strucute in webdynpro.
but it is displaying the tree initially in collapsed mode until/unless we click on the node root it will be expanded.
but my requirement is i wanted to display the tree in expanded mode by default at runtime initially.
can you please provide any setting to be done or any sample code on the same then it would be great help to me.??
Thanks
Trisha

Hi,
isLeaf is an attribute you need to create under "CatalogEntries" node. And "isRoot" is not requried.
Download the sample project "TutWD_TreeByNestingTableColumn". See the below link to dnld this project.
https://www.sdn.sap.com/irj/sdn/index?rid=/webcontent/uuid/503f22f6-b978-2a10-bf97-ddc21267e752 [original link is broken]
Do the changes in sample project as below:
Invoke this method in the init method as below (as it is in the same project).
addCatalogEntries(wdContext.nodeCatalogEntries(), "ROOT");
Change the code in addCatalogEntries() method as below.
Here we are calling the addCatalogEntries() method recursively for all the parent elements and we are changing the setExpanded property to true.
public void addCatalogEntries( com.sap.tut.wd.treetable.wdp.IPrivateTreeTableView.ICatalogEntriesNode node, java.lang.String parentId )
//@@begin addCatalogEntries()
IPrivateTreeTableView.ICatalogEntriesElement newCatalogEntriesElement;
for (int i = 0; i < Catalog.getLength(); i++) {
if (parentId.equals(Catalog.getParentId(i))) {
// create new context node element
newCatalogEntriesElement = node.createCatalogEntriesElement();
node.addElement(newCatalogEntriesElement);
// provide node elements with data
newCatalogEntriesElement.setID(Catalog.getCATALOGID(i));
newCatalogEntriesElement.setTITLE(Catalog.getTITLE(i));
newCatalogEntriesElement.setDESCRIPTION(Catalog.getDESCRIPTION(i));
newCatalogEntriesElement.setAMOUNT(Catalog.getAMOUNT(i));
if ("ARTICLE".equals(Catalog.getCATALOGTYPE(i))) {
// checkbox is visible by default
newCatalogEntriesElement.setPUBLISHED(Catalog.getPUBLISHED(i));
// third level is last level
newCatalogEntriesElement.setIsLeaf(true);
} else {
// a CATEGORY does not use the checkbox column
newCatalogEntriesElement.setUsageOfPublishedAttribute(WDVisibility.BLANK);
newCatalogEntriesElement.setIsLeaf(false);
newCatalogEntriesElement.setChildrenLoaded(true);
newCatalogEntriesElement.setExpanded(true);
addCatalogEntries(newCatalogEntriesElement.nodeChildCatalogEntries(),newCatalogEntriesElement.getID());

How to create multiple root node in a tree

Hi Experts,
As per my requirement I have two requirements for tree creation:
1) Create a Tree which can display multiple root node.
2) Cretae a Tree which can display data directy without any folder.
I am new in Tree development.
Can any body help me out to get it done.
If it is not possible then also i need a confirmation from experts.
Regards,
Madhu

use method add_node of the class Cl_gui_alv_tree to add a node to the tree.
In case of root node the parameter lv_relat_key is passed as blank.In order to create further child nodes pass the node key of the parent as the relat key of the child and use the method again.
Regards,
Abhi

How to handle check box events in alv tree.

hi,
i am working in CL_GUI_COLUMN_TREE class.Also using Check box. Now i want to handle events for check box . I am new to ABAP Objects.
Pls expaline in detail or send code
thanks in advance,
senthil kumar.r

Hello Senthil
Have a look at the sample report
SAPCOLUMN_TREE_CONTROL_DEMO
. The crucial points are:
(1) Register the required events at the control
* define the events which will be passed to the backend
" checkbox change
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_checkbox_change.
event-appl_event = 'X'.
append event to events.
CALL METHOD G_TREE->SET_REGISTERED_EVENTS
 EXPORTING
 EVENTS = EVENTS
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 ILLEGAL_EVENT_COMBINATION = 3.
IF SY-SUBRC <> 0.
 MESSAGE A000.
ENDIF.
(2) Set the event handler
assign event handlers in the application class to each desired event
SET HANDLER G_APPLICATION->HANDLE_CHECKBOX_CHANGE FOR g_tree.
(3) Define and implement event handler method
METHOD HANDLE_CHECKBOX_CHANGE.
 " this method handles the checkbox_change event of the tree
 " control instance
 " show the key of the node and the name of the item
 " of the clicked checkbox in a dynpro field
 G_EVENT = 'CHECKBOX_CHANGE'.
 G_NODE_KEY = NODE_KEY.
 G_ITEM_NAME = ITEM_NAME.
 CLEAR G_HEADER_NAME.
ENDMETHOD.
Regards
Uwe

Creating root element w/reference to XSD file

I'm using JDOM and would like to know how to create the root element so it
looks like this:
<Import xmlns:xsi="http://www.w3.org/2000/10/XMLSchema-instance"
xsi:noNamespaceSchemaLocation="http://www.mydomain.com/XSDfilename.xsd">

I am trying to create a xml file with then serves as an input to a vendor tool
I tried creating the root element with default namespace but the second elemnt is also created with the default namespace. I am using Jdom to create this xml file .
My program output:
<?xml version="1.0" encoding="UTF-8"?>
<PacketGroup xmlns="http://www.abc.com/schemas/idwebarchive/data">
<DefaultPacket xmlns="" logonid="scott" password="humptydumpty">
<IndexLevel level="1" containerDesc="" containerName="Recorder Docs" />
<IndexLevel level="2" containerName="Recorded Year" containerDesc="">
<Keyword name="Recorded Year" value="2005" />
</IndexLevel>
<DocumentLevel documentName="Documents" docDesc="" >
<Keyword name="Document Number" value="2005-034378" />
</DocumentLevel>
</DefaultPacket>
</PacketGroup>
Vendor REquirement:
<?xml version="1.0" encoding="UTF-8"?>
<PacketGroup xmlns="http://www.abc.com/schemas/idwebarchive/data">
<DefaultPacket logonid="scott" password="humptydumpty">
<IndexLevel level="1" containerDesc="" containerName="Recorder Docs" />
<IndexLevel level="2" containerName="Recorded Year" containerDesc="">
<Keyword name="Recorded Year" value="2005" />
</IndexLevel>
<DocumentLevel documentName="Documents" docDesc="" >
<Keyword name="Document Number" value="2005-034378" />
</DocumentLevel>
</DefaultPacket>
</PacketGroup>
How do I go about creating this structure without the default namespace in my subsequent elements.
Any help is appreciated , I am new to this aspect of programming
Thanks
VK

How to make field editable in ALV tree in OOPs?

Hi Gems,
Again I need help from you all.
I am writing a program using OOPs and the uotput will be in ALV tree. I need to make a field editable in a perticular row.
I am doing it using layout but the program is giving error during
CALL METHOD CL_GUI_CFW=>FLUSH
 EXCEPTIONS
 CNTL_SYSTEM_ERROR = 1
 CNTL_ERROR = 2.
This method is returning sy-subrc = 2 and I am unable to get the output.
I am using below code to make the field editable:
DATA: LT_LAYOUT_ITEM TYPE LVC_T_LAYI,
 LS_LAYOUT_ITEM TYPE LVC_S_LAYI.
LS_LAYOUT_ITEM-FIELDNAME = 'ACPCKTWRT'. "ACPCKTWRT is the field name in the Internal table
LS_LAYOUT_ITEM-EDITABLE = 'X'.
APPEND LS_LAYOUT_ITEM TO LT_LAYOUT_ITEM.
CALL METHOD G_ALV_TREE->ADD_NODE
 EXPORTING
 I_RELAT_NODE_KEY = FP_RELAT_KEY
 I_RELATIONSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
 IS_OUTTAB_LINE = LS_TMP_FINFCNO "structure of the internal table
 IS_NODE_LAYOUT =
 IT_ITEM_LAYOUT = LT_LAYOUT_ITEM "Added layout to make the field editable
 I_NODE_TEXT = LV_NODE_TEXT "Node text
 IMPORTING
 E_NEW_NODE_KEY = FP_NODE_KEY
 EXCEPTIONS
 RELAT_NODE_NOT_FOUND = 1
 NODE_NOT_FOUND = 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.
Please help me and let me know how to get the solution.

Hello
The ALV tree control is not intended for making values editable (e.g. see
[How to make ALV tree columns editable|http://sap.ittoolbox.com/groups/technical-functional/sap-abap/how-to-make-alv-tree-columns-editable-2052414])
However, if you need an editable tree control then you have to use a different class (e.g. CL_ITEM_TREE_MODEL or CL_COLUMN_TREE_MODEL) but you will not have the ALV functionality of the ALV tree control.
Regards
Uwe

ALV Tree using ABAP Objects

Can anyone tell me how to Copy a node on an ALV Tree using context menu ?

Hello Vidya
The sample report ZUS_SDN_ALVTREE_CTXMENU demonstrates how to copy nodes on an ALV tree.
Before showing the entire coding I would like to point out a few crucial parts of the coding:
(1) Defintion of OUTTAB list
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE vbak.
TYPES: nkey TYPE lvc_nkey.
TYPES: ntype TYPE lvc_value. " 'VKORG' / 'VTWEG' / 'SPART' / leaf
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab TYPE STANDARD TABLE OF ty_s_outtab
 WITH DEFAULT KEY.
The OUTTAB list contains two additional fields holding the tree key (LVC_NKEY) and the node type.
(2) The main logic of the report is implemented in event handler method handle_node_ctxmenu_sel.
 WHEN 'COPY_SUBTREE'.
 CALL METHOD go_alvtree->get_subtree
 EXPORTING
 i_node_key = node_key
 IMPORTING
 et_subtree_nodes = lt_subtree.
 CALL METHOD go_alvtree->get_parent
 EXPORTING
 i_node_key = node_key
 IMPORTING
 e_parent_node_key = ld_parent_key.
 LOOP AT lt_subtree INTO ld_node_key.
 READ TABLE gt_outtab INTO ls_outtab
 WITH KEY nkey = ld_node_key.
 APPEND ls_outtab TO lt_outtab.
 ENDLOOP.
 READ TABLE lt_outtab INTO ls_outtab INDEX 1.
 ld_ntype = ls_outtab-ntype.
 DELETE lt_outtab WHERE ( vbeln IS INITIAL ). " hierarchy nodes
 CASE ld_ntype.
 WHEN 'VKORG'.
 ld_top_key = ld_parent_key.
 WHEN 'VTWEG'.
 ld_vkorg_key = ld_parent_key.
 WHEN 'SPART'.
 ld_vtweg_key = ld_parent_key.
 WHEN 'LEAF'.
 ld_spart_key = ld_parent_key.
 ENDCASE.
" Note: similar logic like in routine CREATE_HIERARCHY
 SORT lt_outtab BY vkorg vtweg spart kunnr audat.
 LOOP AT lt_outtab INTO ls_outtab.
*& Report ZUS_SDN_ALVTREE_CTXMENU
*& Based on: BCALV_TREE_03
REPORT zus_sdn_alvtree_ctxmenu.
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE vbak.
TYPES: nkey TYPE lvc_nkey.
TYPES: ntype TYPE lvc_value. " 'VKORG' / 'VTWEG' / 'SPART' / leaf
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab TYPE STANDARD TABLE OF ty_s_outtab
 WITH DEFAULT KEY.
DATA:
gd_repid TYPE syst-repid,
gd_okcode TYPE ui_func,
go_docking TYPE REF TO cl_gui_docking_container,
go_alvtree TYPE REF TO cl_gui_alv_tree.
DATA:
gt_outtab TYPE ty_t_outtab, " Sales Document
gt_fcat TYPE lvc_t_fcat.
* CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
* §2. Define an event handler method to build up a context menu
* (postfix of event name: _CONTEXT_MENU_REQUEST).
* This event is fired each time the user klick with the right
* mouse button on a node.
 CLASS-METHODS:
 handle_node_ctxmenu_req
 FOR EVENT node_context_menu_request OF cl_gui_alv_tree
 IMPORTING
 node_key
 menu,
* §3. Define an event handler method to respond to a function code
* triggered by your menu (postfix: _CONTEXT_MENU_SELECTED).
* This event is fired when the user selects an entry of the
* build up context menu.
 handle_node_ctxmenu_sel
 FOR EVENT node_context_menu_selected OF cl_gui_alv_tree
 IMPORTING
 node_key
 fcode
 sender.
* 'sender' is an implicit event parameter that is provided by
* ABAP Objects runtime system. It contains a reference to the
* object that fired the event. You may directly use it to
* call methods of this instance.
ENDCLASS. "lcl_eventhandler DEFINITION
* CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
* §4. Implement your event handler methods.
METHOD handle_node_ctxmenu_req.
* Event parameter 'menu' holds a reference to the standard context
* menu of ALV Tree (functions 'Expand'/'Collapse' on nodes).
* You may either append your own functions (separated by a line)
* or clear the menu if you do not want to allow standard functions.
* In this case the standard menu is cleared.
 CALL METHOD menu->clear.
* The next line defines one line of the context menu.
 CALL METHOD menu->add_function
 EXPORTING
 fcode = 'DEL_SUBTREE'
 text = 'Delete Subtree'(901). "Delete Subtree
 CALL METHOD menu->add_function
 EXPORTING
 fcode = 'COPY_SUBTREE'
 text = 'Copy Subtree'(902). "Copy Subtree
ENDMETHOD. "handle_node_ctxmenu_req
METHOD handle_node_ctxmenu_sel.
* At this point of execution, the user selected a menu entry of the
* menu build up in event handler method handle_node_cm_req.
* Query your own function codes and react accordingly.
 DATA:
 l_rc TYPE c,
 ld_ntype TYPE lvc_value,
 ld_parent_key TYPE lvc_nkey,
 ld_node_key TYPE lvc_nkey,
 lt_subtree TYPE lvc_t_nkey,
 ls_outtab TYPE ty_s_outtab,
 ls_last TYPE ty_s_outtab,
 lt_outtab TYPE ty_t_outtab.
 DATA:
 ld_vkorg_key TYPE lvc_nkey,
 ld_vtweg_key TYPE lvc_nkey,
 ld_spart_key TYPE lvc_nkey,
 ld_last_key TYPE lvc_nkey,
 ld_top_key TYPE lvc_nkey.
 CASE fcode.
 WHEN 'DEL_SUBTREE'.
 CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
 EXPORTING
 textline1 = 'Do you really want to delete'(902)
 textline2 = 'this node and all its subnodes?'(903)
 titel = 'Confirmation'(904)
 cancel_display = ' '
 IMPORTING
 answer = l_rc.
 IF l_rc EQ 'J'.
 CALL METHOD sender->delete_subtree
 EXPORTING
 i_node_key = node_key.
* Do not forget to refresh the display when you change the contents
* of your list.
 CALL METHOD sender->frontend_update.
 ENDIF.
 WHEN 'COPY_SUBTREE'.
 CALL METHOD go_alvtree->get_subtree
 EXPORTING
 i_node_key = node_key
 IMPORTING
 et_subtree_nodes = lt_subtree.
 CALL METHOD go_alvtree->get_parent
 EXPORTING
 i_node_key = node_key
 IMPORTING
 e_parent_node_key = ld_parent_key.
 LOOP AT lt_subtree INTO ld_node_key.
 READ TABLE gt_outtab INTO ls_outtab
 WITH KEY nkey = ld_node_key.
 APPEND ls_outtab TO lt_outtab.
 ENDLOOP.
 READ TABLE lt_outtab INTO ls_outtab INDEX 1.
 ld_ntype = ls_outtab-ntype.
 DELETE lt_outtab WHERE ( vbeln IS INITIAL ). " hierarchy nodes
 CASE ld_ntype.
 WHEN 'VKORG'.
 ld_top_key = ld_parent_key.
 WHEN 'VTWEG'.
 ld_vkorg_key = ld_parent_key.
 WHEN 'SPART'.
 ld_vtweg_key = ld_parent_key.
 WHEN 'LEAF'.
 ld_spart_key = ld_parent_key.
 ENDCASE.
 SORT lt_outtab BY vkorg vtweg spart kunnr audat.
 LOOP AT lt_outtab INTO ls_outtab.
 IF ( ld_ntype = 'VKORG' ).
 " new sales organisation
 IF ( ls_outtab-vkorg = ls_last-vkorg ).
 ELSE.
 PERFORM add_sales_org
 USING
 ls_outtab
 ld_top_key
 CHANGING
 ld_vkorg_key.
 ls_outtab-nkey = ld_vkorg_key.
 ls_outtab-ntype = 'VKORG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 ENDIF.
 IF ( ld_ntype = 'VKORG' OR
 ld_ntype = 'VTWEG' ).
 " new distribution channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg ).
 ELSE.
 PERFORM add_distrib_chan
 USING
 ls_outtab
 ld_vkorg_key
 CHANGING
 ld_vtweg_key.
 ls_outtab-nkey = ld_vtweg_key.
 ls_outtab-ntype = 'VTWEG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 ENDIF.
 IF ( ld_ntype = 'VKORG' OR
 ld_ntype = 'VTWEG' OR
 ld_ntype = 'SPART' ).
 " new channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg AND
 ls_outtab-spart = ls_last-spart ).
 ELSE.
 PERFORM add_division
 USING
 ls_outtab
 ld_vtweg_key
 CHANGING
 ld_spart_key.
 ls_outtab-nkey = ld_spart_key.
 ls_outtab-ntype = 'SPART'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 ENDIF.
* Leaf:
 PERFORM add_complete_line
 USING
 ls_outtab
 ld_spart_key
 CHANGING
 ld_last_key.
 ls_outtab-nkey = ld_last_key.
 ls_outtab-ntype = 'LEAF'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ls_last = ls_outtab.
 ENDLOOP.
 CALL METHOD cl_gui_cfw=>set_new_ok_code
 EXPORTING
 new_code = 'REFRESH_TREE'
* IMPORTING
* RC =
 ENDCASE.
ENDMETHOD. "handle_node_ctxmenu_sel
ENDCLASS. "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
PERFORM init_controls.
* Link the docking container to the target dynpro
gd_repid = syst-repid.
CALL METHOD go_docking->link
 EXPORTING
 repid = gd_repid
 dynnr = '0100'
* CONTAINER =
 EXCEPTIONS
 OTHERS = 4.
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 SCREEN '0100'.
* NOTE: no screen elements, ok_code -> gd_okcode
** PROCESS BEFORE OUTPUT.
** MODULE STATUS_0100.
** PROCESS AFTER INPUT.
** MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*& Module STATUS_0100 OUTPUT
* text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE user_command_0100 INPUT.
TRANSLATE gd_okcode TO UPPER CASE. " facilitate manual entries
CASE gd_okcode.
 WHEN 'BACK' OR
 'EXIT' OR
 'CANC'.
 SET SCREEN 0. LEAVE SCREEN.
when 'REFRESH_TREE'.
 CALL METHOD go_alvtree->update_calculations
* EXPORTING
* NO_FRONTEND_UPDATE =
 WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form INIT_CONTROLS
* text
* --> p1 text
* <-- p2 text
FORM init_controls .
DATA:
 ls_hierarchy_header TYPE treev_hhdr.
* Create docking container
CREATE OBJECT go_docking
 EXPORTING
 parent = cl_gui_container=>screen0
 ratio = 90
 EXCEPTIONS
 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 go_docking->set_extension
 EXPORTING
 extension = 99999 " full-size screen
 EXCEPTIONS
 cntl_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.
* create tree control
CREATE OBJECT go_alvtree
 EXPORTING
 parent = go_docking
 node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
 item_selection = ' '
 no_html_header = 'X'
 no_toolbar = ''
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 illegal_node_selection_mode = 5
 failed = 6
 illegal_column_name = 7.
IF sy-subrc <> 0.
 MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
ENDIF.
PERFORM build_hierarchy_header CHANGING ls_hierarchy_header.
* Hide columns and sum up values initially using the fieldcatalog
PERFORM build_fieldcatalog.
* IMPORTANT: Table 'gt_sflight' must be empty. Do not change this table
* (even after this method call). You can change data of your table
* by calling methods of CL_GUI_ALV_TREE.
* Furthermore, the output table 'gt_outtab' must be global and can
* only be used for one ALV Tree Control.
CALL METHOD go_alvtree->set_table_for_first_display
 EXPORTING
 is_hierarchy_header = ls_hierarchy_header
 CHANGING
 it_fieldcatalog = gt_fcat
 it_outtab = gt_outtab. "table must be empty !
PERFORM init_tree.
ENDFORM. " INIT_CONTROLS
*& Form INIT_TREE
* text
* --> p1 text
* <-- p2 text
FORM init_tree .
PERFORM create_hierarchy.
PERFORM register_events.
* Update calculations which were initially defined by field DO_SUM
* of the fieldcatalog. (see build_fieldcatalog).
CALL METHOD go_alvtree->update_calculations.
* Send data to frontend.
CALL METHOD go_alvtree->frontend_update.
ENDFORM. " INIT_TREE
*& Form build_hierarchy_header
* text
* <--P_LS_HIERARCHY_HEADER text
FORM build_hierarchy_header
 CHANGING
 cs_hierarchy_header TYPE treev_hhdr.
cs_hierarchy_header-heading =
 'SalesOrg/DistChannel/Division'(300).
cs_hierarchy_header-tooltip = 'Customer: Master Sales Data'(400).
cs_hierarchy_header-width = 45.
cs_hierarchy_header-width_pix = ''.
ENDFORM. " build_hierarchy_header
*& Form build_fieldcatalog
* text
* --> p1 text
* <-- p2 text
FORM build_fieldcatalog .
* define local data
DATA:
 ls_fcat TYPE lvc_s_fcat.
REFRESH: gt_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
* I_BUFFER_ACTIVE =
 i_structure_name = 'VBAK'
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_BYPASSING_BUFFER =
* I_INTERNAL_TABNAME =
 CHANGING
 ct_fieldcat = gt_fcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_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.
LOOP AT gt_fcat INTO ls_fcat.
 CASE ls_fcat-fieldname.
 WHEN 'VBELN' OR
 'AUDAT' OR
 'AUART' OR
 'WAERK' OR
 'VKORG' OR
 'VTWEG' OR
 'SPART' OR
 'BSTNK' OR
 'KUNNR'.
 WHEN 'NETWR'.
 ls_fcat-do_sum = 'X'.
 ls_fcat-h_ftype = 'SUM'. " or: 'MAX' / 'AVG'
 WHEN OTHERS.
 ls_fcat-tech = 'X'.
 ENDCASE.
 MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
ENDLOOP.
ENDFORM. " build_fieldcatalog
*& Form create_hierarchy
* text
* --> p1 text
* <-- p2 text
FORM create_hierarchy .
* define local data
DATA:
 ls_outtab TYPE ty_s_outtab,
 ls_last TYPE ty_s_outtab,
 lt_outtab TYPE ty_t_outtab.
DATA:
 ld_vkorg_key TYPE lvc_nkey,
 ld_vtweg_key TYPE lvc_nkey,
 ld_spart_key TYPE lvc_nkey,
 ld_last_key TYPE lvc_nkey,
 ld_top_key TYPE lvc_nkey.
" Select data
SELECT * FROM vbak INTO CORRESPONDING FIELDS OF TABLE lt_outtab
 UP TO 1550 ROWS.
" sort table according to conceived hierarchy
SORT lt_outtab BY vkorg vtweg spart kunnr audat.
* Define one top node. In this way it is possible to calculate
* values for the whole hierarchy.
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ''
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = 'Sales Documents'
 IMPORTING
 e_new_node_key = ld_top_key.
CLEAR: ls_outtab.
ls_outtab-nkey = ld_top_key.
ls_outtab-ntype = 'ROOT'.
MODIFY gt_outtab FROM ls_outtab INDEX 1
 TRANSPORTING nkey ntype.
LOOP AT lt_outtab INTO ls_outtab.
 " new sales organisation
 IF ( ls_outtab-vkorg = ls_last-vkorg ).
 ELSE.
 PERFORM add_sales_org
 USING
 ls_outtab
 ld_top_key
 CHANGING
 ld_vkorg_key.
 ls_outtab-nkey = ld_vkorg_key.
 ls_outtab-ntype = 'VKORG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 " new distribution channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg ).
 ELSE.
 PERFORM add_distrib_chan
 USING
 ls_outtab
 ld_vkorg_key
 CHANGING
 ld_vtweg_key.
 ls_outtab-nkey = ld_vtweg_key.
 ls_outtab-ntype = 'VTWEG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 " new channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg AND
 ls_outtab-spart = ls_last-spart ).
 ELSE.
 PERFORM add_division
 USING
 ls_outtab
 ld_vtweg_key
 CHANGING
 ld_spart_key.
 ls_outtab-nkey = ld_spart_key.
 ls_outtab-ntype = 'SPART'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
* Leaf:
 PERFORM add_complete_line
 USING
 ls_outtab
 ld_spart_key
 CHANGING
 ld_last_key.
 ls_outtab-nkey = ld_last_key.
 ls_outtab-ntype = 'LEAF'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ls_last = ls_outtab.
ENDLOOP.
ENDFORM. " create_hierarchy
*& Form ADD_SALES_ORG
* text
* -->P_LS_OUTTAB text
* -->P_LD_TOP_KEY text
* <--P_LD_VKORG_KEY text
FORM add_sales_org
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
ld_nodetext = us_outtab-vkorg.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = ls_outtab
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " ADD_SALES_ORG
*& Form add_DISTRIB_CHAN
* text
* -->P_LS_OUTTAB text
* -->P_LD_VKORG_KEY text
* <--P_LD_VTWEG_KEY text
FORM add_distrib_chan
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
ld_nodetext = us_outtab-vtweg.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = ls_outtab
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_DISTRIB_CHAN
*& Form add_division
* text
* -->P_LS_OUTTAB text
* -->P_LD_VTWEG_KEY text
* <--P_LD_SPART_KEY text
FORM add_division
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
ld_nodetext = us_outtab-spart.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = ls_outtab
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_division
*& Form add_complete_line
* text
* -->P_LS_OUTTAB text
* -->P_LD_SPART_KEY text
* <--P_LD_LAST_KEY text
FORM add_complete_line
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
WRITE us_outtab-kunnr TO ld_nodetext+0 NO-ZERO.
WRITE us_outtab-audat TO ld_nodetext+20 DD/MM/YYYY.
CONDENSE ld_nodetext.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = us_outtab " !!!
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_complete_line
*& Form register_events
* text
* --> p1 text
* <-- p2 text
FORM register_events .
DATA:
 lt_events TYPE cntl_simple_events,
 ls_event TYPE cntl_simple_event.
* The following four tree events registers ALV Tree in the constructor
* method itself.
* - cl_gui_column_tree=>eventid_expand_no_children
* (needed to load data to frontend when a user expands a node)
* - cl_gui_column_tree=>eventid_header_context_men_req
* (needed for header context menu)
* - cl_gui_column_tree=>eventid_header_click
* (allows selection of columns (only when item selection activated))
* - cl_gui_column_tree=>eventid_item_keypress
* (needed for F1-Help (only when item selection activated))
* Nevertheless you have to provide their IDs again if you register
* additional events with SET_REGISTERED_EVENTS (see below).
* To do so, call first method GET_REGISTERED_EVENTS (this way,
* all already registered events remain registered, even your own):
CALL METHOD go_alvtree->get_registered_events
 IMPORTING
 events = lt_events.
* (If you do not these events will be deregistered!!!).
* You do not have to register events of the toolbar again.
* Register additional events for your own purposes:
* §5. Register first context menu event on frontend (with postfix
* (_REQUEST). The second is registered automatically.
ls_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
APPEND ls_event TO lt_events.
* register events on frontend
CALL METHOD go_alvtree->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.
* §6. Register both context menu events on backend (ABAP Objects
* event handling).
SET HANDLER:
 lcl_eventhandler=>handle_node_ctxmenu_req FOR go_alvtree,
 lcl_eventhandler=>handle_node_ctxmenu_sel FOR go_alvtree.
ENDFORM. " register_events
Regards,
Uwe

How can i change the ROOT ELEMENT name in my ADOBE Form

Hello All,
I need to change "data" the Root Element default name to another name.
Is this possible? How do i do this?
Thank you all in advance,
Eran

Hello Chintan and Otto,
thank you for your replies...
Chintan: There is Adobe livecycle designer CE and its a stand alone application :[ designer CE2|http://www.adobe.com/products/livecycle/]
Otto: I know i can send the xml back and change it in my abap program but i'm talking about stand alone form in a computer with no sap on it.
The user will fill it and submit it ...
Thank you all in advance,
Eran

How to use SAX Parseto paser xml without root element

Hello,
I have big a xml file(500M) with without root element. How can I use SAXParse to parse it.

A well-formed XML file has a single root element. Your parser can't deal with any other kind. So find the person who produced that file and explain politely that it's no good. (Hitting them with a big stick would be optional.)
You could write a non-XML program that reads it in and creates a new version, wrapped in a single root element, if your supplier can't fix their problem.

How to expand a Root-Element in ALV-Tree?

Similar Messages

Maybe you are looking for