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

HR上传个人照片到信息类型T-CODESPRO选择'EDITDOCUMENTTYPES'复制或者新建一个文档类别为JPG的复制或者创建PREL是T-CODEOAAD查看如果要在前台右边直接显示照片则要用特定的文档对象(下图)下面这个程序适合前台和后台操作REPORTZYAOWEI_007.*PARAMETERS:P_UNXDIRLIKERLGRAP-FILENAMEDEFAULT'/kaoqin/INPUT/00000040.jpg'.PARAMETERS:P_UNXDIRLIKERLGRAP-FILENAMEDEFAULT'/usr/sap/HRD/DVEBMGS00/data/00000040.JPG'.DATA: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-SELECTION.opendatasetP_UNXDIRforinputinbinarymode.do.*Readfileonerecordatatimeinbinarymode.clearinrec.readdatasetP_UNXDIRintoinrecmaximumlength1024actuallengthws_filelength.*Determineaccumulatedfilelengthaseachrecordreadin.ws_flength=ws_flength+ws_filelength.*Lastrecordoffilewillcausesy-subrctonotbe0andwillbe*lessinlengththanrecordsize.ifws_flength0.moveinrectoitab.appenditab.endif.*endloopatendoffile.ifsy-subrcne0.exit.endoffilemusthavebeenreachedendif.enddo.closedatasetWS_FILENAME.*Addpicturefiletocontentserverforspecificassociate.CALLFUNCTION'ARCHIV_CREATE_TABLE'EXPORTINGar_object='HRICOLFOTO'object_id='000000400002'sap_object='PREL'flength=WS_FLENGTHTABLESbinarchivobject=ITAB.IFSY-SUBRC=0.WRITE:/WS_OBJID+0(8),'--pictureloaded:',WS_FILENAME,'--length:',WS_FLENGTH.else.WRITE:/WS_OBJID+0(8),'--Unabletoloadpic:',WS_FILENAME,'--length:',WS_FLENGTH.ENDIF.clearINFILE_DATA-IN_LINE.下面这个程序只适合前台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'ARCHIV_CREATE_DIALOG_META'EXPORTING*ARCHIV_ID=''ar_object='HRICOLFOTO'*DEL_DATE=''*NOTE=''object_id='000000500002'sap_object='PREL'*FILE='\\Xueqiang\SharedDocs\36\00000040.JPG'FILE='\\192.168.118.159\ticheng\input\00000050.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=5ERROR_SCANQUEUE=6CANCELED_BY_USER=7OTHERS=8.IFsy-subrc0.MESSAGE'FAILED'TYPE'I'.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ELSE.MESSAGE'FINISH'TYPE'I'.ENDIF.