SAP ABAP HR上传下载员工照片

上传下载员工照片(HR Photo)批量上传图片*&-*&ReportZCHJ_HR001*&*&-*&*&*&-*REPORTZ_BARRY_HR_PHOTO_UPLOAD.TABLES:PA0001.DATA:SAPOBJIDLIKESAPB-SAPOBJID,SAPPFADLIKESAPB-SAPPFAD.DATA:GD_PATHTYPESTRING,FILETABTYPETABLEOFFILE_INFOWITHHEADERLINE,COUNTTYPEI.DATA:FILENAME(40)TYPEC,FILEEXT(10)TYPEC,LENTYPEI.*重点图片名称要等于系统员工编号PARAMETERS:FILEPATHLIKERLGRAP-FILENAME.上传文件夹路径ATSELECTION-SCREENONVALUE-REQUESTFORFILEPATH.CALLMETHODCL_GUI_FRONTEND_SERVICES=DIRECTORY_BROWSEEXPORTINGWINDOW_TITLE=FileDirectoryINITIAL_FOLDER=C:CHANGINGSELECTED_FOLDER=GD_PATH.CALLMETHODCL_GUI_CFW=FLUSH.CONCATENATEGD_PATHINTOFILEPATH.START-OF-SELECTION.GD_PATH=FILEPATH.CALLMETHODCL_GUI_FRONTEND_SERVICES=DIRECTORY_LIST_FILESEXPORTINGDIRECTORY=GD_PATHFILTER=*.jpgCHANGINGFILE_TABLE=FILETABCOUNT=COUNTEXCEPTIONSCNTL_ERROR=1DIRECTORY_LIST_FILES_FAILED=2WRONG_PARAMETER=3ERROR_NO_GUI=4NOT_SUPPORTED_BY_GUI=5OTHERS=6.*判断图片编号是否等于8位LOOPATFILETAB.SPLITFILETAB-FILENAMEAT.INTOFILENAMEFILEEXT.LEN=STRLEN(FILENAME).IFLEN8.MESSAGEE000(OO)WITH文件名长度必须等于8位.ENDIF.ENDLOOP.LOOPATFILETAB.*判断员工编号是否存在SELECTSINGLE*FROMPA0001WHEREPERNR=FILETAB-FILENAME+0(8).IFSY-SUBRC=0.*判断员工编号是否已过期SELECTSINGLE*FROMPA0001WHEREPERNR=FILETAB-FILENAME+0(8)ANDBEGDA=SY-DATUM.IFSY-SUBRC=0.CONCATENATEGD_PATHFILETAB-FILENAMEINTOSAPPFAD.CONCATENATEFILETAB-FILENAME+0(8)0002INTOSAPOBJID.CALLFUNCTIONARCHIV_CREATE_FILEEXPORTINGAR_OBJECT=HRICOLFOTOOBJECT_ID=SAPOBJIDSAP_OBJECT=PRELDOC_TYPE=JPGPATH=SAPPFADEXCEPTIONSERROR_CONECTIONTABLE=1ERROR_PARAMETER=2ERROR_ARCHIV=3ERROR_UPLOAD=4ERROR_KERNEL=5NO_ENTRY_POSSIBLE=6ERROR_COMUNICATIONTABLE=7OTHERS=8.IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ELSE.WRITE:/Upload,SAPPFAD,Topernr,FILETAB-FILENAME+0(8),Sccuess!.ENDIF.ELSE.WRITE:/ERROR,SAPPFAD,此员工编号,FILETAB-FILENAME+0(8),已过期!.ENDIF.ELSE.WRITE:/ERROR,SAPPFAD,此员工编号,FILETAB-FILENAME+0(8),不存在!.ENDIF.ENDLOOP.输入屏幕：输出屏幕：批量下载图片REPORTZ_BARRY_HR_PHOTO_DOWN.DATA:COMPS2TYPESTANDARDTABLEOFSCMS_DOINFWITHHEADERLINE,COMP_NAMESTYPESTANDARDTABLEOFSCMS_DONAMWITHHEADERLINE.PARAMETERSP_PERNRLIKEPA0001-PERNR.PERFORMPHOTO_DOWNUSINGP_PERNRA1800010199991231D:abc.jpg.*&-*&FormURL_GET*&-*FORMPHOTO_DOWNUSINGP_PERNRLIKEPERNR-PERNRP_TCLASLIKEPSPAR-TCLASP_BEGDALIKEPRELP-BEGDAP_ENDDALIKEPRELP-ENDDAPATHTYPEC.DATA:L_CONNECT_INFOLIKETOAV0,L_EXISTS(1)TYPEC.CALLFUNCTIONHR_IMAGE_EXISTSEXPORTINGP_PERNR=P_PERNRP_TCLAS=P_TCLASP_BEGDA=P_BEGDAP_ENDDA=P_ENDDAIMPORTINGP_EXISTS=L_EXISTSP_CONNECT_INFO=L_CONNECT_INFOEXCEPTIONSOTHERS=2.IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.EXIT.ENDIF.CALLFUNCTIONSCMS_DOC_READ_FILESEXPORTINGSTOR_CAT=SPACECREP_ID=L_CONNECT_INFO-ARCHIV_IDDOC_ID=L_CONNECT_INFO-ARC_DOC_IDPATH=PATHFRONTEND=XTABLESCOMPS=COMPS2COMP_NAMES=COMP_NAMESEXCEPTIONSBAD_STORAGE_TYPE=1BAD_REQUEST=2UNAUTHORIZED=3NOT_FOUND=4CONFLICT=5INTERNAL_SERVER_ERROR=6ERROR_HTTP=7ERROR_SIGNATURE=8ERROR_CONFIG=9ERROR_HIERARCHY=10ERROR_DOWNLOAD=11ERROR_OPEN=12ERROR_PARAMETER=13ERROR=14OTHERS=15.IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.ENDFORM.photo_downABAP-通过 ARCHIV_CREATE_FILE上传员工照片(代码摘抄OAOH)单个上传图片*Copyright2004C-BonsWuhan*AllRightsReserved*-*ProgramName:ZHRIPHOTO*Project:SAPImplementationProject*ProgramTitle:照片导入*Createdby:DEV01*Createdon:2007/09/15*Version:1.0*-*FunctionDescription:*照片导入*-*DataTableList:*-*RefrenceTableList:*-*ModificationLog:*DateProgrammerCorrectionNumber*REPORTZHRIPHOTONOSTANDARDPAGEHEADINGLINE-SIZE255MESSAGE-IDZDEV.*INTERNALTABLESDATA:BEGINOFGT_PHOTOOCCURS0,PERNR(8),ENDOFGT_PHOTO.DATA:G_PATHLIKEDRAW-FILEP,G_SAPOBJIDLIKESAPB-SAPOBJID,G_FILENAMETYPESTRING,G_SAPPFADLIKESAPB-SAPPFAD.PARAMETERS:P_FILELIKERLGRAP-FILENAMEOBLIGATORY.文件路径*&Initialization*INITIALIZATION.*CONCATENATEsy-unamesy-datum+4(4)INTOgroup.*START-OF-SELECTION*ATSELECTION-SCREENONVALUE-REQUESTFORP_FILE.CALLFUNCTIONWS_FILENAME_GETEXPORTINGDEF_FILENAME=DEF_PATH=C:MASK=,TextFiles,*.txt;*.prn,AllFiles,*.*.MODE=OTITLE=选取导入文件(100)IMPORTINGFILENAME=P_FILEEXCEPTIONSINV_WINSYS=1NO_BATCH=2SELECTION_CANCEL=3SELECTION_ERROR=4OTHERS=5.IFSY-SUBRC0ANDSY-SUBRC3.MESSAGEE102(ZDEV)WITHErrorSelectingFile(007).ENDIF.*START-OF-SELECTION*START-OF-SELECTION.G_PATH=P_FILE.CALLFUNCTIONCV120_SPLIT_PATHEXPORTINGPF_PATH=G_PATHIMPORTINGPFX_PATH=G_PATH.G_FILENAME=P_FILE.CALLFUNCTIONGUI_UPLOADEXPORTINGFILENAME=G_FILENAME*FILETYPE=ASC*has_field_separator=X*dat_mode=XTABLESDATA_TAB=GT_PHOTOEXCEPTIONSFILE_OPEN_ERROR=1FILE_READ_ERROR=2NO_BATCH=3GUI_REFUSE_FILETRANSFER=4INVALID_TYPE=5NO_AUTHORITY=6UNKNOWN_ERROR=7BAD_DATA_FORMAT=8HEADER_NOT_ALLOWED=9SEPARATOR_NOT_ALLOWED=10HEADER_TOO_LONG=11UNKNOWN_DP_ERROR=12ACCESS_DENIED=13DP_OUT_OF_MEMORY=14DISK_FULL=15DP_TIMEOUT=16OTHERS=17.IFSY-SUBRC0.MESSAGES306.ENDIF.LOOPATGT_PHOTO.CONCATENATEG_PATHGT_PHOTO-PERNR.JPGINTOG_SAPPFAD.CONCATENATEGT_PHOTO-PERNR0002INTOG_SAPOBJID.CALLFUNCTIONARCHIV_CREATE_FILEEXPORTINGAR_OBJECT=HRICOLFOTOOBJECT_ID=G_SAPOBJIDSAP_OBJECT=PRELDOC_TYPE=JPGPATH=G_SAPPFADEXCEPTIONSERROR_CONECTIONTABLE=1ERROR_PARAMETER=2ER