ABAP 选择屏幕搜索帮助
点击上方 蓝字 关注我们
You’l l never get ahead by blaming your problems on other people.
怪罪别人绝不会让你获得成功。
说 明
本文介绍ABAP如何在选择屏幕实现搜索帮助：
1、通过 ** MATCHCODE OBJECT， ** 将搜索帮助关联到屏幕元素；
2、通过 ** F4IF_INT_TABLE_VALUE_REQUEST ** 函数实现；
实 现
** 1\. 带出单字段 **
** 效果： **
** 代码： **
PARAMETERS p_bname TYPE char12 . " 用户名
INITIALIZATION .
%_p_bname_%_app_% \- text = ' 用户名 ' .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bname .
SELECT bname , trdat , ltime , gltgv , gltgb , uflagFROM usr02 INTO TABLE @DATA ( lt_usr02 ) UP TO 10 ROWS .
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'EXPORTING
retfield = 'BNAME' " 内表字段
dynpprog = sy \- repid
dynpnr = sy \- dynnr
dynprofield = 'P_BNAME' " 屏幕字段
value_org = 'S'
TABLES
value_tab = lt_usr02 . " 数据内表** 2\. 带出多字段 **
** 效果： **
** 代码： **
PARAMETERS p_bname TYPE char12 . " 用户名
PARAMETERS p_trdat TYPE usr02 \- trdat . " 上次登录日期
PARAMETERS p_ltime TYPE usr02 \- ltime . " 上次登录时间
PARAMETERS p_gltgv TYPE usr02 \- gltgv . " 有效自
PARAMETERS p_gltgb TYPE usr02 \- gltgb . " 有效至
PARAMETERS p_uflag TYPE usr02 \- uflag . " 锁定
INITIALIZATION .
%_p_bname_%_app_% \- text = ' 用户名 ' .
%_p_trdat_%_app_% \- text = ' 上次登录日期 ' .
%_p_ltime_%_app_% \- text = ' 上次登录时间 ' .
%_p_gltgv_%_app_% \- text = ' 有效自 ' .
%_p_gltgb_%_app_% \- text = ' 有效至 ' .
%_p_uflag_%_app_% \- text = ' 锁定 ' .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bname .
SELECT bname , trdat , ltime , gltgv , gltgb , uflagFROM usr02 INTO TABLE @DATA ( lt_usr02 ) UP TO 10 ROWS .
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'EXPORTING
retfield = 'BNAME' " 内表字段
dynpprog = sy \- repid
dynpnr = sy \- dynnr
dynprofield = 'P_BNAME' " 屏幕字段
value_org = 'S'
display = 'F'
callback_program = sy \- repid
callback_form = 'CB_FORM'
TABLES
value_tab = lt_usr02 . " 数据内表FORM cb_form TABLES record_tab STRUCTURE seahlpresCHANGING shlp TYPE shlp_descr
callcontrol LIKE ddshf4ctrl .
DATA ls_interface LIKE LINE OF shlp \- interface .
CLEAR ls_interface .
READ TABLE shlp \- interface INTO ls_interface INDEX 1 .
ls_interface \- shlpfield+4 ( 1 ) = '2' .
ls_interface \- valfield = 'P_TRDAT' .
ls_interface \- value = '' .
APPEND ls_interface TO shlp \- interface .ls_interface \- shlpfield+4 ( 1 ) = '3' .
ls_interface \- valfield = 'P_LTIME' .
ls_interface \- value = '' .
APPEND ls_interface TO shlp \- interface .
ENDFORM .以上是今日分享，希望对你有所帮助~~~
欢迎点赞、留言、分享
往期推荐
[ 编辑器书签功能
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247490249&idx=1&sn=8484955e9be056dee8a0c3f152dfb797&chksm=cf09ce27f87e47310db465d10241a736e922f914cb5cfeb74ba0e3d99232af52e7a818a928b6&scene=21#wechat_redirect)
[ 编辑器自定义字体和颜色
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247490032&idx=1&sn=3576b0e8dd87184ff1883489747d459e&chksm=cf09cd1ef87e44085c37b24e0044e08f857beb425cb2d53d7af3b1e4eec7d003ce587bf56271&scene=21#wechat_redirect)
[ 代码片段保存
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247488080&idx=1&sn=388ddf805efd47fb9df7a663bcafe375&chksm=cf09c6bef87e4fa82459a5ca6b47e63a436db0dc44c3298bb3af7b6f6856744f1ad535fa38e6&scene=21#wechat_redirect)
点个 在看 你最好看
