《HR上传个人照片到信息类型》由会员分享,可在线阅读,更多相关《HR上传个人照片到信息类型(6页珍藏版)》请在金锄头文库上搜索。
1、(人力资源知识)HR上传个人照片到信息类型20XX年XX月多年的企业咨询豉问经验.经过实战验证可以落地机行的卓越管理方案,值得您下载拥有HR上传个人照片到信息类型T-CODESPRO选择EDITDOCUMENTTYPES复制或者新建壹个文档类别为JPG的复制或者创建PREL是T-CODEOAAD查见如果要于前台右边直接显示照片则要用特定的文档对象(下图)下面这个程序适合前台和后台操作REPORTZYAOWEI_007.*PARAMETERS:P_UNXDIRLIKERLGRAP-FILENAMEDEFAULr/kaoqin/INPUT/00000040.jpg.PARAMETERS:P_UNX
2、DIRLIKERLGRAP-FILENAMEDEFAULT7usr/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,
3、WS_FLENGTHLIKESAPB-LENGTH.*START-OF-SELECTION.opendatasetP_UNXDIRforinputinbinarymode.do.*Readfileonerecordatatimeinbinarymode.clearinrec.readdatasetP_UNXDIRintoinrecmaximumlength1024actuallengthws_filelength.*Determineaccumulatedfilelengthaseachrecordreadin.ws_flength=ws_flength+ws_filelength.*Last
4、recordoffilewillcausesy-subrctonotbe0andwillbe*lessinlengththanrecordsize.ifws_flength0.moveinrectoitab.appenditab.endif.*endloopatendoffile.ifsy-subrcne0.exit.endoffilemusthavebeenreachedendif.enddo.closedatasetWS_FILENAME.*Addpicturefiletocontentserverforspecificassociate.CALLFUNCTIONARCHIV_CREATE
5、_TABLEEXPORTINGar_object=HRICOLFOTOobjectjd=000000400002sap_object=PRELflength=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_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.CALLFUNCTIONARCH
7、IV_CREATE_DIALOG_METAEXPORTING*ARCHIV_ID=ar_object=HRICOLFOTO*DEL_DATE=*NOTE=object_id=000000500002sap_object=PREL*FILE=XueqiangSharedDocs3600000040.JPGFILE=192.168.118.159tichenginput00000050.JPG*COMMIT_FLAG=IMPORTINGARCHIV=archiv_idARCHIV_DOC_ID=arc_doc_idDOCUMENTCLASS=ftypeTABLESOUTDOCTAB=RETURN*
8、CHANGING*INFILETAB=EXCEPTIONSERROR_ARCHIV=1ERROR_COMMUNICATIONTABLE=2ERROR_CONNECTIONTABLE=3ERROR_KERNEL=4ERROR_PARAMETER=5ERROR_SCANQUEUE=6CANCELED_BY_USER=7OTHERS=8.IFsy-subrc0.MESSAGEFAILEDTYPEI.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ELSE.MESSAGEFINISHTYPEI.ENDIF.