文件下载
SMW0 上传模板到服务器。
选择屏幕:
1、定义选择屏幕按钮:SELECTION-SCREENFUNCTIONKEYn.(n = 1~5)
2 、 在 INITIALIZATION 模 块 中 定 义 按 钮 描 述 : MOVE' 下 载 EXCEL 模
版'TOSSCRFIELDS-FUNCTXT_01,对应的结构为 SSCRFIELDS。
ATSELECTION-SCREEN.
IFSSCRFIELDS-UCOMM='FC01'.
PERFORMFRM_DOWN_LOADUSING'ZPP0001' . "
对应
SMW0
上传的文件名称
ENDIF.
3、文件下载程序:
FORMFRM_DOWN_LOADUSINGP_PCLIKEWWWDATATAB-OBJID.
DATA:LO_OBJDATALIKEWWWDATATAB,
LO_MIMELIKEW3MIME,
LC_FILENAMETYPESTRINGVALUE'采购申请导入格式',
LC_FULLPATHTYPESTRINGVALUE'c:/SapReport/',"
文件默认存放路径
LC_PATHTYPESTRINGVALUE'c:/SapReport/',
LS_DESTINATIONLIKERLGRAP-FILENAME,
LS_OBJNAMTYPESTRING,
LI_RCLIKESY-SUBRC,
LS_ERRTXTTYPESTRING.
DATA:P_OBJID TYPEWWWDATATAB-OBJID,
P_DESTLIKESAPB-SAPPFAD.
P_OBJID=P_PC.
CALLMETHODCL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG"
先确定文件存
放路径
EXPORTING
DEFAULT_EXTENSION='xls'"
默认文件保存的格式
DEFAULT_FILE_NAME=LC_FILENAME"
默认文件名
CHANGING
FILENAME =LC_FILENAME"
文件名
PATH =LC_PATH"
文件存放路径
FULLPATH =LC_FULLPATH
EXCEPTIONS
CNTL_ERROR =1
ERROR_NO_GUI =2
NOT_SUPPORTED_BY_GUI =3
OTHERS =4.
IFLC_FULLPATH=''.
MESSAGE'不能打开 excel'TYPE'E'.
ENDIF.
IFSY-SUBRC=0.