ABAP 파일 업로드, 다운로드시 파일 선택 팝업 생성

엑셀 업로드를 하거나 다운로드를 할 때 파일명 및 경로를 설정해야 할 때가 있다. 하드코딩으로 넣어도 되지만 ABAP에서 기본 제공하는 함수와 Class 메소드가 있는데 Class 메소드를 포스팅 하고자 한다. ( Class 메소드가 파일명도 넣을 수도 있고 멀티 셀렉트도 가능하다. )

  " 파일경로 설정
  PERFORM F4_HELP_FOR_FILE CHANGING GV_FILE.


*&---------------------------------------------------------------------*
*&      Form  F4_HELP_FOR_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_P_FILE1  text
*----------------------------------------------------------------------*
FORM F4_HELP_FOR_FILE  CHANGING P_FILE1.

  DATA: IT_TAB TYPE FILETABLE,
        GD_SUBRC TYPE I,
        FILE_NAME TYPE STRING.

  CONCATENATE '_template.xls' INTO FILE_NAME.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      WINDOW_TITLE     = 'Select File'
      DEFAULT_FILENAME = FILE_NAME
      MULTISELECTION   = ' '
    CHANGING
      FILE_TABLE       = IT_TAB
      RC               = GD_SUBRC.

  CLEAR : P_FILE1.

  IF GD_SUBRC EQ 1.
    READ TABLE IT_TAB INTO P_FILE1 INDEX 1.
  ENDIF.


ENDFORM.                    " F4_HELP_FOR_FILE