探秘 CL_GUI_FRONTEND_SERVICES：强大的 SAP 客户端操作利器

FILETYPE_ALL = 'All Files (*.*)|*.*|'FILETYPE_EXCEL = 'Microsoft Excel Files (*.XLS;*.XLSX;*.XLSM)|*.XLS;*.XLSX;*.XLSM|'FILETYPE_WORD = 'Microsoft Word Files (*.DOC;*.DOCX;*.DOCM)|*.DOC;*.DOCX;*.DOCM|'FILETYPE_TEXT = 'Text Files (*.TXT)|*.TXT|'FILETYPE_HTML = 'HTML files (*.HTML, *.HTM)|*.HTML;*.HTM|'FILETYPE_RTF = 'RTF Files (*.RTF)|*.RTF|'FILETYPE_XML = 'XML (*.XML)|*.XML|'FILETYPE_POWERPOINT = 'Microsoft PowerPoint Files (*PPT;*.PPTX;*.PPTM)|*PPT;*.PPTX;*.PPTM|'

FORM frm_f4_file_path  CHANGING i_fullpath TYPE localfile.   DATA:    lit_file_table TYPE STANDARD TABLE OF file_table,          "File table    lwa_file       TYPE file_table,                            "file table work area    l_filename     TYPE string,                                "file name    l_path         TYPE string,                                "path    l_fullpath     TYPE string.                                "full file path   DATA:    lo_frontend_services TYPE REF TO cl_gui_frontend_services, "frontend services    l_return_code        TYPE i,                               "return code    l_user_action        TYPE i,                               "user action    l_default_name       TYPE string.                          "default name * File name filter and default name for the upload file  l_default_name = 'tempalte.xlsx'.   CREATE OBJECT lo_frontend_services.   cl_gui_frontend_services=>file_open_dialog(    EXPORTING      default_filename    = l_default_name      file_filter         = cl_gui_frontend_services=>filetype_excel    CHANGING      file_table          = lit_file_table[]      rc                  = l_return_code      user_action         = l_user_action    EXCEPTIONS      OTHERS              = 4 ).   CALL METHOD lo_frontend_services->free.   IF l_user_action <> lo_frontend_services->action_cancel.    READ TABLE lit_file_table INTO lwa_file INDEX 1.    IF sy-subrc = 0.      MOVE lwa_file-filename TO  i_fullpath.    ENDIF.  ENDIF. ENDFORM.

 Description
During download, the data can be transferred in different formats, depending on the value of the FILETYPE parameter.
Value range
'ASC' :
ASCII format. The table is transferred as text. Conversion exits are performed. The output format additionally depends on the parameters CODEPAGE, TRUNC_TRAILING_BLANKS, and TRUNC_TRAILING_BLANKS_EOL.
'IBM' :
ASCII format with IBM codepage conversion (DOS). This format corresponds to the 'ASC' format when using target codepage 1103. This codepage is frequently used for data exchange via floppy disk.
'DAT' :
Column-by-column transfer. With this format, the data is transferred as text as with ASC. However, no conversion exits are performed and the columns are separated by tab characters. This format generates files than can be uploaded again using gui_upload or ws_upload.
'DBF' :
Data is downloaded in dBase format. Since in this format the data types of the individual columns are stored as well, you can often avoid import problems, for example, into Microsoft Excel, especially when interpreting numeric values.
'WK1' :
Data is downloaded in Lotus 1-2-3 format.
'BIN' :
Binary format. Data is transferred binarily. There is no formatting and no codepage conversion. The data is interpreted row by row; it is not formatted by columns. Specify the data length in parameter BIN_FILESIZE. The table should consist of a column of type X, because especially in Unicode systems, the conversion of structured into binary data causes errors.
Default
'ASC'

cl_gui_frontend_services=>file_open_dialog文件类型过滤
使用cl_gui_frontend_services=>file_open_dialog打开文件选择框时，可以输入file_filter参数，来限定和过滤文件选择框内的文件类型。
常用的文件类型如下：
FILETYPE_ALL = 'All Files (*.*)|*.*|'FILETYPE_EXCEL = 'Microsoft Excel Files (*.XLS;*.XLSX;*.XLSM)|*.XLS;*.XLSX;*.XLSM|'FILETYPE_WORD = 'Microsoft Word Files (*.DOC;*.DOCX;*.DOCM)|*.DOC;*.DOCX;*.DOCM|'FILETYPE_TEXT = 'Text Files (*.TXT)|*.TXT|'FILETYPE_HTML = 'HTML files (*.HTML, *.HTM)|*.HTML;*.HTM|'FILETYPE_RTF = 'RTF Files (*.RTF)|*.RTF|'FILETYPE_XML = 'XML (*.XML)|*.XML|'FILETYPE_POWERPOINT = 'Microsoft PowerPoint Files (*PPT;*.PPTX;*.PPTM)|*PPT;*.PPTX;*.PPTM|'

可以在类cl_gui_frontend_services的属性中找到，

