◆◆0

在弹出窗口中显示带checkbox的ALV(REUSE_ALV_POPUP_TO_SELECT)

石头 9月 13, 2016 ALV, 函数 10,391 views 0

发现一个很方便的ALV函数REUSE_ALV_POPUP_TO_SELECT，通过这一个函数就可以实现在弹出窗口中显示带checkbox的ALV。

完整代码如下：

REPORT z_popup_alv.
TYPE-POOLS: slis.
TABLES: spfli.
*--------------------------------------------------------------*
*Data Types
*--------------------------------------------------------------*
TYPES: BEGIN OF ty_spfli,
         check TYPE c.
        INCLUDE TYPE spfli.
TYPES: END OF ty_spfli.
*--------------------------------------------------------------*
*Data Declaration
*--------------------------------------------------------------*
DATA: gt_spfli     TYPE TABLE OF ty_spfli.
DATA: gwa_spfli    TYPE ty_spfli.
DATA: gwa_selfield TYPE slis_selfield.
*--------------------------------------------------------------*
*Selection-Screen
*--------------------------------------------------------------*
SELECT-OPTIONS: s_carrid FOR spfli-carrid.
*--------------------------------------------------------------*
* Start-of-selection
*--------------------------------------------------------------*
START-OF-SELECTION.

  CLEAR: gwa_selfield.
**Get data
  SELECT * FROM spfli INTO CORRESPONDING FIELDS OF
           TABLE gt_spfli.
**Remove duplicates
  DELETE ADJACENT DUPLICATES FROM gt_spfli COMPARING carrid.

  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
    EXPORTING
      i_checkbox_fieldname = 'CHECK'
      i_tabname            = 'GT_SPFLI'  " Internal table name
      i_structure_name     = 'SPFLI'
    IMPORTING
      es_selfield          = gwa_selfield
    TABLES
      t_outtab             = gt_spfli  " Internal table which contains entries
    EXCEPTIONS
      program_error        = 1
      OTHERS               = 2.

  REFRESH s_carrid.