ALV : Drag and Drop on rows

REPORT zalv_dragndrop.


*Structure declaration for T016T


TYPES : BEGIN OF ty_t016t,


brsch TYPE brsch,


brtxt TYPE text1_016t,


spras TYPE spras,


END OF ty_t016t.


*Work area and internal table for T016T


DATA : it_t016t TYPE STANDARD TABLE OF ty_t016t,


wa_t016t TYPE ty_t016t.


*class declaration


CLASS lcl_objdragdropapp DEFINITION DEFERRED.


*data declarations for alv


DATA: c_dragdropapp TYPE REF TO lcl_objdragdropapp,


c_dockingcont TYPE REF TO cl_gui_docking_container,


c_alv TYPE REF TO cl_gui_alv_grid,


* reference variable to CL_DRAGDROP:


c_dragdropalv TYPE REF TO cl_dragdrop,


it_layout TYPE lvc_s_layo,


it_fcat TYPE lvc_t_fcat. "Field catalogue


*declarations for handle event


DATA: effect TYPE i,


handle_alv TYPE i.


*start of selection event


START-OF-SELECTION.


*select data


PERFORM fetch_data.


*ALV output


PERFORM alv_output.


* Class definitions and method implementation for drag and drop


CLASS lcl_dragdrop DEFINITION.


PUBLIC SECTION.


DATA: wa TYPE ty_t016t,


index TYPE i. "Index of Line to be moved


ENDCLASS. "LCL_DRAGDROP DEFINITION


*Application class definition


CLASS lcl_objdragdropapp DEFINITION.


PUBLIC SECTION.


METHODS:


*Handling Event Drag


handle_alv_drag


FOR EVENT ondrag


OF cl_gui_alv_grid


IMPORTING e_row e_column e_dragdropobj,


*Handling event DROP


handle_alv_drop


FOR EVENT ondrop


OF cl_gui_alv_grid


IMPORTING e_row e_column e_dragdropobj.


ENDCLASS. "LCL_objdragdropapp DEFINITION


*Application class implementation


CLASS lcl_objdragdropapp IMPLEMENTATION.


* OnDrag event is used to 'fetch' information from the drag source.


METHOD handle_alv_drag.


DATA: dataobj TYPE REF TO lcl_dragdrop,


line TYPE ty_t016t.


* Read dragged row


READ TABLE it_t016t INDEX e_row-index INTO line.


* create and fill dataobject for events ONDROP


CREATE OBJECT dataobj.


* Remembering row index to move a line


MOVE e_row-index TO dataobj->index.


* store the dragged line.


READ TABLE it_t016t INTO dataobj->wa INDEX e_row-index.


* Assigning data object to the refering event parameter


e_dragdropobj->object = dataobj.


ENDMETHOD. "HANDLE_ALV_DRAG


*Event handler for event 'OnDrop'. This event is used


*to use your dragged information in combination with your drop source.


METHOD handle_alv_drop.


DATA: dataobj TYPE REF TO lcl_dragdrop,


drop_index TYPE i,


stable TYPE lvc_s_stbl.


* Refresh Alv Grid Control without scrolling


stable-row = 'X'.


stable-col = 'X'.


* Catch-Statement to ensure the drag&drop-Operation is aborted properly.


CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.


dataobj ?= e_dragdropobj->object.


DELETE it_t016t INDEX dataobj->index.


INSERT dataobj->wa INTO it_t016t INDEX e_row-index.


*Refreshing the ALV


CALL METHOD c_alv->refresh_table_display


EXPORTING


i_soft_refresh = 'X'


is_stable = stable.


ENDCATCH.


IF sy-subrc <> 0.


* If anything went wrong aborting the drag and drop operation:


CALL METHOD e_dragdropobj->abort.


ENDIF.


ENDMETHOD. "HANDLE_ALV_DROP


ENDCLASS. "LCL_objdragdropapp IMPLEMENTATION


*&---------------------------------------------------------------------*


*& Form alv_output


*&---------------------------------------------------------------------*


FORM alv_output .


CALL SCREEN 600.


ENDFORM. " alv_output


** Calling the ALV screen with custom container


*On this statement double click it takes you to the screen painter SE51.


*Enter the attributes


*Create a Custom container and name it CC_CONT and OK code as OK_CODE.


*Save check and Activate the screen painter.


*Now a normal screen with number 600 is created which holds the ALV grid.


* PBO of the actual screen ,Here we can give a title and customized menus


*&---------------------------------------------------------------------*


