SAPABAPHR批量上传删除文件图片PDFWORD等Word文档下载推荐.docx
- 文档编号:22018948
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:13
- 大小:35.80KB
SAPABAPHR批量上传删除文件图片PDFWORD等Word文档下载推荐.docx
《SAPABAPHR批量上传删除文件图片PDFWORD等Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《SAPABAPHR批量上传删除文件图片PDFWORD等Word文档下载推荐.docx(13页珍藏版)》请在冰豆网上搜索。
P_WQJ."
上传路径
*取出上传路径
PER_GET_P_WQJ.
START-OF-SELECTION
START-OF-SELECTION.
*取出所选文件夹数据
PER_GET_WQJ.
*上传文件
PER_UPLOAD_DATA.
*ALV输出
PER_ALV_OUT.
END-OF-SELECTION.
ZRPT_HR_PA001_FORM.
包括
ZRPT_HR_PA001_TOP
TABLES:
TOAOM,"
业务对象
TOADV,"
文档类型
PA0001,"
员工主数据
TOAHR."
*类型池定义
TYPE-POOLS:
SLIS.
DATA:
G_PATH
TYPE
STRING,"
G_FILTER
文件类型
G_WQLX
LIKE
TOADD-DOC_TYPE,"
G_COUNT
I,
G_FILENAME(40)
C,
G_FILEEXT(10)
C
G_LEN
G_SAPOBJID
SAPB-SAPOBJID,"
上传照片文件名
G_SAPPFAD
SAPB-SAPPFAD,"
G_NUM(10)
G_FILE_NAME
RLGRAP-FILENAME."
SAP文件路径
*文件夹内容
TAB_G_FILETAB
TABLE
OF
FILE_INFO
WITH
HEADER
LINE.
TAB_G_TOAHR
TOAHR
*上传成功后得到的员工编号ID
BEGIN
TAB_G_TOAV0
OCCURS
1.
STRUCTURE
TOAV0.
END
TAB_G_TOAV0.
TAB_G_ALVOUT
0.
ZHR_LOG_PA001.
TAB_G_ALVOUT.
*ALV定义
G_ALV_FIELD
SLIS_FIELDCAT_ALV,
G_ALV_FIELDCAT
SLIS_T_FIELDCAT_ALV,
G_LAYOUT
SLIS_LAYOUT_ALV.
PARAMETERS:
P_YWDX
TOAV0-AR_OBJECT
DEFAULT
'
PREL'
OBLIGATORY,"
P_WDLX
TOADV-AR_OBJECT
P_WQJ
RLGRAP-FILENAME
P_ZHF
AS
CHECKBOX."
可重复
ZRPT_HR_PA001_FORM
Form
PER_CHECK_SCREEN
text
*----------------------------------------------------------------------*
-->
p1
--
p2
FORM
PER_CHECK_SCREEN
*业务对象判断正确性
CHECK
IS
NOT
INITIAL.
SELECT
SINGLE
FROM
TOAOM
WHERE
SAP_OBJECT
=
P_YWDX.
IF
SY-SUBRC
>
MESSAGE
无此业务对象'
E'
EXIT.
ENDIF.
*文档类型判断正确性
CLEAR:
G_WQLX.
DOC_TYPE
TOADV
INTO
G_WQLX
AR_OBJECT
P_WDLX.
无此文档类型'
ENDFORM.
"
PER_GET_P_WQJ
读取文件夹
PER_GET_P_WQJ
*读取文件夹
CALL
METHOD
CL_GUI_FRONTEND_SERVICES=>
DIRECTORY_BROWSE
EXPORTING
WINDOW_TITLE
File
Directory'
INITIAL_FOLDER
C:
\'
CHANGING
SELECTED_FOLDER
G_PATH.
CL_GUI_CFW=>
FLUSH.
CONCATENATE
P_WQJ.
PER_GET_WQJ
读取文件夹内容
PER_GET_WQJ
*读取文件夹内容
TAB_G_FILETAB,TAB_G_FILETAB[],G_FILTER.
*文件夹路径
读取文件类型
*.'
G_FILTER.
*取出文件夹数据
DIRECTORY_LIST_FILES
DIRECTORY
文件夹路径
FILTER
文件类型'
*.jpg'
FILE_TABLE
TAB_G_FILETAB[]
输入文件
COUNT
G_COUNT
EXCEPTIONS
CNTL_ERROR
1
DIRECTORY_LIST_FILES_FAILED
2
WRONG_PARAMETER
3
ERROR_NO_GUI
4
NOT_SUPPORTED_BY_GUI
5
OTHERS
6.
*判断文件的长度
LOOP
TAB_G_FILETAB.
SPLIT
TAB_G_FILETAB-FILENAME
.'
G_FILENAME
G_FILEEXT.
STRLEN(
)
8
E000(OO)
文件名长度必须等于8位'
ENDLOOP.
PER_UPLOAD_DATA
PER_UPLOAD_DATA
TAB_G_ALVOUT,TAB_G_ALVOUT[].
*自动分配流水号
FUNCTION
QF05_RANDOM_INTEGER'
RAN_INT_MAX
99999999
RAN_INT_MIN
IMPORTING
RAN_INT
G_NUM
INVALID_INPUT
2.
TAB_G_ALVOUT-ZHRSORT
G_NUM.
*判断是否有此员工号
PA0001
PERNR
TAB_G_FILETAB-FILENAME+0(8).
员工号
*上传路径
G_SAPPFAD.
*上传照片编号
TAB_G_FILETAB-FILENAME+0(8)
0002'
G_SAPOBJID.
*判断是否可以重复上传
*判断员工文档类型是否已存在
TAB_G_TOAHR.
TOAHR
TAB_G_TOAHR
OBJECT_ID
照片号
AND
P_YWDX.
TAB_G_ALVOUT-MANDT
SY-MANDT.
集团
TAB_G_ALVOUT-ZHRUNAME
SY-UNAME.
创建人
TAB_G_ALVOUT-ZHRDATUM
SY-DATUM.
创建日期
TAB_G_ALVOUT-ZHRUZEIT
SY-UZEIT.
创建日间
TAB_G_ALVOUT-PERNR
TAB_G_ALVOUT-ZHRYWDX
文档对象
TAB_G_ALVOUT-ZHRWDLX
P_WDLX.
TAB_G_ALVOUT-ZHRWQJ
G_SAPPFAD.
TAB_G_ALVOUT-ZHRMSGTY
已存在'
APPEND
CONTINUE.
*上传照片
TAB_G_TOAV0,TAB_G_TOAV0[].
ZFUN_HR_ARCHIV_CREATE_FILE'
照片
DOC_TYPE
PATH
TABLES
TOAV0
输出ID
ERROR_CONECTIONTABLE
ERROR_PARAMETER
ERROR_ARCHIV
ERROR_UPLOAD
ERROR_KERNEL
NO_ENTRY_POSSIBLE
6
ERROR_COMUNICATIONTABLE
7
8.
*上传照片失败
MESSAGE_TEXT_BUILD'
MSGID
SY-MSGID
MSGNR
SY-MSGTY
MSGV1
SY-MSGV1
MSGV2
SY-MSGV2
MSGV3
SY-MSGV3
MSGV4
SY-MSGV4
MESSAGE_TEXT_OUTPUT
TAB_G_ALVOUT-ZHRMSGTY.
TAB_G_ALVOUT-ZHRMESSAGE
存储上传失败'
TAB_G
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SAPABAPHR 批量 上传 删除 文件 图片 PDFWORD