SAPABAPHR上传下载员工照片.docVIP

范文 范例 指导 参考 word版 整理 上传下载员工照片(HR Photo) 批量上传图片 ***?Report??ZCHJ_HR001??????????????????????????????????????????????????**?????????????????????????????????????????????????????????????????????****?????????????????????????????????????????????????????????????????????**?????????????????????????????????????????????????????????????????????***REPORT??Z_BARRY_HR_PHOTO_UPLOAD.TABLES:PA0001.DATA:?SAPOBJID?LIKE?SAPB-SAPOBJID,??????SAPPFAD?LIKE?SAPB-SAPPFAD.DATA:?GD_PATH?TYPE?STRING?,??????FILETAB?TYPE?TABLE?OF?FILE_INFO?WITH?HEADER?LINE,??????COUNT?TYPE?I.DATA:?FILENAME(40)?TYPE?C?,??????FILEEXT(10)?TYPE?C?,??????LEN?TYPE?I?.*重点图片名称要等于系统员工编号PARAMETERS:?FILEPATH?LIKE?RLGRAP-FILENAME.上传文件夹路径AT?SELECTION-SCREEN?ON?VALUE-REQUEST?FOR?FILEPATH.??CALL?METHOD?CL_GUI_FRONTEND_SERVICES=DIRECTORY_BROWSE????EXPORTING??????WINDOW_TITLE????=?File?Directory??????INITIAL_FOLDER??=?C:\????CHANGING??????SELECTED_FOLDER?=?GD_PATH.??CALL?METHOD?CL_GUI_CFW=FLUSH.??CONCATENATE?GD_PATH??INTO?FILEPATH.START-OF-SELECTION.??GD_PATH?=?FILEPATH?.??CALL?METHOD?CL_GUI_FRONTEND_SERVICES=DIRECTORY_LIST_FILES????EXPORTING??????DIRECTORY???????????????????=?GD_PATH??????FILTER??????????????????????=?*.jpg????CHANGING??????FILE_TABLE??????????????????=?FILETAB[]??????COUNT???????????????????????=?COUNT????EXCEPTIONS??????CNTL_ERROR??????????????????=?1??????DIRECTORY_LIST_FILES_FAILED?=?2??????WRONG_PARAMETER?????????????=?3??????ERROR_NO_GUI????????????????=?4??????NOT_SUPPORTED_BY_GUI????????=?5??????OTHERS??????????????????????=?6.*判断图片编号是否等于8位??LOOP?AT?FILETAB.????SPLIT?FILETAB-FILENAME?AT?.?INTO?FILENAME?FILEEXT.????LEN?=?STRLEN(?FILENAME?)?.????IF?LEN??8?.??????MESSAGE?E000(OO)?WITH?文件名长度必须等于8位.????ENDIF.??ENDLOOP.??LOOP?AT?FILETAB. *判断员工编号是否存在????SELECT?SINGLE?*????FROM?PA0001????WHERE?PERNR?=?FILETAB-FILENAME+0(8).????IF?SY-SUBRC?=?0. *判断员工编号是否已过期??????SELECT?SINGLE?*?