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

1、HR上传传个人照照片到信信息类型型T-COODE SPRRO选择EEDITT DOOCUMMENTT TYYPESS复制或者者新建一一个文档档类别为为JPG的复制或者者创建PRELL是T-COODE OAAAD查看如果要在在前台右右边直接接显示照照片 则要用用特定的的文档对对象(下图)下面这个个程序 适合前前台和后后台操作作REPOORT ZYYAOWWEI_0077.*PARRAMEETERRS: P_UUNXDDIR LIKKE RRLGRRAP-FILLENAAME DEFFAULLT /kaaoqiin/IINPUUT/00000000440.jjpg.PARAAMETTERSS: P

2、P_UNNXDIIR LLIKEE RLLGRAAP-FFILEENAMME DDEFAAULTT /usrr/saap/HHRD/DVEEBMGGS000/daata/0000000040.JPGG.DATAA : BEGGIN OF INFFILEE_DAATA OCCCURSS 0, INN_LIINE(80) tyype c,END OF INFFILEE_DAATA.DATAA : beggin of inrrec,raw(10224) typpe xx,end of inrrec.DATAA : beggin of itaab ooccuurs 0,raw(10224) typpe

3、 xx,end of itaab.Dataa: WWS_FFILEENAMME TTYPEE STTRINNG,WS_OOBJIID LLIKEE SAAPB-SAPPOBJJID,WS_FFILEELENNGTHH TYYPE I,WS_FFLENNGTHH LIIKE SAPPB-LLENGGTH.*STARRT-OOF-SSELEECTIION.openn daatasset P_UUNXDDIR forr innputt inn biinarry mmodee.do.* Reead fille oone reccordd att a timme iin bbinaary modde.c

4、leaar iinreec.readd daatasset P_UUNXDDIR intto iinreec mmaxiimumm leengtth 110244 acctuaal llenggth ws_filleleengtth.* Deeterrminne aaccuumullateed ffilee leengtth aas eeachh reecorrd rreadd inn.ws_fflenngthh = ws_fleengtth + wss_fiilellenggth.* Laast reccordd off fiile willl ccausse ssy-ssubrrc tto

5、 nnot be 0 aand willl bbe* leess in lenngthh thhan reccordd siize.if wws_fflenngthh 0.movee innrecc too ittab.appeend itaab.endiif.* ennd lloopp att ennd oof ffilee.if ssy-ssubrrc nne 00.exitt. endd off fiile musst hhavee beeen reaacheedendiif.endddo.closse ddataasett WSS_FIILENNAMEE.* Addd ppicttur

6、ee fiile to conntennt sservver forr sppeciificc asssocciatte.CALLL FUUNCTTIONN AARCHHIV_CREEATEE_TAABLEEEXPOORTIING ar_objjectt = HRRICOOLFOOTOobjeect_id = 0000000040000022sap_objjectt = PRRELflenngthh = WS_FLEENGTTHTABLLES binnarcchivvobjjectt = ITAAB.IF SSY-SSUBRRC = 0.WRITTE : / WS_OBJJID+0(88),

7、- ppictturee looadeed: , WS_FILLENAAME, - lenngthh: , WWS_FFLENNGTHH.elsee. WWRITTE : / WS_OBJJID+0(88), - UUnabble to loaad ppic: , WSS_FIILENNAMEE, - leengtth: , WS_FLEENGTTH.ENDIIF.cleaar IINFIILE_DATTA-IIN_LLINEE.下面这个个程序 只适合合前台SELEECTIION-SCRREENN BBEGIIN OF BLLOCKK rradiio1 WITTH FRAAME TITTLE

8、texxt-0001.PARAAMETTERSS:P_FILLE TTYPEE LOOCALLFILLE.SELEECTIION-SCRREENN EEND OFF BBLOCCK raddio11.END-OF-SELLECTTIONN.DATAA: aarchhiv_id LIKKE ttoavv0-aarchhiv_id, aarc_docc_idd LIIKE toaav0-arcc_dooc_iid, fftyppe LLIKEE TOOADVV-DOOC_TTYPEE.DATAA:REETURRN TTYPEE TOOADTT OCCCURRS 00 WIITH HEAADERR

9、LIINE.CALLL FUUNCTTIONN AARCHHIV_CREEATEE_DIIALOOG_MMETAA EXXPORRTINNG* ARCCHIVV_IDD = ar_objjectt = HRRICOOLFOOTO* DELL_DAATE = * NOTTE = objjectt_idd = 0000000050000002 sapp_obbjecct = PRREL* FIILE = XuueqiianggShhareedDoocs360000000040.JPGGFILEE = 1192.1688.1118.1159ticchenngiinpuut00000000550.JJ

10、PG* COMMMITT_FLLAG = IMPPORTTINGG AARCHHIV = aarchhiv_id AARCHHIV_DOCC_IDD = aarc_docc_idd DDOCUUMENNTCLLASSS = fftyppe TABBLESS OOUTDDOCTTAB = RRETUURN* CHHANGGINGG* INFFILEETABB = EXCCEPTTIONNS EERROOR_AARCHHIV = 11 EERROOR_CCOMMMUNIICATTIONNTABBLE = 22 EERROOR_CCONNNECTTIONNTABBLE = 33 EERROOR_KKERNNEL = 44 EERROOR_PPARAAMETTER = 55 EERROOR_SSCANNQUEEUE = 66 CCANCCELEED_BBY_UUSERR = 77 OOTHEERS = 88 .IF ssy-ssubrrc 00. MEESSAAGE FAAILEED T