SAP ABAP HR上传下载员工照片.doc

《SAP ABAP HR上传下载员工照片.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、上传下载员工照片(HRPhoto)批量上传图片*&---------------------------------------------------------------------**& Report  ZCHJ_HR001                                                  **&                                                                     **&-----------------------------------------------------------

2、----------**&                                                                     **&                                                                     **&---------------------------------------------------------------------*REPORT  Z_BARRY_HR_PHOTO_UPLOAD.TABLES:PA0001.DATA: SAPOBJID LIKE SAPB-SA

3、POBJID,      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 

4、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. 

5、 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      CN

6、TL_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 FILEEX

7、T.    LEN = STRLEN( FILENAME ) .    IF LEN <> 8 .      MESSAGE E000(OO) WITH '文件名长度必须等于8位'.    ENDIF.  ENDLOOP.  LOOP AT FILETAB.*判断员工编号是否存在    SELECT SINGLE *    FROM PA0001    WHERE PERNR = FILETAB-