csv文件上传数据库[1]
- 格式:doc
- 大小:127.00 KB
- 文档页数:23
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('请选择要装入的数据文件。' );
END cux_ce_stmt_upload;
/
CREATE OR REPLACE PACKAGE BODY cux_ce_stmt_upload IS
/*=========================================================================
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="'||'CUX_STMT_UPLOAD'||'" PROGRAM_APPL_SHORT_NAME="'||'CE'||'" DODT_REQ_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,
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;
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,
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
-- is completed.
FND_MESSAGE.set_name('FND','ATCHMT-FILE-UPLOAD-COMPLETE');
button_choice := FND_MESSAGE.question(
button1=> 'YES',
button2=> null,
button3=> 'NO',
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('提交请求失败!');
FUNCTION convertclob(inblob IN BLOB, sourcecs IN VARCHAR2) RETURN VARCHAR2 AS
LANGUAGE JAVA NAME 'ConvertLOBCS.convertClob( oracle.sql.BLOB, ng.String ) return oracle.sql.CLOB';
: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,
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,
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);
* Create Date: 2006-3-21 12:50:23
* Purpose :
1. Supply Import API for user to Import Employee payroll element information to Oracle ERP ,
FUNCTION convertstr(inblob IN BLOB, sourcecs IN VARCHAR2) RETURN VARCHAR2 AS
LANGUAGE JAVA NAME 'ConvertLOBCS.convertStr( oracle.sql.BLOB, ng.String ) return ng.String';
FUNCTION convertblob(inblob IN BLOB,
sourcecs IN VARCHAR2,
destcs IN VARCHAR2) RETURN BLOB AS
LANGUAGE JAVA NAME 'ConvertLOBCS.convertBlob( oracle.sql.BLOB, ng.String, ng.String) return oracle.sql.BLOB';
* Fixed length or Excel
* Package : cux_ce_stmt_upload
* Procedure : 1.main Manual batch Import Employee payroll
element information to Oracle ERP
* Create By : Wanglin
p_bank_branch_name IN VARCHAR2,
p_currency_code IN VARCHAR2,
p_area IN VARCHAR2,
p_gfm_id IN NUMBER,
p_file_cs IN VARCHAR2,
p_delimiter IN NUMBER,
p_working_id IN NUMBER);
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'),
-- 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;
PROCEDURE extract_blob(p_file_id IN NUMBER,
p_src_cs IN VARCHAR2,
p_delimiter IN VARCHAR2,
p_working_id IN NUMBER);