[ABAP] SMW0 파일 다운

SMW0에 파일 업로드 후 다운받기

  DATA : ls_wwwdata_item TYPE wwwdatatab.
  DATA : lt_mime LIKE w3mime OCCURS 0 WITH HEADER LINE.

  DATA : lv_objid        TYPE char50,
          lv_filename     TYPE string,
          lv_path         TYPE string,

          lv_full         TYPE string,
          lv_fullpath     TYPE rlgrap-filename,
          lv_excelv_name   TYPE rcgfiletr-ftfront,
          lv_filesize(10),
          lv_size         TYPE i.



  SELECT SINGLE * FROM  wwwdata
    INTO CORRESPONDING FIELDS OF ls_wwwdata_item
   WHERE objid = 오브젝트명.

  CALL FUNCTION 'WWWDATA_IMPORT'
    EXPORTING
      key               = ls_wwwdata_item
    TABLES
      mime              = lt_mime
    EXCEPTIONS
      wrong_object_type = 1
      import_error      = 2
      OTHERS            = 3.

  CALL FUNCTION 'WWWPARAMS_READ'
    EXPORTING
      relid            = ls_wwwdata_item-relid
      objid            = ls_wwwdata_item-objid
      name             = 'FILESIZE'
    IMPORTING
      value            = lv_filesize
    EXCEPTIONS
      entry_not_exists = 1.

  lv_size = lv_filesize.

  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      default_extension = 'xlsx'
    CHANGING
      filename          = lv_filename
      path              = lv_path
      fullpath          = lv_full.

  lv_fullpath = lv_full.
  
  IF lv_fullpath IS INITIAL.
    MESSAGE '다운로드 경로가 잘못되었습니다.' TYPE 'E'.
  ENDIF.
  
  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      key         = ls_wwwdata_item
      destination = lv_fullpath.

  lv_excelv_name = lv_fullpath.