搜索帮助demo(1)上载文件
(2023-01-14 19:25:19)
标签:
abapalvliumengsapf4 |
分类: 数据库相关 |
微信群不能扫码进了,可以加我微信SAPliumeng拉进群,申请时请提供您哪个模块顾问,否则是一律不通过的。
进群统一修改群名片,例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接,小程序等,进群看公告,谢谢配合
不修改昵称会被不定期踢除,谢谢配合
上载文件其实是最最常用的搜索帮助之一。
最简单的使用:F4_FILENAME
demo:
PARAMETERS:P_FILE TYPE IBIPPARMS-PATH.AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.CALL FUNCTION 'F4_FILENAME'IMPORTINGFILE_NAME = P_FILE.
或者:
PARAMETERS:P_FILE TYPE IBIPPARMS-PATH.AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.CALL FUNCTION 'WS_FILENAME_GET'EXPORTINGTITLE = '选择文件'IMPORTINGFILENAME = P_FILEEXCEPTIONSINV_WINSYS = 1NO_BATCH = 2SELECTION_CANCEL = 3SELECTION_ERROR = 4OTHERS = 5.IF SY-SUBRC <> 0 AND SY-SUBRC <> 3.MESSAGE E100(ZDEV) WITH '选择文件出错!'(007).ENDIF.
再或者
PARAMETERS:P_FILE TYPE IBIPPARMS-PATH.AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.DATA: V_RC TYPE I,V_FILETABLE TYPE FILETABLE.CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOGEXPORTINGWINDOW_TITLE = '选择源文件'FILE_FILTER = '全部文件 (*.*)'MULTISELECTION = SPACECHANGINGFILE_TABLE = V_FILETABLERC = V_RCEXCEPTIONSFILE_OPEN_DIALOG_FAILED = 1CNTL_ERROR = 2ERROR_NO_GUI = 3NOT_SUPPORTED_BY_GUI = 4OTHERS = 5.IF SY-SUBRC = 0 AND V_RC = 1.READ TABLE V_FILETABLE INTO P_FILE INDEX 1.ENDIF.
还有个下载路径:
PARAMETERS:P_FILE TYPE IBIPPARMS-PATH.AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.DATA : LC_FILENAME TYPE STRING VALUE '请选择文件路径',LC_FULLPATH TYPE STRING,LC_PATH TYPE STRING.CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOGEXPORTINGDEFAULT_EXTENSION = 'XLS' "默认保存文件格式DEFAULT_FILE_NAME = LC_FILENAME "默认文件名称CHANGINGFILENAME = LC_FILENAME "默认文件名称PATH = LC_PATH "文件路径FULLPATH = LC_FULLPATH "文件路径EXCEPTIONSCNTL_ERROR = 1ERROR_NO_GUI = 2NOT_SUPPORTED_BY_GUI = 3OTHERS = 4.IF SY-SUBRC = 0 .P_FILE = LC_FULLPATH .ELSEIF SY-SUBRC <> 0 .MESSAGE '保存文件出错!' TYPE 'E' .ENDIF .
https://mp.weixin.qq.com/s/twta_XBJ8bhaaety5ynyRA

加载中…