Function实现ALV Table 三：功能设计（图解）

来源：互联网发布：centos php一键安装包编辑：程序博客网时间：2024/04/30 01:54

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

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

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

FORM set_func_exculding TABLES pt_extab TYPEslis_t_extab.

DATA lwa_extabLIKE LINE OF pt_extab.

lwa_extab-fcode ='%SL'.

APPEND lwa_extabTO 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使用自己创建的GUIStatus。

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_messageTYPE string.

CASE r_ucomm.

WHEN'FUNCTION'.

MESSAGEi000(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

INTOl_message

SEPARATED BY space.

MESSAGEi000(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 TABLESpt_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 USINGrt_extab TYPE slis_t_extab.

SET PF-STATUS 'SLVC_FULLSCREEN' EXCLUDINGrt_extab.

ENDFORM. "set_pf_status

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

*& Form user_command

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

* user command

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

* -->R_UCOMM function code

* -->RS_SELFIELD select field structure

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

FORM user_command USING r_ucommTYPE sy-ucomm

rs_selfield TYPEslis_selfield.

DATA l_message TYPE string.

CASE r_ucomm.

WHEN 'FUNCTION'.

MESSAGE i000(ytest) WITH 'You ClickButton ''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 CHANGINGpt_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

Function实现ALV Table 三：功能设计 （图解）

Function实现ALV Table 三：功能设计（图解）