*& Module STATUS_0600 OUTPUT


*&---------------------------------------------------------------------*
MODULE status_0600 OUTPUT.


* SET PF-STATUS 'xxxxxxxx'.


* SET TITLEBAR 'xxx'.


IF c_alv IS INITIAL.


PERFORM alv_controls.


ENDIF.


ENDMODULE. " STATUS_0600 OUTPUT


*&---------------------------------------------------------------------*


*& Form alv_CONTROLS


*&---------------------------------------------------------------------*


FORM alv_controls.


* create docking container for alv control


CREATE OBJECT c_dockingcont


EXPORTING


dynnr = '600'


extension = 300


side = cl_gui_docking_container=>dock_at_top.


* create alv control


CREATE OBJECT c_alv


EXPORTING i_parent = c_dockingcont.


* create the application object to handle the ABAP Objects Events


CREATE OBJECT c_dragdropapp.


* Events alv control


*For Dragging


SET HANDLER c_dragdropapp->handle_alv_drag FOR c_alv.


*For Dropping


SET HANDLER c_dragdropapp->handle_alv_drop FOR c_alv.


* build tree nodes for drag&drop


PERFORM build_handle.


* Fieldcatalogue for ALV


PERFORM alv_build_fieldcat.


* ALV attributes FOR LAYOUT


PERFORM alv_report_layout.


* Call ALV GRID


CALL METHOD c_alv->set_table_for_first_display


EXPORTING


is_layout = it_layout


CHANGING


it_outtab = it_t016t


it_fieldcatalog = it_fcat


EXCEPTIONS


invalid_parameter_combination = 1


program_error = 2


too_many_lines = 3


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.


ENDFORM. "ALV_CONTROLS


*&---------------------------------------------------------------------*


*& Form build_handle


*&---------------------------------------------------------------------*
FORM build_handle.


* define a drag & Drop behaviour for the whole grid


CREATE OBJECT c_dragdropalv.


effect = cl_dragdrop=>move + cl_dragdrop=>copy.


CALL METHOD c_dragdropalv->add


EXPORTING


flavor = 'Line'


dragsrc = 'X'


droptarget = 'X'


effect = effect.


*getting the handle for drag and drop


CALL METHOD c_dragdropalv->get_handle


IMPORTING


handle = handle_alv.


ENDFORM. " build_handle


*&---------------------------------------------------------------------*


*& Form fetch_data


*&---------------------------------------------------------------------*
FORM fetch_data .


* select and display data from t016


SELECT brtxt brsch spras FROM t016t INTO CORRESPONDING FIELDS OF TABLE it_t016t


WHERE spras = 'EN'.


ENDFORM. " fetch_data


*&---------------------------------------------------------------------*


*& Form alv_report_layout


*&---------------------------------------------------------------------*
FORM alv_report_layout .


it_layout-grid_title = 'ALV Drag Drop'.


* provide handle to alv control to all rows for same drag & drop behaviour


it_layout-s_dragdrop-row_ddid = handle_alv.


ENDFORM. " alv_report_layout


*&---------------------------------------------------------------------*


*& Form alv_build_fieldcat


*&---------------------------------------------------------------------*
FORM alv_build_fieldcat .


DATA lv_fldcat TYPE lvc_s_fcat.


CLEAR lv_fldcat.


lv_fldcat-row_pos = '1'.


lv_fldcat-col_pos = '1'.


lv_fldcat-fieldname = 'BRSCH'.


lv_fldcat-tabname = 'IT_T016T'.


lv_fldcat-outputlen = 8.


lv_fldcat-scrtext_m = 'Industry'.


APPEND lv_fldcat TO it_fcat.


CLEAR lv_fldcat.


lv_fldcat-row_pos = '1'.


lv_fldcat-col_pos = '2'.


lv_fldcat-fieldname = 'BRTXT'.


lv_fldcat-tabname = 'IT_T016T'.


lv_fldcat-outputlen = 15.


lv_fldcat-scrtext_m = 'Description'.


APPEND lv_fldcat TO it_fcat.


CLEAR lv_fldcat.


ENDFORM. " alv_build_fieldcat


* PAI module of the screen created. In case we use an interactive ALV or


*for additional functionalities we can create OK codes


*and based on the user command we can do the coding.


*&---------------------------------------------------------------------*


*& Module USER_COMMAND_0600 INPUT


*&---------------------------------------------------------------------*

MODULE user_command_0600 INPUT.


ENDMODULE. " USER_COMMAND_0600 INPUT