abap 选择屏幕文件、路径选取模板 (转)

转:

*&---------------------------------------------------------------------*
*& Report  Z_BARRY_FILE_SELECT
*&
*&---------------------------------------------------------------------*
*& 文件、路径选取模板
*& 
*&---------------------------------------------------------------------*
REPORT  z_barry_file_select.
TABLES rlgrap.
DATA: gd_path TYPE string.
DATA: it_tab TYPE filetable,
      gd_subrc TYPE i.
DATA: ld_filename TYPE string,
      ld_path TYPE string,
      ld_fullpath TYPE string,
      ld_result TYPE i,
      gd_file TYPE c.
SELECT-OPTIONS openfile FOR rlgrap-filename.
PARAMETERS: savefile TYPE  rlgrap-filename.
PARAMETERS: filepath LIKE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filepath.
  CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title    = ‘File Directory‘
      initial_folder  = ‘C:‘
    CHANGING
      selected_folder = gd_path.
  CALL METHOD cl_gui_cfw=>flush.
  CONCATENATE gd_path ‘‘ INTO filepath.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR openfile-low.
  REFRESH: it_tab.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title     = ‘Select File‘
      default_filename = ‘*.txt‘
      multiselection   = ‘X‘
    CHANGING
      file_table       = it_tab
      rc               = gd_subrc.
  LOOP AT it_tab INTO openfile-low.
    openfile-sign = ‘I‘.
    openfile-option = ‘EQ‘.
    APPEND openfile.
  ENDLOOP.
  CALL METHOD cl_gui_cfw=>flush.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR savefile.
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      default_extension = ‘XLS‘
      default_file_name = ‘accountsdata‘
      initial_directory = ‘c:/temp/‘
    CHANGING
      filename          = ld_filename
      path              = ld_path
      fullpath          = ld_fullpath
      user_action       = ld_result.
  savefile  = ld_fullpath.

选择文件夹

PARAMETERS p_ifname TYPE rlgrap-filename.  "import rfq file 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_efname. 
     CALL FUNCTION ‘TMP_GUI_BROWSE_FOR_FOLDER‘
    EXPORTING
      window_title    = ‘Select Folder...‘(004)
      initial_folder  = ‘‘
    IMPORTING
      selected_folder = p_ifname
    EXCEPTIONS
      cntl_error      = 1
      OTHERS          = 2.

FORM process_import_files USING p_file TYPE localfile.
  DATA: l_dir TYPE string,
        l_filecount TYPE i,
        l_result.
  DATA: lt_table TYPE STANDARD TABLE OF file_info.
  l_dir = p_file.
  "check path exist
  CALL METHOD cl_gui_frontend_services=>directory_exist
    EXPORTING
      directory            = l_dir
    RECEIVING
      result               = l_result
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      wrong_parameter      = 3
      not_supported_by_gui = 4
      OTHERS               = 5.
  IF sy-subrc = 0 AND l_result <> ‘X‘.
    MESSAGE ‘The folder does not exist.‘(006) TYPE ‘S‘ DISPLAY LIKE ‘E‘.
    RETURN.
*   Implement suitable error handling here
  ENDIF.
  CALL METHOD cl_gui_frontend_services=>directory_list_files
    EXPORTING
      directory                   = l_dir
*     filter                      = ‘*.*‘ "‘*.XLS;*.XLSX;*.XLSM‘
      files_only                  = ‘X‘
*     directories_only            =
    CHANGING
      file_table                  = lt_table
      count                       = l_filecount
    EXCEPTIONS
      cntl_error                  = 1
      directory_list_files_failed = 2
      wrong_parameter             = 3
      error_no_gui                = 4
      not_supported_by_gui        = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0 .
    .......
  ENDIF.
ENDFORM.                    " PROCESS_IMPORT_FILES

时间: 2024-11-08 06:08:08

abap 选择屏幕文件、路径选取模板 (转)的相关文章

abap选择屏幕上的按钮

