1、精選精選上傳下載員工照片批量上傳圖片*&大*&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

2、:FILEPATHLIKERLGRAP-FILENAME.上傳文件夾路徑ATSELECTION-SCREENONVALUE-REQUESTFORFILEPATH.CALLMETHODCL_GUI_FRONTEND_SERVICES=DIRECTORY_BROWSEEXPORTINGWINDOW_TITLE=FileDirectoryINITIAL_FOLDER=C:CHANGINGSELECTED_FOLDER=GD_PATH.CALLMETHODCL_GUI_CFW=FLUSH.CONCATENATEGDPATHINTOFILEPATH.START-OF-SELECTION.GDPATHFI

3、LEPATHGDPATHFILEPATHCALLMETHODCLGUIFRONTENDSERVICES=DIRECTORYLISTFILESEXPORTINGDIRECTORYGDPATHFILTER*.jpgCHANGINGFILETABLEFILETAB口COUNTCOUNTEXCEPTIONSCNTL_ERROR=1CALLMETHODCLGUIFRONTENDSERVICES=DIRECTORYLISTFILESEXPORTINGDIRECTORYGDPATHFILTER*.jpgCHANGINGFILETABLEFILETAB口COUNTCOUNTEXCEPTIONSCNTL_ERR

4、OR=1DIRECTORY_LIST_FILES_FAILED=2WRONG_PARAMETER=3ERROR_NO_GUI=4NOT_SUPPORTED_BY_GUI=5OTHERS=6.*判斷圖片編號是否等于8位LOOPATFILETAB.SPLITFILETAB-FILENAMEATINTOFILENAMEFILEEXT.SPLITFILETAB-FILENAMEATINTOFILENAMEFILEEXT.LENSTRLEN(FILENAME)LENSTRLEN(FILENAME)IFLEN8MESSAGEE000(OO)WITH文件名長度必須等于8位.ENDIF.ENDLOOP.LOO

5、PATFILETAB.*判斷員工編號是否存在SELECTSINGLEFROMPA0001WHEREPERNRFILETAB-FILENAME+0(8).WHEREPERNRFILETAB-FILENAME+0(8).IFSY-SUBRC*判斷員工編號是否已過期SELECTSINGLE*FROMPA0001WHEREPERNRFILETAB-FILENAME+0(8)WHEREPERNRFILETAB-FILENAME+0(8)ANDBEGDA=SY-DATUM.IFSY-SUBRCCONCATENATEGDPATHFILETAB-FILENAMEINTOSAPPFAD.CONCATENATEF

6、ILETAB-FILENAME+0(8)0002INTOSAPOBJID.CALLFUNCTIONARCHIVCREATEFILEEXPORTINGAROBJECTHRICOLFOTOAROBJECTSAPOBJIDOBJECTIDSAPOBJIDSAP_OBJECT=PRELDOC_TYPE=JPGPATH=SAPPFADEXCEPTIONSERROR_CONECTIONTABLE=1ERROR_PARAMETER=2ERROR_ARCHIV=3ERROR_UPLOAD=4ERROR_KERNEL=5NO_ENTRY_POSSIBLE=6ERROR_COMUNICATIONTABLE=7OT

7、HERS=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)，不存在！.END

8、IF.ENDLOOP.輸入屏幕：輸出屏幕:圖片上傳批量下載圖片REPORTZBARRYHRPHOTODOWN.DATA：COMPS2TYPESTANDARDTABLEOFSCMSDOINFWITHHEADERLINE,COMPNAMESTYPESTANDARDTABLEOFSCMSDONAMWITHHEADERLINE.PARAMETERSPPERNRLIKEPA0001-PERNR.PERFORMPHOTODOWNUSINGPPERNRA1800010199991231D:abc.jPg*&*&FormURLGET*&FormURLGET*&FORMPHOTODOWNUSINGPPERNRL

9、IKEPERNR-PERNR*&FORMPHOTODOWNUSINGPPERNRLIKEPERNR-PERNRPTCLASLIKEPSPAR-TCLASPTCLASLIKEPSPAR-TCLASPBEGDALIKEPRELP-BEGDAPBEGDALIKEPRELP-BEGDAPENDDALIKEPRELP-ENDDAPENDDALIKEPRELP-ENDDAPATHTYPECDATA:LCONNECTINFOLIKETOAV0,LEXISTS(1)TYPECCALLFUNCTIONHRIMAGEEXISTSCALLFUNCTIONHRIMAGEEXISTSEXPORTINGPPERNRPPE

