HR上傳個人照片到信息類型

1、HR上傳個人照片到信息類型T-CODE SPRO選擇'EDIT DOCUMENT TYPES'復制或者新建一個文檔類別為JPG的復制或者創(chuàng)建PREL是T-CODE OAAD查看如果要在前臺右邊直接顯示照片 則要用特定的文檔對象(下圖)下面這個程序 適合前臺和后臺操作REPORT ZYAOWEI_007.*PARAMETERS: P_UNXDIR LIKE RLGRAP-FILENAME DEFAULT '/kaoqin/INPUT/00000040.jpg'.PARAMETERS: P_UNXDIR LIKE RLGRAP-FILENAME DEFAULT &#

2、39;/usr/sap/HRD/DVEBMGS00/data/00000040.JPG'.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_FIL

3、ELENGTH 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 re

4、cord 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 reachede

5、ndif.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_FLENGTHTABLES binarchivobject = ITAB.IF SY-S

6、UBRC = 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

7、 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.DATA:RETURN TYPE TOADT OCCURS 0 WITH HEADER LINE.CALL FUNCTION 'ARCHIV_CREATE

8、_DIALOG_META' EXPORTING* ARCHIV_ID = ' ' ar_object = 'HRICOLFOTO'* DEL_DATE = ' '* NOTE = ' ' object_id = '000000500002' sap_object = 'PREL'* FILE = 'XueqiangSharedDocs3600000040.JPG'FILE = '192.168.118.159tichenginput00000050.JPG'*

9、 COMMIT_FLAG = ' ' IMPORTING ARCHIV = archiv_id ARCHIV_DOC_ID = arc_doc_id DOCUMENTCLASS = ftype TABLES OUTDOCTAB = RETURN* CHANGING* INFILETAB = EXCEPTIONS ERROR_ARCHIV = 1 ERROR_COMMUNICATIONTABLE = 2 ERROR_CONNECTIONTABLE = 3 ERROR_KERNEL = 4 ERROR_PARAMETER = 5 ERROR_SCANQUEUE = 6 CANCELED_BY_USER = 7 OTHERS = 8 .IF sy-subrc <> 0. MESSAGE 'FAILED' TYPE 'I'.*