1.背景:最近在看sap的一些abapDemo,看了一个比较好用的功能,分享一下,希望对用到的兄弟有帮助,主要功能是:在选择屏幕上弹出一个小窗口,放一些按钮在上面,触发不同按钮,会处理不同事务,如下图所示: 2.代码如下: REPORT ZTEST_SEL_SCREEN_PUSHBUTTON. TABLES SSCRFIELDS. DATA FLAG(1) TYPE C. SELECTION-SCREEN: BEGIN OF SCREEN 500 AS WINDOW TITLE TIT, BEG

ABAP 选择屏幕创建标签页

*&---------------------------------------------------------------------* *& Report ZTEST_TAB *& *&---------------------------------------------------------------------* *& *& *&--------------------------------------------------

ABAP——选择屏幕标题和ALV标题的修改(转)

1.Selection Screen标题的修改. 说明:选屏的标题是在程序刚创建时,对程序进行的最基本描述.举例如下: 然后生成选屏界面的标题,如图: 若是需要修改该标题,可按以下两步进行操作: (1)在ABAP编辑器页面,选择“转到”-->“属性” (2)在新弹出的对话框中,对标题进行修改,然后执行“保存”,并激活程序,即可查看效果. 效果如图,perfect. 2.ALV标题的修改. 举例:修改上图中2和3处的标题 (1)2处的修改方式:T-CODE:SE93,进入事务代码的维护界面,修改事

选择屏幕(Selection Screen)

声明:原创作品,转载时请注明文章来自SAP师太技术博客:www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将追究法律责任!原文链接:http://www.cnblogs.com/jiangzhengjun/p/4292295.html 选择屏幕(Selection Screen). 156 创建选择屏幕... 157 SELECTION-SCREEN.. 157 SELECTION-SCREEN - BEGIN OF SCREEN.. 157 标准选

(转)Android调用系统自带的文件管理器进行文件选择并获得路径

Android区别于iOS的沙盒模式,可以通过文件浏览器浏览本地的存储器.Android API也提供了相应的接口. 基本思路,先通过Android API调用系统自带的文件浏览器选取文件获得URI,然后将URI转换成file,从而得到file. 调用系统自带的文件浏览器 public class MainActivity extends AppCompatActivity { @Override protected void onCreate(Bundle savedInstanceState

[SAP ABAP开发技术总结]选择屏幕——SELECT-OPTIONS

目录导航 声明:原创作品,转载时请注明文章来自SAP师太博客,并以超链接形式标明文章原始出处,否则将追究法律责任!原文出自: 12.4.         SELECT-OPTIONS. 89 12.4.1.     输入ABAP程序默认值时,需要加上“=”. 89 12.4.2.     选择条件内表多条件组合规则... 89 12.4.3.     使用SELECT-OPTIONS替代PARAMETERS. 90 12.4.     SELECT-OPTIONS SELECT-OPTIONS

C# WinForm 选择目录路径和文件路径

private string SelectPath() //弹出一个选择目录的对话框 { FolderBrowserDialog path = new FolderBrowserDialog(); path.ShowDialog(); return path.SelectedPath; } private string SelectFile() //弹出一个选择文件的对话框 { OpenFileDialog file = new OpenFileDialog(); file.ShowDialog

ABAP标准列表和选择屏幕

标准列表输出 REPORT YTEST20160527. *定义结构 DATA:BEGIN OF SCHOOL, CITY TYPE YTJAYCITY-YCT_NAME, NO TYPE YTJAYSCHOOL-YSH_ID, NAME TYPE YTJAYSCHOOL-YSH_NAME, ADDRESS TYPE YTJAYSCHOOL-YSH_ADDR, END OF SCHOOL. *工作区 DATA SCHOOL1 LIKE SCHOOL. *输出表头 ULINE AT /(93).

Python_Example_文件路径读取返回_文件目录选择文件_实现程序

2018-09-14 Author: 楚格 IDE: Pycharm2018.02   Python 3.7 KeyWord : 文件路径 文件名称选择 Explain:  Testing_Config_List 思路: 1. def Function_Select_File():  获取当前路径(调试中默认路径) 2. 遍历 当前文件夹下的所有文件和文件夹 以供选择使用 3. 拼接字符串 返回有用的路径 4.着重处理了 文件选择部分  方法还可以继续优化 5. code 一步步搭建,注释部分是