HR上传个人照片到信息类型

1、hr 上传个人照片到信息类型t-code spro选择 edit document types复制或者新建一个文档类别为jpg 的1 / 8复制或者创建prel 是t-code oaad2 / 83 / 8查看4 / 8如果要在前台右边直接显示照片则要用特定的文档对象(下图 )下面这个程序适合前台和后台操作report zyaowei_007.*parameters:p_unxdirlikerlgrap-filenamedefault/kaoqin/input/00000040.jpg.parameters:p_unxdirlikerlgrap-filenamedefault/usr/sap/

2、hrd/dvebmgs00/data/00000040.jpg.5 / 8da ta : begin of infile_data occurs 0, in_line(80) type c,end of infile_data.da ta : begin of inrec,raw(1024) type x,end of inrec.da ta : begin of itab occurs 0,raw(1024) type x,end of itab.data: ws_filename type string,ws_objid like sapb-sapobjid,ws_filelength t

3、ype 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 rea

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

5、dataset ws_filename.* add picture file to content server for specific associate.call function archiv_create_table exporting ar_object = hricolfoto object_id = 000000400002sap_object = prel flength = ws_flengthtables binarchivobject = itab.if sy-subrc = 0.write : / ws_objid+0(8), - picture loaded: ,

6、ws_filename, - length: , ws_flength.6 / 8else. write: / ws_objid+0(8), - unable to load pic: , ws_filename, - length: ,ws_flength.endif.clear infile_data-in_line.下面这个程序只适合前台selection-screenbeginofblockradio1withframe title text-001.parameters:p_file type localfile.selection-screenendofblockradio1.en

7、d-of-selection.da ta: archiv_id like toav0-archiv_id,arc_doc_id like toav0-arc_doc_id,ftype like toadv-doc_type.da ta:return type toadt occurs 0 with header line.call function archiv_create_dialog_metaexporting*archiv_id= ar_object= hricolfoto*del_date= *note= object_id= 000000500002sap_object= prel

8、* file= xueqiangshareddocs3600000040.jpgfile= 192.168.118.159tichenginput00000050.jpg*commit_flag= importingarchiv= archiv_idarchiv_doc_id= arc_doc_iddocumentclass= ftypetablesoutdoctab= return* changing* infiletab = exceptionserror_archiv= 1error_communicationtable= 2error_connectiontable= 3error_kernel= 4error_parameter= 57 / 8error_scanqueue= 6canceled_by_user= 7others= 8.if sy-subrc 0.message failed type i