您的位置:首页 > 编程语言

如何给屏幕字段(下拉框和输入框)用代码添加F4 search help

2011-07-22 10:29 393 查看
有些时候我们可能要对屏幕上一些字段用代码写实现search help功能
下面用一个简单例子演示:

*&----------------------------------------------------------------*
*& Report ztest_pillar *
*&----------------------------------------------------------------*

report ztest_pillar.

* Global Data

TYPES: BEGIN OF type_carrid,
carrid TYPE spfli-carrid,
carrname TYPE scarr-carrname,
END OF type_carrid.

DATA itab_carrid TYPE STANDARD TABLE OF type_carrid.

* Selection Screen

parameters airline(2) type c.

*&---------------------------------------------------------------------*
*& Processing Blocks called by the Runtime Environment *
*&---------------------------------------------------------------------*

* Event Block AT SELECTION-SCREEN ON VALUE-REQUEST FOR

at selection-screen on value-request for airline.
perform frm_f4_help.

* Form for generating F4 HELP for parameter AIRLINE

form FRM_F4_HELP .
SELECT carrid carrname
FROM scarr
INTO CORRESPONDING FIELDS OF TABLE itab_carrid.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'CARRID' "指定要返回屏幕参数的在内表中的field
value_org = 'S' "S代表structure
dynpprog = sy-repid "指定屏幕参数所在的程序名称
dynpnr = sy-dynnr "指定参数所在的屏幕编号
dynprofield = 'AIRLINE'"指定屏幕参数的名称
TABLES
value_tab = itab_carrid "内表
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
...
ENDIF.
endform. " FRM_F4_HELP
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: