实现ALV Grid 和A…

原文地址：Grid 和ALV Tree的拖拽功能">实现ALV Grid 和ALV Tree的拖拽功能作者：sap侠之大者使用class CL_GUI_ALV_TREE
和CL_GUI_ALV_GRID的ON_DRAG、ON_DROP 事件来实现相应的拖拽功能。
ALV Grid的示例程序如下，此程序可以通过拖拽来改变ALV控件数据行的顺序：
1、创建一个600屏幕，只需一个屏幕元素OK_CODE即可
2、创建一个gui status，命名为STATUS，增加对退出按钮的相应
*&---------------------------------------------------------------------*

*& Report YZ_TEST32

*&

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

*© from SAPTechnical.com

*&ALV report with drag and drop functionality on its rows

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

REPORT YZ_TEST32.

*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.

DATA OK_CODE LIKE SY-UCOMM.

*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.

*initialization event

INITIALIZATION.

*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

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

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

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

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

* text

*----------------------------------------------------------------------*

MODULE STATUS_0600 OUTPUT.

SET PF-STATUS 'STATUS'.

* SET TITLEBAR 'xxx'.

IF C_ALV IS INITIAL.

PERFORM ALV_CONTROLS.

ENDIF.

ENDMODULE. " STATUS_0600 OUTPUT

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

*& Form alv_CONTROLS

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

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

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

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

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

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

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

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

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

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

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

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

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

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

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

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

* text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0600 INPUT.

OK_CODE = SY-UCOMM.

CASE OK_CODE.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN OTHERS.

ENDCASE.

ENDMODULE. " USER_COMMAND_0600 INPUT

ALV
Tree的示例程序：BCALV_GRID_DND_TREE，
可以将左侧ALV TREE的节点拖拽到右侧的ALV上。
实现ALV TREE的树结构拖拽，可以参考上述两个程序。