Function实现ALV Table 三：功能设计

rel="File-List" href="file:///C:%5CWINDOWS%5CTEMP%5Cmsohtml1%5C01%5Cclip_filelist.xml"> rel="Edit-Time-Data" href="file:///C:%5CWINDOWS%5CTEMP%5Cmsohtml1%5C01%5Cclip_editdata.mso">

ALV默认提供了一些标准的功能选择供我们来操作ALV列表，但是这些功能有可能某些是我们不需要用的，想把它隐藏掉，或者某些功能无法做到，就得自定义功能按钮。

 

一、 去掉不必要的功能按钮

REUSE_ALV_GRID_DISPLAY提供了一个参数it_exculding来去掉你不想要的ALV功能。

FORM set_func_exculding TABLES pt_extab TYPE slis_t_extab.

  DATA lwa_extab LIKE LINE OF pt_extab.

 

  lwa_extab-fcode = '%SL'.

  APPEND lwa_extab TO pt_extab.

ENDFORM.                    "set_status_exculding

 

二、 自定义功能按钮

REUSE_ALV_GRID_DISPLAY有一个参数i_callback_pf_status_set用来设置ALV列表指定的GUI Status。还有一个参数i_callback_user_command用来设置用户自定义的功能动作。

1.       首先要自己创建一个GUI Status，并设置好自定义按钮

2.       设置ALV使用自己创建的GUI Status。

FORM set_pf_status USING rt_extab TYPE slis_t_extab.

  SET PF-STATUS 'SLVC_FULLSCREEN' EXCLUDING rt_extab.

ENDFORM.                    "set_pf_status

3.       设置用户点击自定义的功能按钮之后的动作。

FORM user_command USING r_ucomm TYPE sy-ucomm

                        rs_selfield TYPE slis_selfield.

  DATA l_message TYPE string.

  CASE r_ucomm.

    WHEN 'FUNCTION'.

      MESSAGE i000(ytest) WITH 'You Click Button ''My Func'''.

    WHEN '&IC1'.

      l_message = rs_selfield-tabindex.

      CONCATENATE 'Double Click,'

                   'Row:'

                   l_message

                   'Value:'

                   rs_selfield-value

                   'Fieldname:'

                   rs_selfield-fieldname

      INTO l_message

      SEPARATED BY space.

      MESSAGE i000(ytest) WITH l_message.

  ENDCASE.

ENDFORM.                    "user_command

 

下面是效果图

 

源代码

TYPE-POOLS slis.

 

PERFORM f_main.

 

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

*&      Form  f_main

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

*       ALV display

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

FORM f_main.

  DATA: lt_spfli TYPE TABLE OF spfli,

        lt_fieldcat TYPE slis_t_fieldcat_alv,

        lt_extab TYPE slis_t_extab.

 

  PERFORM get_data TABLES lt_spfli.

 

  PERFORM set_catalog CHANGING lt_fieldcat.

 

  PERFORM set_func_exculding TABLES lt_extab.

 

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_callback_program       = sy-repid

      it_fieldcat              = lt_fieldcat

      it_excluding             = lt_extab

      i_callback_pf_status_set = 'SET_PF_STATUS'

      i_callback_user_command  = 'USER_COMMAND'

    TABLES

      t_outtab                 = lt_spfli.

ENDFORM.                    "f_main

 

 

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

*&      Form  set_func_exculding

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

*       set function exculding

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

*      -->PT_EXTAB   the function code which will be exculded

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

FORM set_func_exculding TABLES pt_extab TYPE slis_t_extab.

  DATA lwa_extab LIKE LINE OF pt_extab.

 

  lwa_extab-fcode = '%SL'.

  APPEND lwa_extab TO pt_extab.

ENDFORM.                    "set_status_exculding

 

 

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

*&      Form  set_pf_status

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

*       set GUI stauts

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

*      -->RT_EXTAB   the function code which will be exculded

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

FORM set_pf_status USING rt_extab TYPE slis_t_extab.

  SET PF-STATUS 'SLVC_FULLSCREEN' EXCLUDING rt_extab.

ENDFORM.                    "set_pf_status

 

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

*&      Form  user_command

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

*       user command

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

*      -->R_UCOMM      function code

*      -->RS_SELFIELD  select field structure

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

FORM user_command USING r_ucomm TYPE sy-ucomm

                        rs_selfield TYPE slis_selfield.

  DATA l_message TYPE string.

  CASE r_ucomm.

    WHEN 'FUNCTION'.

      MESSAGE i000(ytest) WITH 'You Click Button ''My Func'''.

    WHEN '&IC1'.

      l_message = rs_selfield-tabindex.

      CONCATENATE 'Double Click,'

                   'Row:'

                   l_message

                   'Value:'

                   rs_selfield-value

                   'Fieldname:'

                   rs_selfield-fieldname

      INTO l_message

      SEPARATED BY space.

      MESSAGE i000(ytest) WITH l_message.

  ENDCASE.

ENDFORM.                    "user_command

 

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

*&      Form  get_data

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

*       Get the data for output

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

*      -->PT_SPFLI   data internal table

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

FORM get_data TABLES pt_spfli.

  SELECT * FROM spfli INTO TABLE pt_spfli.

ENDFORM.                    "get_data

 

 

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

*&      Form  set_catalog

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

*       set fieldcatalog for alv output

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

FORM set_catalog CHANGING pt_fieldcat TYPE slis_t_fieldcat_alv.

  DATA lwa_fieldcat TYPE slis_fieldcat_alv.

 

  "macro

  DEFINE add_field.

    clear lwa_fieldcat.

    lwa_fieldcat-col_pos   = &1.

    lwa_fieldcat-fieldname = &2.

    lwa_fieldcat-seltext_l = &3.

    append lwa_fieldcat to pt_fieldcat.

  END-OF-DEFINITION.

 

  "add field catalog

  add_field 1  'MANDT'     'Client'.

  add_field 2  'CARRID'    'Airline Code'.

  add_field 3  'CONNID'    'Fight Number'.

  add_field 4  'COUNTRYFR' 'Country From'.

  add_field 5  'CITYFROM'  'City From'.

  add_field 6  'AIRPFROM'  'Airpart From'.

  add_field 7  'COUNTRYTO' 'Country To'.

  add_field 8  'CITYTO'    'City To'.

  add_field 9  'AIRPTO'    'Airpart To'.

  add_field 10 'FLTIME'    'Fly Time'.

  add_field 11 'DEPTIME'   'Dept Time'.

  add_field 12 'ARRTIME'   'Arrive Time'.

  add_field 13 'DISTANCE'  'Distance'.

  add_field 14 'DISTID'    'Mass unit of distance'.

  add_field 15 'FLTYPE'    'Flight type'.

  add_field 16 'PERIOD'    'Arrival n day(s) later'.

 

ENDFORM.                    "set_catalog