csv文件上传数据库[1](2)

上传界面：

选择按钮： declare access_id number; l_server_url varchar2(100); l_parameters varchar2(100); button_choice integer; l_file_id varchar2(100); l_gfm_id integer; BEGIN access_id := fnd_gfm.authorize(null); fnd_profile.get(\'APPS_WEB_AGENT\', l_server_url); l_parameters :=\'access_id=\'||access_id||\' l_server_url=\'||l_server_url; fnd_function.execute(FUNCTION_NAME=>\'FND_FNDFLUPL\', OPEN_FLAG => \'Y\', SESSION_FLAG => \'Y\', OTHER_PARAMS =>l_parameters); -- Display a modal message for user to indicate file upload -- is completed. FND_MESSAGE.set_name(\'FND\',\'ATCHMT-FILE-UPLOAD-COMPLETE\'); button_choice := FND_MESSAGE.question( button1=> \'YES\', button2=> null, button3=> \'NO\', default_btn => 1, cancel_btn =>3, icon=> \'question\'); IF ( button_choice = 3 ) THEN null; ELSIF ( button_choice = 1 ) THEN l_file_id := \'\'; l_gfm_id := fnd_gfm.get_file_id(access_id); :MAIN.GFM_ID := fnd_gfm.get_file_id(access_id); IF l_gfm_id IS NOT NULL THEN select decode(instr(file_name,\'/\'),0,file_name, substr(file_name,instr(file_name,\'/\')+1)) into l_file_id from fnd_lobs where file_id = l_gfm_id; if l_file_id is not null then :main.filename := l_file_id; select CUX_CE_STMT_S.nextval into :main.working_id from dual; end if; END IF; END IF; END; 上传按钮：

DECLARE REQID NUMBER := 0; l_exit BOOLEAN; BEGIN IF :MAIN.FILENAME IS NULL THEN FND_MESSAGE.SET_STRING(\'请选择要装入的数据文件。\' ); FND_MESSAGE.SHOW; ELSE --set cursor busy--------------------------------------------------- Set_Application_Property(CURSOR_STYLE, \'BUSY\') ; SAVEPOINT sp_match_one_day ; REQID := FND_REQUEST.submit_request(\'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.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,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 ); IF REQID >0 THEN l_exit := APP_FORM.quietcommit(); FND_MESSAGE.SET_STRING(\'Request ID:\' || REQID || \' 请求已提交，请查看并发程序。 \'); FND_MESSAGE.SHOW; ELSE ROLLBACK TO sp_match_one_day; -- FND_MESSAGE.SET_STRING(\'提交请求失败！\'); FND_MESSAGE.ERROR; END IF; :MAIN.FILENAME := NULL; -- FND_FUNCTION.EXECUTE( FUNCTION_NAME=>\'FND_FNDRSRUN\', OPEN_FLAG=>\'Y\', SESSION_FLAG=>\'Y\', OTHER_PARAMS=>\'CONCURRENT_PROGRAM_NAME=PROGRAM_APPL_SHORT_NAME= TO_CHAR(REQID)||\' ); -- Set_Application_Property(CURSOR_STYLE, \'DEFAULT\'); END IF; END; 其中：CUX_STMT_UPLOAD，调用的是cux_ce_stmt_upload.main CREATE OR REPLACE PACKAGE cux_ce_stmt_upload IS -- Author : Siman he -- Created : 2006-3-16 -- Purpose : Import HR Absence Attendance Data Into ERP Environment gp_working_id NUMBER; gp_org_id NUMBER; gp_user_id NUMBER; gp_statement_number VARCHAR2(100); gp_bank_account_num VARCHAR2(100); --gp_statement_date VARCHAR2(100); gp_statement_date DATE; gp_bank_name VARCHAR2(100); gp_bank_branch_name VARCHAR2(100); gp_currency_code VARCHAR2(100); PROCEDURE log(i_chr_message IN VARCHAR2); PROCEDURE output(i_chr_message IN VARCHAR2); FUNCTION convertblob(inblob IN BLOB, sourcecs IN VARCHAR2, destcs IN VARCHAR2) RETURN BLOB AS LANGUAGE JAVA NAME \'ConvertLOBCS.convertBlob( oracle.sql.BLOB, java.lang.String, java.lang.String) return oracle.sql.BLOB\'; FUNCTION convertclob(inblob IN BLOB, sourcecs IN VARCHAR2) RETURN VARCHAR2 AS LANGUAGE JAVA NAME \'ConvertLOBCS.convertClob( oracle.sql.BLOB, java.lang.String ) return oracle.sql.CLOB\'; FUNCTION convertstr(inblob IN BLOB, sourcecs IN VARCHAR2) RETURN VARCHAR2 AS LANGUAGE JAVA NAME \'ConvertLOBCS.convertStr( oracle.sql.BLOB, java.lang.String ) return java.lang.String\'; PROCEDURE extract_blob(p_file_id IN NUMBER, p_src_cs IN VARCHAR2, p_delimiter IN VARCHAR2, p_working_id IN NUMBER); PROCEDURE ins_interface; PROCEDURE main(errbuf OUT VARCHAR2, retcode OUT VARCHAR2, p_statement_number IN VARCHAR2, p_bank_account_num IN VARCHAR2, p_statement_date IN VARCHAR2, --p_statement_date IN DATE, p_bank_name IN VARCHAR2,

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库csv文件上传数据库[1](2)在线全文阅读。