[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.

输出结果