单独执行某个条件，增加单独执行按钮

最新推荐文章于 2021-04-15 08:34:24 发布

SAPHOME

最新推荐文章于 2021-04-15 08:34:24 发布

阅读量1.1k

点赞数

分类专栏： ABAP 文章标签： file dialog parameters table report filter

本文链接：https://blog.youkuaiyun.com/SAPHOME/article/details/2194719

版权

ABAP 专栏收录该内容

42 篇文章

订阅专栏

REPORT Ztest.
tables: SSCRFIELDS.
TYPE-POOLS icon.

selection-screen begin of line.
selection-screen comment 1(28) text-201 .
selection-screen position 30.
parameters: p_file1 LIKE rlgrap-filename DEFAULT 'C:/'.
SELECTION-SCREEN PUSHBUTTON 78(10) EXEC1 USER-COMMAND OK1.
selection-screen end of line.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
PERFORM select_file CHANGING p_file1.

INITIALIZATION.
* t_repid = sy-repid.
CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name   = ICON_EXECUTE_OBJECT
      text   = ''
      info   = 'EXEC'
    IMPORTING
      RESULT = EXEC1
    EXCEPTIONS
      OTHERS = 0.

AT SELECTION-SCREEN.
CASE SSCRFIELDS-UCOMM.
WHEN 'OK1'.
SEARCH p_file1 FOR '.XLS'.

ENDCASE.
*&---------------------------------------------------------------------*
*&      Form SELECT_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_P_FILE1 text
*----------------------------------------------------------------------*
FORM select_file CHANGING t_selfile.
DATA: l_rc         TYPE i,
        l_filetable TYPE filetable.
* Open The txt File
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = '请选择导入文件'
      file_filter             = 'Excel(*.XLS)|*.XLS|全部文件 (*.*)|*.*|'
      multiselection          = space
    CHANGING
      file_table              = l_filetable
      rc                      = l_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.