2019年hr上传个人照片到信息类型.docVIP

HR上传个人照片到信息类型 T-CODE SPRO 选择EDIT DOCUMENT TYPES 复制或者新建一个文档类别为JPG的 复制或者创建 PREL是 T-CODE OAAD 查看 如果要在前台右边直接显示照片 则要用特定的文档对象(下图) 下面这个程序 适合前台和后台操作 REPORT ZYAOWEI_007. *PARAMETERS: P_UNXDIR LIKE RLGRAP-FILENAME DEFAULT /kaoqin/INPUTjpg. PARAMETERS: P_UNXDIR LIKE RLGRAP-FILENAME DEFAULT /usr/sap/HRD/DVEBMGS00/dataJPG. DATA : BEGIN OF INFILE_DATA OCCURS 0, IN_LINE(80) type c, END OF INFILE_DATA. DATA : begin of inrec, raw(1024) type x, end of inrec. DATA : begin of itab occurs 0, raw(1024) type x, end of itab. Data: WS_FILENAME TYPE STRING, WS_OBJID LIKE SAPB-SAPOBJID, WS_FILELENGTH TYPE I, WS_FLENGTH LIKE SAPB-LENGTH. * START-OF-SELECTION. open dataset P_UNXDIR for input in binary mode. do. * Read file one record at a time in binary mode. clear inrec. read dataset P_UNXDIR into inrec maximum length 1024 actual length ws_filelength. * Determine accumulated file length as each record read in. ws_flength = ws_flength + ws_filelength. * Last record of file will cause sy-subrc to not be 0 and will be * less in length than record size. if ws_flength 0. move inrec to itab. append itab. endif. * end loop at end of file. if sy-subrc ne 0. exit. end of file must have been reached endif. enddo. close dataset WS_FILENAME. * Add picture file to content server for specific associate. CALL FUNCTION ARCHIV_CREATE_TABLE EXPORTING ar_object = HRICOLFOTO object_id = 000000400002 sap_object = PREL flength = WS_FLENGTH TABLES binarchivobject = ITAB. IF SY-SUBRC = 0. WRITE : / WS_OBJID+0(8), -- picture loaded: , WS_FILENAME, -- length: , WS_FLENGTH. else. WRITE : / WS_OBJID+0(8), -- Unable to load pic: , WS_FILENAME, -- length: , WS_FLENGTH. ENDIF. clear INFILE_DATA-IN_LINE. 下面这个程序 只适合前台 SELECTION-SCREEN BEGIN OF BLOCK radio1 WITH FRAME TITLE text-001. PARAMETERS:P_FILE TYPE LOCALFILE. SELECTION-SCREEN END OF BLOCK radio1. END-OF-SELECTION. DATA: archiv_id LIKE toav0-archiv_id, arc_doc_id LIKE toav0-arc_doc_id, ftype LIKE TOADV-DOC_TYPE