资源描述：
《csv文件上传数据库.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、上传界面：选择按钮：declareaccess_idnumber;l_server_urlvarchar2(100);l_parametersvarchar2(100);button_choiceinteger;l_file_idvarchar2(100);l_gfm_idinteger;BEGINaccess_id:=fnd_gfm.authorize(null);fnd_profile.get('APPS_WEB_AGENT',l_server_url);l_parameters:='access_id='
2、
3、access_id
4、
5、'l_server
6、_url='
7、
8、l_server_url;fnd_function.execute(FUNCTION_NAME=>'FND_FNDFLUPL',OPEN_FLAG=>'Y',SESSION_FLAG=>'Y',OTHER_PARAMS=>l_parameters);--Displayamodalmessageforusertoindicatefileupload--iscompleted.FND_MESSAGE.set_name('FND','ATCHMT-FILE-UPLOAD-COMPLETE');button_choice:=FND_MESSAGE
9、.question(button1=>'YES',button2=>null,button3=>'NO',default_btn=>1,cancel_btn=>3,icon=>'question');IF(button_choice=3)THENnull;ELSIF(button_choice=1)THENl_file_id:='';l_gfm_id:=fnd_gfm.get_file_id(access_id);:MAIN.GFM_ID:=fnd_gfm.get_file_id(access_id);IFl_gfm_idISNOTNULLTHENsel
10、ectdecode(instr(file_name,'/'),0,file_name,substr(file_name,instr(file_name,'/')+1))intol_file_idfromfnd_lobswherefile_id=l_gfm_id;ifl_file_idisnotnullthen:main.filename:=l_file_id;selectCUX_CE_STMT_S.nextvalinto:main.working_idfromdual;endif;ENDIF;ENDIF;END;上传按钮：DECLAREREQIDNUMB
11、ER:=0;l_exitBOOLEAN;BEGINIF:MAIN.FILENAMEISNULLTHENFND_MESSAGE.SET_STRING('请选择要装入的数据文件。');FND_MESSAGE.SHOW;ELSE--setcursorbusy---------------------------------------------------Set_Application_Property(CURSOR_STYLE,'BUSY');SAVEPOINTsp_match_one_day;REQID:=FND_REQUEST.submit_reque
12、st('CE','CUX_STMT_UPLOAD',NULL,NULL,FALSE,:MAIN.statement_number,:MAIN.bank_account_num,--TO_CHAR(:MAIN.statement_date,'YYYY-MM-DD'),:MAIN.statement_date,:MAIN.bank_name,:MAIN.bank_branch_name,:MAIN.CURRENCY_CODE,'CUX_STMT_UPLOAD',:MAIN.GFM_ID,:main.file_cs,:main.DELIMITER,:main.
13、working_id,CHR(0),NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NU
14、LL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NU
