ABAP 选择屏幕添加新按钮
点击上方 蓝字 关注我们
Everything yo u've ever wanted is on the other side of fear.
你得先跨越恐惧才能获得你所想要的一切。
说 明
上篇中我们介绍了如何使用ABAP在选择屏幕GUI状态隐藏按钮， 本文则主要分享在工具栏添加新的按 钮，具体效果如下。
效 果
代 码
**添加单按钮**
SELECTION-SCREEN FUNCTION KEY 1 .PARAMETERS p_file LIKE rlgrap \- filename LOWER CASE .
TABLES : sscrfields , icon .
DATA gs_dyntxt TYPE smp_dyntxt .
INITIALIZATION .
%_p_file_%_app_% \- text = ' 文件路径 ' .
gs_dyntxt \- icon_id = '@0S@' .
gs_dyntxt \- icon_text = ' 程序说明 ' .
sscrfields \- functxt_01 = gs_dyntxt .
AT SELECTION-SCREEN .
CASE sscrfields \- ucomm .
WHEN 'FC01' .
WHEN OTHERS .
ENDCASE .**添加多按钮**
SELECTION-SCREEN FUNCTION KEY 1 .
SELECTION-SCREEN FUNCTION KEY 2 .PARAMETERS p_file LIKE rlgrap \- filename LOWER CASE .
TABLES : sscrfields , icon .
DATA gs_dyntxt TYPE smp_dyntxt .
DATA gv_dyntxt TYPE string .
FIELD-SYMBOLS <dyntxt> .
DEFINE add_dyntxt .
clear gs_dyntxt .
gs_dyntxt \- icon_id = &2 .
gs_dyntxt \- icon_text = &3 .
gs_dyntxt \- quickinfo = &4 .
gs_dyntxt \- text = '' .
gs_dyntxt \- path = '' .
concatenate 'SSCRFIELDS-FUNCTXT_0' &1 into gv_dyntxt .
assign ( gv_dyntxt ) to <dyntxt> .
if <dyntxt> is assigned .
<dyntxt> = gs_dyntxt .
endif .
END-OF-DEFINITION .INITIALIZATION .
%_p_file_%_app_% \- text = ' 文件路径 ' .
add_dyntxt '1' '@0S@' ' 程序说明 ' ' 程序功能说明 ' .
add_dyntxt '2' '@J2@' ' 下载模版 ' ' 下载批导模版 ' .
AT SELECTION-SCREEN .
CASE sscrfields \- ucomm .
WHEN 'FC01' .
WHEN 'FC02' .
WHEN OTHERS .
ENDCASE .AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file .
CALL FUNCTION 'WS_FILENAME_GET'EXPORTING
def_path = p_file
mask = '*.xls.'
mode = '0'
title = ' 请选择导入文件 '
IMPORTING
filename = p_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5 .
以上是今日分享，希望对你有所帮助~~~
欢迎点赞、留言、分享
往期推荐
[ ABAP 选择屏幕-隐藏执行按钮
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247492277&idx=1&sn=3df11861fee65ae0492a4810cbe8d76a&chksm=cf0a365bf87dbf4dec94c72b48c67ac2265b548792140f3fc4e34b9074298ef7cf3f08ee45e3&scene=21#wechat_redirect)
[ ABAP 选择屏幕-页签展示
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247492081&idx=1&sn=f5d1a392a99b079b7fbc28a409c0e615&chksm=cf0a351ff87dbc099263f9003abaa1946c31c846808c3674faef4dea18d64334a8675a4647b9&scene=21#wechat_redirect)
[ ABAP 选择屏幕-展开/折叠屏幕元素
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247492011&idx=1&sn=dfbffbc946959c6339193a2323407f9f&chksm=cf0a3545f87dbc53268496f126c19668ae6ea23516c0bd2ae7200e682f8a79cc8333f90a953c&scene=21#wechat_redirect)
[ ABAP 选择屏幕-搜索帮助
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247491935&idx=1&sn=2eddfb9d5dce509facd77c83cbdac89f&chksm=cf0a35b1f87dbca7175e5e95e18721e563750b82cb6c98ff6707e971c8225ad8737d016e473f&scene=21#wechat_redirect)
[ ABAP 选择屏幕-下拉列表
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247491445&idx=1&sn=dcd5be40650ec9b9dbf714f1cfaacf2a&chksm=cf09cb9bf87e428d7e84c7b89d6543a74413760bf53806021b0ff89cb2968374bcdb712d3111&scene=21#wechat_redirect)
点个 在看 你最好看
