REPORT rsdemo_drag_drop_edit_tree .
DATA ok_code TYPE sy-ucomm.
DATA node_itab_left LIKE node_str OCCURS 0.
DATA node_itab_right LIKE node_str OCCURS 0.
DATA node LIKE node_str.
DATA container TYPE REF TO cl_gui_custom_container.
DATA splitter TYPE REF TO cl_gui_easy_splitter_container.
DATA right TYPE REF TO cl_gui_container.
DATA left TYPE REF TO cl_gui_container.
DATA tree_right TYPE REF TO cl_gui_simple_tree.
DATA tree_left TYPE REF TO cl_gui_simple_tree.
DATA behaviour_left TYPE REF TO cl_dragdrop.
DATA behaviour_right TYPE REF TO cl_dragdrop.
DATA handle_tree_left TYPE i.
DATA handle_tree_right TYPE i.
*---------------------------------------------------------------------*
* CLASS lcl_treeobject DEFINITION
*---------------------------------------------------------------------*
* Definition of Data Container *
*---------------------------------------------------------------------*
CLASS lcl_drag_object DEFINITION.
PUBLIC SECTION.
DATA text TYPE STANDARD TABLE OF mtreesnode-text.
ENDCLASS.
*---------------------------------------------------------------------*
* CLASS dragdrop_receiver DEFINITION
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
CLASS lcl_dragdrop_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
flavor_select FOR EVENT on_drop_get_flavor OF cl_gui_simple_tree
IMPORTING node_key flavors drag_drop_object,
left_drag FOR EVENT on_drag_multiple OF cl_gui_simple_tree
IMPORTING node_key_table drag_drop_object,
right_drop FOR EVENT on_drop OF cl_gui_simple_tree
IMPORTING node_key drag_drop_object,
drop_complete FOR EVENT on_drop_complete_multiple OF
cl_gui_simple_tree
IMPORTING node_key_table drag_drop_object.
* Drag Drop behaviour of tree control nodes are defined in the node
* structure
PERFORM fill_tree CHANGING handle_tree_left node_itab_left.
CALL METHOD tree_left->add_nodes
EXPORTING node_table = node_itab_left
table_structure_name = 'NODE_STR'.
* registration of drag and drop events
DATA dragdrop TYPE REF TO lcl_dragdrop_receiver.
CREATE OBJECT dragdrop.
SET HANDLER dragdrop->flavor_select FOR tree_right.
SET HANDLER dragdrop->left_drag FOR tree_left.
SET HANDLER dragdrop->right_drop FOR tree_right.
SET HANDLER dragdrop->drop_complete FOR tree_left.
*---------------------------------------------------------------------*
* CLASS DRAGDROP_RECEIVER IMPLEMENTATION
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
CLASS lcl_dragdrop_receiver IMPLEMENTATION.
METHOD flavor_select.
IF node_key <> 'Root'.
SEARCH flavors FOR 'Tree_move'.
IF sy-subrc = 0.
CALL METHOD drag_drop_object->set_flavor
EXPORTING newflavor = 'Tree_move'.
ELSE.
CALL METHOD drag_drop_object->abort.
ENDIF.
ELSE.
SEARCH flavors FOR 'Tree_copy'.
IF sy-subrc = 0.
CALL METHOD drag_drop_object->set_flavor
EXPORTING newflavor = 'Tree_copy'.
ELSE.
CALL METHOD drag_drop_object->abort.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD left_drag.
DATA drag_object TYPE REF TO lcl_drag_object.
DATA node_key TYPE node_str-node_key.
CREATE OBJECT drag_object.
LOOP AT node_key_table INTO node_key.
READ TABLE node_itab_left WITH KEY node_key = node_key
INTO node.
APPEND node-text TO drag_object->text.
ENDLOOP.
drag_drop_object->object = drag_object.
ENDMETHOD.
METHOD right_drop.
DATA drag_object TYPE REF TO lcl_drag_object.
data new_nodes like node_itab_right.
data new_node type node_str.
CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.
drag_object ?= drag_drop_object->object.
ENDCATCH.
IF sy-subrc = 1.
" data object has unexpected class
" => cancel Drag & Drop operation
CALL METHOD drag_drop_object->abort.
EXIT.
ENDIF.
loop at drag_object->text into new_node-text.
perform add_node changing node_key new_node new_nodes
node_itab_left.
endloop.
call method tree_right->add_nodes
exporting node_table = new_nodes
table_structure_name = 'NODE_STR'.
ENDMETHOD.
METHOD drop_complete.
DATA node_key TYPE node_str-node_key.
IF drag_drop_object->flavor = 'Tree_move_to_Edit'.
LOOP AT node_key_table INTO node_key.
CALL METHOD tree_left->delete_node
EXPORTING node_key = node_key.
DELETE node_itab_left WHERE node_key = node_key.
ENDLOOP.
ENDIF.
ENDMETHOD.
ENDCLASS.
*&---------------------------------------------------------------------*
*& Form ADD_NODE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_NEW_NODE text
* <--P_NEW_NODES text
* <--P_NODE_ITAB_LEFT text
*----------------------------------------------------------------------*
FORM ADD_NODE CHANGING node_key
NEW_NODE type node_str
NEW_NODES like node_itab_left
NODE_ITAB_LEFT like node_itab_left.
data lines type i.
describe table node_itab_left lines lines.
new_node-node_key = lines.
new_node-isfolder = 'X'.
new_node-dragdropid = handle_tree_right.
new_node-relatkey = node_key.
APPEND new_node TO new_nodes.
append new_node to node_itab_left.
ENDFORM. " ADD_NODE
****************************************************************
* This file was generated by Direct Download Enterprise. *
* Please do not change it manually. *
****************************************************************
%_DYNPRO
RSDEMO_DRAG_DROP_TREE_MULTI
0100
620
40
%_HEADER
RSDEMO_DRAG_DROP_TREE_MULTI 0100 0100 21 83192 35 0 0 21 83 0G D 20001113153750
%_DESCRIPTION
Drag & Drop Example
%_FIELDS
CONTAINER 83 00 00 00 30 00 2 2 0 0 0 20 U 1 1 102
OK_CODE CHAR 20 80 10 00 00 00 255 1 O 0 0 0
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
MODULE STArt.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
module exit at exit-command.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
