9.表單下載
相關函數：1）'WS_FILENAME_GET' 2）'GUI_DOWNLOAD'
FORM DOWNLOAD_FILE .
DATA LV_FILENAME TYPE STRING .
*1. 獲取文件名
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = '物料信息表 '
* DEF_PATH = ' '
MASK = ',EXCEL,*.XLS. '
MODE = 'S'
TITLE = '整個表單保存 '
IMPORTING
FILENAME = LV_FILENAME
* RC =
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
EXIT.
* Implement suitable error handling here
ENDIF.
*2. 表單下載
CHECK LV_FILENAME IS NOT INITIAL .
*2.1 下載內表的轉換，設置表頭
IF GT_FIELDNAME IS INITIAL .
GT_FIELDNAME-FIELDNAME = '集團'.
APPEND GT_FIELDNAME .
GT_FIELDNAME-FIELDNAME = '物料編號'.
APPEND GT_FIELDNAME .
GT_FIELDNAME-FIELDNAME = '物料描述'.
APPEND GT_FIELDNAME .
GT_FIELDNAME-FIELDNAME = '物料組' .
APPEND GT_FIELDNAME .
GT_FIELDNAME-FIELDNAME = '基本計量單位'.
APPEND GT_FIELDNAME .
GT_FIELDNAME-FIELDNAME = '創建日期'.
APPEND GT_FIELDNAME .
GT_FIELDNAME-FIELDNAME = '創建人員名稱'.
APPEND GT_FIELDNAME .
GT_FIELDNAME-FIELDNAME = '審批狀態'.
APPEND GT_FIELDNAME .
ENDIF.
REFRESH GT_DOWNLOAD.
LOOP AT GT_GROUP INTO GS_GROUP .
CLEAR GS_DOWNLOAD.
MOVE-CORRESPONDING GS_GROUP TO GS_DOWNLOAD .
APPEND GS_DOWNLOAD TO GT_DOWNLOAD .
ENDLOOP.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
FILENAME = LV_FILENAME
* FILETYPE = 'ASC'
* APPEND = ' '
WRITE_FIELD_SEPARATOR = 'X'
* HEADER = '00'
* TRUNC_TRAILING_BLANKS = ' '
* WRITE_LF = 'X'
* COL_SELECT = ' '
* COL_SELECT_MASK = ' '
* DAT_MODE = ' '
* CONFIRM_OVERWRITE = ' '
* NO_AUTH_CHECK = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* WRITE_BOM = ' '
* TRUNC_TRAILING_BLANKS_EOL = 'X'
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE
* SHOW_TRANSFER_STATUS = ABAP_TRUE
* VIRUS_SCAN_PROFILE = '/SCET/GUI_DOWNLOAD'
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = GT_DOWNLOAD
FIELDNAMES = GT_FIELDNAME[]
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM.
