Function实现ALV Table 三：功能设计

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