HR上傳個(gè)人照片到信息類型

13/13HR上傳個(gè)人照片到信息類型T-CODESPRO選擇'EDITDOCUMENTTYPES'復(fù)制或者新建一個(gè)文檔類別為JPG的復(fù)制或者創(chuàng)建PREL是T-CODEOAAD查看如果要在前臺(tái)右邊直接顯示照片則要用特定的文檔對(duì)象(下圖)下面這個(gè)程序適合前臺(tái)和后臺(tái)操作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_flength>0.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.下面這個(gè)程序只適合前臺(tái)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-subrc<>0.MESS