彈出保存文件、打開文件對話框


PARAMETERS : p_file LIKE rlgrap - filename OBLIGATORY .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file . " 彈出選擇文件對話框
 
CALL FUNCTION
' WS_FILENAME_GET '
   
EXPORTING
*     DEF_FILENAME     = ' '
      def_path        
= 'C:\'
         
"Structure of MASK: ,<text>,<FILTERGROUP>.
         
"Structure of FILTERGROUP: <filter>;<filter>*
     
mask             = ',Excel File,*.xls;*.xlsx;*.txt.'
     
title            = 'Window Title: 請選擇文件 '
         
" 彈出框的模式 S -- 用來保存文件 O -- 用來打開文件
     
MODE             = 'S'
   
IMPORTING
      filename        
= p_file
*     RC               =

   
EXCEPTIONS
      INV_WINSYS      
= 1
      NO_BATCH        
= 2
      SELECTION_CANCEL
= 3 " 如果用戶取消了對話框
      SELECTION_ERROR 
= 4
     
OTHERS           = 5 .

 

上面函數已過時,可以分別是使用以下兩個方法代替:

  DATA : l_obj TYPE REF TO cl_gui_frontend_services .
 
CREATE OBJECT l_obj .
 
CALL METHOD l_obj -> file_open_dialog
   
EXPORTING

      file_filter      
= '.txt'
      initial_directory
= 'C:\data'
   
CHANGING
      file_table       
=
it_file
      rc               
= l_rc
.

 

  DATA : l_obj TYPE REF TO cl_gui_frontend_services .
 
CREATE OBJECT l_obj .
 
CALL METHOD l_obj -> file_save_dialog
   
EXPORTING

      file_filter      
= '.pdf'
      initial_directory
= 'C:\data'
   
CHANGING
      filename         
= l_name
      path             
=
l_path
      fullpath         
=
l_fpath
      user_action      
= l_rc
.


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM