ABAP获取文件保存路径

最新推荐文章于 2024-08-29 11:03:06 发布

燚㵘䲜

最新推荐文章于 2024-08-29 11:03:06 发布

阅读量1k

点赞数

分类专栏： 10.Abap

本文链接：https://blog.csdn.net/cly_apple/article/details/117701159

版权

10.Abap 专栏收录该内容

53 篇文章 4 订阅

订阅专栏

该博客内容涉及一个用于用户交互的程序段，通过调用GUI前端服务的文件保存对话框，让用户选择并确认文件下载的路径。如果用户未选择路径或文件名不包含'.XLS'，则会返回错误提示。程序主要关注用户输入验证和文件路径获取流程。

摘要由CSDN通过智能技术生成

REPORT Y_CLY_104X.


START-OF-SELECTION.

  DATA: P_FULLPATH   TYPE STRING.

  PERFORM FRM_GET_FILE_PATH CHANGING P_FULLPATH.

  WRITE: P_FULLPATH.

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_FILE_PATH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_P_FULLPATH  text
*----------------------------------------------------------------------*
FORM FRM_GET_FILE_PATH  CHANGING CV_FULLPATH.
  "路径
  DATA: L_FILENAME   TYPE STRING,
        L_PATH       TYPE STRING,
        L_FULLPATH   TYPE STRING.

  CLEAR: CV_FULLPATH.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
    EXPORTING
      WINDOW_TITLE         = '下载文件'
      FILE_FILTER          = ''
    CHANGING
      FILENAME             = L_FILENAME
      PATH                 = L_PATH
      FULLPATH             = L_FULLPATH
    EXCEPTIONS
      CNTL_ERROR           = 1
      ERROR_NO_GUI         = 2
      NOT_SUPPORTED_BY_GUI = 3
      OTHERS               = 4.

  IF L_PATH     IS INITIAL
  OR L_FILENAME IS INITIAL.     " 未选择路径，则返回
    RETURN.
  ELSE.
    TRANSLATE  L_FILENAME  TO UPPER CASE .
    FIND REGEX '.XLS' IN L_FILENAME.
    IF SY-SUBRC <> 0.
      MESSAGE '请填写完整路径！' TYPE 'E'.
      RETURN.
    ENDIF.
  ENDIF.

  CV_FULLPATH = L_FULLPATH.

ENDFORM.                    " FRM_GET_FILE_PATH