[SAP ABAP] 选择屏幕(添加新按钮)
在选择屏幕的工具栏上添加新的按钮
程序代码
REPORT z437_test_2024.
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.
输出结果
原文地址:https://blog.csdn.net/Hudas/article/details/142946017
免责声明:本站文章内容转载自网络资源,如本站内容侵犯了原著者的合法权益,可联系本站删除。更多内容请关注自学内容网(zxcms.com)!