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

《HR上传个人照片到信息类型.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、HR上传个人照片到信息类型T-CODESPRO选择'EDITDOCUMENTTYPES'复制或者新建一个文档类别为JPG的8/8复制或者创建PREL是T-CODEOAAD8/88/8查看8/8如果要在前台右边直接显示照片则要用特定的文档对象(下图)下面这个程序适合前台和后台操作REPORTZYAOWEI_007.*PARAMETERS:P_UNXDIRLIKERLGRAP-FILENAMEDEFAULT'/kaoqin/INPUT/00000040.jpg'.PARAMETERS:P_UNXDIRLIKERLGRAP-FILENAMEDEFAULT'/usr/sap/HRD/DVEBM

2、GS00/data/00000040.JPG'.8/8DATA:BEGINOFINFILE_DATAOCCURS0,IN_LINE(80)typec,ENDOFINFILE_DATA.DATA:beginofinrec,raw(1024)typex,endofinrec.DATA:beginofitaboccurs0,raw(1024)typex,endofitab.Data:WS_FILENAMETYPESTRING,WS_OBJIDLIKESAPB-SAPOBJID,WS_FILELENGTHTYPEI,WS_FLENGTHLIKESAPB-LENGTH.*START-OF-SEL

3、ECTION.opendatasetP_UNXDIRforinputinbinarymode.do.*Readfileonerecordatatimeinbinarymode.clearinrec.readdatasetP_UNXDIRintoinrecmaximumlength1024actuallengthws_filelength.*Determineaccumulatedfilelengthaseachrecordreadin.ws_flength=ws_flength+ws_filelength.*Lastrecordoffilewillcausesy-subrctonotb

4、e0andwillbe*lessinlengththanrecordsize.ifws_flength>0.moveinrectoitab.appenditab.endif.*endloopatendoffile.ifsy-subrcne0.exit."endoffilemusthavebeenreachedendif.enddo.closedatasetWS_FILENAME.*Addpicturefiletocontentserverforspecificassociate.CALLFUNCTION'ARCHIV_CREATE_TABLE'EXPORTINGar_object='H

5、RICOLFOTO'object_id='000000400002'sap_object='PREL'flength=WS_FLENGTHTABLESbinarchivobject=ITAB.IFSY-SUBRC=0.WRITE:/WS_OBJID+0(8),'--pictureloaded:',WS_FILENAME,'--length:',WS_FLENGTH.8/8else.WRITE:/WS_OBJID+0(8),'--Unabletoloadpic:',WS_FILENAME,'--length:',WS_FLENGTH.ENDIF.clearINFILE_DATA-IN_L

6、INE.下面这个程序只适合前台SELECTION-SCREENBEGINOFBLOCKradio1WITHFRAMETITLEtext-001.PARAMETERS:P_FILETYPELOCALFILE.SELECTION-SCREENENDOFBLOCKradio1.END-OF-SELECTION.DATA:archiv_idLIKEtoav0-archiv_id,arc_doc_idLIKEtoav0-arc_doc_id,ftypeLIKETOADV-DOC_TYPE.DATA:RETURNTYPETOADTOCCURS0WITHHEADERLINE.CALLFUNCTION

7、'ARCHIV_CREATE_DIALOG_META'EXPORTING*ARCHIV_ID=''ar_object='HRICOLFOTO'*DEL_DATE=''*NOTE=''object_id='000000500002'sap_object='PREL'*FILE='\XueqiangSharedDocs360000040.JPG'FILE='\192.168.118.159tichenginput0000050.