10、RNRPPERNRPPERNRPTCLASPTCLASPTCLASPTCLASPBEGDAPBEGDAPBEGDAPBEGDAPENDDAPENDDAPENDDAPENDDAIMPORTINGPEXISTSLEXISTSPEXISTSLEXISTSPCONNECTINFOLCONNECTINFOPCONNECTINFOLCONNECTINFOEXCEPTIONSOTHERSIFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4EXIT.ENDIF.CALLFUNCTI

11、ONSCMSDOCREADFILESEXPORTINGSPACESTORCATSPACECREPIDLCONNECTINFO-ARCHIVIDDOCIDLCONNECTINFO-ARCDOCIDCREPIDLCONNECTINFO-ARCHIVIDDOCIDLCONNECTINFO-ARCDOCIDPATHPATHPATH精選精選FRONTEND=XTABLESCOMPS=COMPS2COMP_NAMES=COMP_NAMESEXCEPTIONSBAD_STORAGE_TYPE=1BAD_REQUEST=2UNAUTHORIZED=3NOT_FOUND=4CONFLICT=5INTERNAL_

12、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）單個

13、上傳圖片*Copyright2004C-BonsWuhan*AllRightsReserved*ProgramName:ZHRIPHOTO*TOC o 1-5 h zProject:SAPImplementationProject*ProgramTitle:照片導入*Createdby*Createdon*Version:DEV01:2007/09/15:1.0*Createdby*Createdon*Version:DEV01:2007/09/15:1.0*FunctionDescription:*照片導入*DataTableList:*RefrenceTableList:*Modifica

14、tionLog:*DateProgrammerCorrectionNumber*REPORTZHRIPHOTONOSTANDARDPAGEHEADINGLINE-SIZE255MESSAGE-IDZDEV.INTERNALTABLESDATA:BEGINOFGT_PHOTOOCCURS0,PERNR(8),ENDOFGT_PHOTO.DATA:G_PATHLIKEDRAW-FILEP,G_SAPOBJIDLIKESAPB-SAPOBJID,G_FILENAMETYPESTRING,GSAPPFADLIKESAPB-SAPPFAD.PARAMETERS:P_FILELIKERLGRAP-FILE

15、NAMEOBLIGATORY.文件路徑*&Initialization*INITIALIZATION.*CONCATENATEsy-unamesy-datum+4(4)INTOgroup.*START-OF-SELECTION*ATSELECTION-SCREENONVALUE-REQUESTFORPFILE.CALLFUNCTIONWSFILENAMEGETEXPORTINGDEFFILENAMEDEFPATHC：MASK,TextFiles,*.txt;*.prn,AllFiles,*.*MODE*&Initialization*INITIALIZATION.*CONCATENATEsy-

16、unamesy-datum+4(4)INTOgroup.*START-OF-SELECTION*ATSELECTION-SCREENONVALUE-REQUESTFORPFILE.CALLFUNCTIONWSFILENAMEGETEXPORTINGDEFFILENAMEDEFPATHC：MASK,TextFiles,*.txt;*.prn,AllFiles,*.*MODEOTITLE選取導入文件（100）IMPORTINGPFILEFILENAMEPFILEEXCEPTIONSINVWINSYSNOBATCHSELECTIONCANCELSELECTIONERROROTHERSIFSY-SUB

17、RC0ANDSY-SUBRC3.IFSY-SUBRC0ANDSY-SUBRC3.MESSAGEE102(ZDEV)WITHErrorSelectingFile(007).MESSAGEE102(ZDEV)ENDIF.*START-OF-SELECTION*START-OF-SELECTION.GPATHPFILE.CALLFUNCTIONCV120SPLITPATHGPATHPFILE.CALLFUNCTIONCV120SPLITPATHEXPORTINGPFPATHGPATHPFPATHGPATHIMPORTINGPFXPATHGPATH.GFILENAMEPFILE.CALLFUNCTIO

18、NGUI_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=15