FORM open_file .  "p_file  DATA:lt_files TYPE filetable.  DATA:wa_files TYPE file_table.  DATA:lv_subrc TYPE i.  DATA:lv_user_action TYPE i.
  cl_gui_frontend_services=>file_open_dialog(  EXPORTING    file_filter             =  cl_gui_frontend_services=>filetype_excel    multiselection          =  space  CHANGING    file_table              =  lt_files    rc                      =  lv_subrc    user_action             =  lv_user_action  EXCEPTIONS    file_open_dialog_failed = 1    cntl_error              = 2    error_no_gui            = 3    not_supported_by_gui    = 4    OTHERS                  = 5 ).
  IF lv_user_action EQ 0.    READ TABLE lt_files INTO wa_files INDEX 1.    IF sy-subrc EQ 0.      p_file = wa_files-filename.    ENDIF.
  ENDIF.
ENDFORM.                    " OPEN_FILE

FORM frm_screen .  DATA:result TYPE c.  DATA:lv_answer TYPE c.  DATA:rc TYPE i.
  CALL METHOD cl_gui_frontend_services=>directory_exist    EXPORTING      directory            = p_file    RECEIVING      result               = result    EXCEPTIONS      cntl_error           = 1      error_no_gui         = 2      wrong_parameter      = 3      not_supported_by_gui = 4      OTHERS               = 5.  IF result = ''."不存在路径是否创建
    CALL FUNCTION 'POPUP_TO_CONFIRM'      EXPORTING        text_question  = '不存在文件是否创建？'        text_button_1  = '是'(001)        text_button_2  = '否'(002)      IMPORTING        answer         = lv_answer      EXCEPTIONS        text_not_found = 1        OTHERS         = 2.    IF sy-subrc <> 0.
    ENDIF.
    CASE lv_answer.      WHEN '1'."是
        CALL METHOD cl_gui_frontend_services=>directory_create          EXPORTING            directory                = p_file          CHANGING            rc                       = rc          EXCEPTIONS            directory_create_failed  = 1            cntl_error               = 2            error_no_gui             = 3            directory_access_denied  = 4            directory_already_exists = 5            path_not_found           = 6            unknown_error            = 7            not_supported_by_gui     = 8            wrong_parameter          = 9            OTHERS                   = 10.        IF sy-subrc <> 0.          MESSAGE '文件夹创建失败请重新选择目录' TYPE 'E'.        ENDIF.
      WHEN 'A' OR '2'."取消 否        STOP.      WHEN OTHERS.    ENDCASE.
  ENDIF.ENDFORM.                    " FRM_SCREEN


  CALL METHOD cl_gui_frontend_services=>directory_browse    EXPORTING      window_title         = '数据备份路径'      initial_folder       = p_file    CHANGING      selected_folder      = p_file    EXCEPTIONS      cntl_error           = 1      error_no_gui         = 2      not_supported_by_gui = 3      OTHERS               = 4.  IF sy-subrc <> 0.
  ENDIF.

 *&---------------------------------------------------------------------**& Report ZHOUJH_GET_DESKTOP_DIRECTORY*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ZHOUJH_GET_DESKTOP_DIRECTORY.
"GET_DESKTOP_DIRECTORY
PARAMETERS:P_FILE TYPE  LOCALFILE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.  PERFORM SUB_FILE_F4. "* To provide F4 help for the file
*&---------------------------------------------------------------------**&      Form  SUB_FILE_F4*&---------------------------------------------------------------------**       F4 help for file path*----------------------------------------------------------------------*FORM SUB_FILE_F4 .  DATA:    L_DESKTOP  TYPE STRING,    L_I_FILES  TYPE FILETABLE,    L_WA_FILES TYPE FILE_TABLE,    L_RCODE    TYPE INT4.
* Finding desktop  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY    CHANGING      DESKTOP_DIRECTORY    = L_DESKTOP    EXCEPTIONS      CNTL_ERROR           = 1      ERROR_NO_GUI         = 2      NOT_SUPPORTED_BY_GUI = 3      OTHERS               = 4.  IF SY-SUBRC <> 0.    MESSAGE E001(00) WITH    'Desktop not found'.  ENDIF.
* Update View  CALL METHOD CL_GUI_CFW=>UPDATE_VIEW    EXCEPTIONS      CNTL_SYSTEM_ERROR = 1      CNTL_ERROR        = 2      OTHERS            = 3.
  DATA: L_USERACTION TYPE I.  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG    EXPORTING      WINDOW_TITLE            = 'Select Excel file'      DEFAULT_EXTENSION       = '.xls'*     default_filename        =      FILE_FILTER             = '.xls'*     with_encoding           =      INITIAL_DIRECTORY       = L_DESKTOP*     multiselection          =    CHANGING      FILE_TABLE              = L_I_FILES      RC                      = L_RCODE      USER_ACTION             = L_USERACTION*     file_encoding           =    EXCEPTIONS      FILE_OPEN_DIALOG_FAILED = 1      CNTL_ERROR              = 2      ERROR_NO_GUI            = 3      NOT_SUPPORTED_BY_GUI    = 4      OTHERS                  = 5.  IF SY-SUBRC <> 0.    MESSAGE E001(00) WITH 'Error while opening file'.  ENDIF.
  READ TABLE L_I_FILES INDEX 1 INTO L_WA_FILES.  IF SY-SUBRC = 0.    P_FILE = L_WA_FILES-FILENAME.  ELSE.    EXIT.  ENDIF.
ENDFORM.                    " SUB_FILE_F4