实现ALV Grid 和A…

原文地址：实现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
*&
*&---------------------------------------------------------------------*
*&copy 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的树结构拖拽，可以参考上述两个程序。