EBS开发附件上传和下载功能
上传
Oracle ERP二次开发中使用的方式有两种，一是通过标准功能，在系统管理员中定义即可，不用写代码，就可以使几乎任何Form具有附件功能，具体参考系统管理员文档；二是通过PL/SQL
Gateway，需要我们便写代码完成。该方式其实和上述方式一的后台实现是一样的
程序说明
1、Package功能，测试通过PL/SQLGateway（MOD PL/SQL）完成文件上传下载
2、本Package直接使用EBS的DAD，所以对应的Document表为APPS.fnd_lobs_document
在非EBS环境开发，需要自己定义DAD请参考9ias_plsql.pdf和9ias.pdf，步骤如下
a、创建Document表，参照fnd_lobs_document和fnd_lobs_documentpart，表名自己起
b、配置DAD，配置文件为$IAS_ORACLE_HOME/Apache/modplsql/cfg/wdbsvr.app
c、参照fnd_gfm，改写成自己的包，或者简单点改写本Package也行
3、需要把我们写的包在system administrator--> security --> Web PL/SQL里面注册一下，
不然通过IE打开会提示用户名和密码
4、本测试把在“接口”fnd_lobs_document中的附件，按照EBS的做法保存到fnd_lobs，
也可以改写代码保存到自己的表，一般没必要，我们自己的表保存File_ID即可
5、一个表中的BLOB等数据可以直接插入另一个表
下载
上传的文件时存到了fnd_lobs表中以BLOB数据的形式存储，现在要把BLOB数据以原文件的格式读取出来，并且给最终用户提供下载该文件的功能
方法如下
declare
v_file_id NUMBER;
url VARCHAR2(500);
begin
--Get the file_id of the file which you want to download in fnd_lobs
v_file_id := xxxxxx;
--Get The Download URL
url := fnd_gfm.construct_download_url(fnd_web_config.gfm_agent,v_file_id,TRUE);
fnd_utilities.open_url(url);
end;
以上的方法就可以轻松的实现下载存储在fnd_lobs中的文件，只要告诉fnd_gfm.construct_download_url在fnd_lobs表中文件的file_id，就可以轻松取得URL，使用fnd_utilities.open_url就可以下载该文件；不过现在还有一个问题就是要在工作流发送的消息找到一个东西（比如说一个按钮、超链接）来执行下载文件的方法可以在document类型的ATTRIBUTE里设置一个超链接，然后让这个超链接的地址指向我已经取得的下载文件的URL
CREATE OR REPLACE PACKAGE oracle_up_down AUTHID CURRENT_USER IS
/********************************************
1、Package功能，测试通过PL/SQL Gateway（MOD PL/SQL）完成文件上传下载
2、本Package直接使用EBS的DAD，所以对应的Document表为APPS.fnd_lobs_document
在非EBS环境开发，需要自己定义DAD请参考9ias_plsql.pdf和9ias.pdf，步骤如下
1、创建Document表，参照fnd_lobs_document和fnd_lobs_documentpart，表名自己起
2、配置DAD，配置文件为$IAS_ORACLE_HOME/Apache/modplsql/cfg/wdbsvr.app
3、参照fnd_gfm，改写成自己的包，或者简单点改写本Package也行
3、需要把我们写的包在system administrator --> security --> Web PL/SQL里面注册一下，
不然通过IE打开会提示用户名和密码
4、本测试把在“接口”fnd_lobs_document中的附件，按照EBS的做法保存到fnd_lobs，
也可以改写代码保存到自己的表，一般没必要，我们自己的表保存File_ID即可
5、一个表中的BLOB等数据可以直接插入另一个表 ********************************************/
/***************上传文件下载过程*************
1、初始化access id
select fnd_gfm.authorize(-1) from dual; 2、准备url，下面是例子
SELECT fnd_web_config.trail_slash(fnd_profile.VALUE('APPS_WEB_AGENT')) ||
'oracle_up_down.upload_form?p_access_id=上面1的查询结果'
FROM dual; 3、用浏览器打开url即可。如果是通过Form打开url上传，那么把上面代码放入form的相应trigger 4、查看File_ID
SELECT fnd_web_config.trail_slash(fnd_profile.VALUE('APPS_WEB_AGENT')) ||
'oracle_up_down.upload_form?p_access_id=上面1的查询结果'
FROM dual; 4、把文件下载下来验证
SELECT fnd_web_config.trail_slash(fnd_profile.VALUE('APPS_WEB_AGENT')) ||
'oracle_up_down.download_file?p_file_id=上面4的查询结果' || chr(38) ||
'p_access_id=上面1的查询结果'
FROM dual; 5、可以直接在PL/SQL Developer 6以上中Select出来点击File_Data察看 Test脚本
http://hw321.huawei.com:8003/pls/scp/fnd_web.SHOWENV;
select fnd_gfm.authorize(-1) from dual;
select * from applsys.fnd_lob_access t where t.access_id = 354896931892;
http://hw321.huawei.com:8003/pls/SCP/oracle_up_down.upload_form?p_access_id=354896931892;
select * from applsys.fnd_lob_access t where t.access_id = 354896931892;
select * from applsys.fnd_lobs_document t;
http://hw321.huawei.com:8003/pls/SCP/oracle_up_down.download_file?p_file_id=3548970&p_access_id=354896931892;
Select * from fnd_lobs flb where flb.file_id = 3548970;
****************上传文件下载过程*****************/ g_agent CONSTANT VARCHAR2(100) := fnd_web_config.trail_slash(fnd_profile.VALUE('APPS_WEB_AGENT'));
g_package_name CONSTANT VARCHAR2(100) := 'oracle_up_down';
g_upload_url CONSTANT VARCHAR2(100) := g_package_name || '.upload_file';
g_download_url CONSTANT VARCHAR2(100) := g_package_name ||
'.download_file';
g_cancel_url CONSTANT VARCHAR2(100) := g_package_name || '.cancel_file'; --完成上传：把在网关中的数据抓到自己的表
PROCEDURE upload_file(p_file_name IN VARCHAR2, p_access_id IN NUMBER);
--显示HTML取消页面
PROCEDURE upload_cancel;
--显示HTML上传页面
PROCEDURE upload_form(p_access_id IN NUMBER DEFAULT NULL);
--下载文件
PROCEDURE download_file(p_file_id IN NUMBER,
p_access_id IN NUMBER,
p_purge IN VARCHAR2 DEFAULT NULL); PROCEDURE download_file_html(p_file_id IN NUMBER,
p_access_id IN NUMBER,
p_purge IN VARCHAR2 DEFAULT NULL); END;
/
CREATE OR REPLACE PACKAGE BODY oracle_up_down IS --add '/' to a string
FUNCTION trail_slash(p_val IN VARCHAR2) RETURN VARCHAR2 IS
l_copy_val VARCHAR2(2000);
BEGIN
l_copy_val := p_val;
WHILE (substr(l_copy_val, -1, 1) = '/') LOOP
l_copy_val := substr(l_copy_val, 1, length(l_copy_val) - 1);
END LOOP;
RETURN l_copy_val || '/';
END; PROCEDURE err_msg(NAME VARCHAR2) IS
BEGIN
fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
fnd_message.set_token('ROUTINE', 'FND_GFM.' || NAME);
fnd_message.set_token('ERRNO', SQLCODE);
fnd_message.set_token('REASON', SQLERRM);
END err_msg; /*
从fnd_gfm拷贝过来，原来的代码是删除整个fnd_lobs_document，不知道为何，现在改为仅删除上传的文件
*/ FUNCTION confirm_upload(access_id NUMBER,
file_name VARCHAR2,
program_name VARCHAR2 DEFAULT NULL,
program_tag VARCHAR2 DEFAULT NULL,
expiration_date DATE DEFAULT NULL,
LANGUAGE VARCHAR2 DEFAULT userenv('LANG'),
wakeup BOOLEAN DEFAULT FALSE)
RETURN NUMBER IS
fid NUMBER := -1;
fn VARCHAR2(256);
mt VARCHAR2(240);
bloblength NUMBER; -- bug 3045375, added variable to set length of blob.
BEGIN
IF (fnd_gfm.authenticate(confirm_upload.access_id)) THEN
SELECT fnd_lobs_s.NEXTVAL INTO fid FROM dual; fn := substr(confirm_upload.file_name,
instr(confirm_upload.file_name, '/') + 1); -- bug 3045375, added select to get length of BLOB.
SELECT dbms_lob.getlength(blob_content), mime_type
INTO bloblength, mt
FROM fnd_lobs_document
WHERE NAME = confirm_upload.file_name
AND rownum = 1; -- bug 3045375, added if to check length of blob.
IF bloblength > 0 THEN
INSERT INTO fnd_lobs
(file_id,
file_name,
file_content_type,
file_data,
upload_date,
expiration_date,
program_name,
program_tag,
LANGUAGE,
file_format)
(SELECT confirm_upload.fid,
fn,
ld.mime_type,
ld.blob_content,
SYSDATE,
confirm_upload.expiration_date,
confirm_upload.program_name,
confirm_upload.program_tag,
confirm_upload.LANGUAGE,
fnd_gfm.set_file_format(mt)
FROM fnd_lobs_document ld
WHERE ld.NAME = confirm_upload.file_name
AND rownum = 1); IF (SQL%ROWCOUNT <> 1) THEN
RAISE no_data_found;
END IF; UPDATE fnd_lob_access
SET file_id = fid
WHERE access_id = confirm_upload.access_id; IF wakeup THEN
dbms_alert.signal('FND_GFM_ALERT' || to_char(access_id),
to_char(fid));
END IF;
-- bug 3045375, added else to return fid = -2.
ELSE
fid := -2;
END IF;
DELETE FROM fnd_lobs_document ld
WHERE ld.NAME = confirm_upload.file_name;
--delete from fnd_lobs_documentpart;
END IF;
RETURN fid;
EXCEPTION
WHEN OTHERS THEN
DELETE FROM fnd_lobs_document ld
WHERE ld.NAME = confirm_upload.file_name;
--delete from fnd_lobs_documentpart; err_msg('confirm_upload');
RAISE;
END; PROCEDURE upload_file(p_file_name IN VARCHAR2, p_access_id IN NUMBER) IS
l_file_id NUMBER;
BEGIN l_file_id := confirm_upload(access_id => p_access_id,
file_name => p_file_name,
program_name => g_package_name); IF l_file_id NOT IN (-1, -2) THEN
-- File upload completed
htp.htmlopen;
htp.headopen;
htp.title('文件上传');
htp.headclose;
htp.bodyopen;
htp.img2('/images/wwcban.jpg', calign => 'Center', calt => 'Logo');
htp.br;
htp.br;
htp.p('<h4>' || '文件上传' || '</h4>');
htp.hr;
htp.p(htf.bold('文件上传完成。Select * from fnd_lobs flb where flb.file_id = ' ||
l_file_id));
htp.br; htp.p('<h4>' || '请关闭浏览器！' || '</h4>');
htp.br;
htp.bodyclose;
htp.htmlclose; ELSE
-- File upload failed.
htp.htmlopen;
htp.headopen;
htp.title('文件上传');
htp.headclose;
htp.bodyopen;
htp.img2('/images/wwcban.jpg', calign => 'Left', calt => 'Logo');
htp.br; htp.hr;
htp.p(htf.bold('文件上传失败！'));
htp.br;
htp.bodyclose;
htp.htmlclose;
END IF; END; PROCEDURE upload_cancel AS BEGIN -- Show a message page
htp.htmlopen;
htp.headopen;
htp.title('取消文件上传');
htp.headclose;
htp.bodyopen;
htp.img2('/images/wwcban.jpg', calign => 'Center', calt => 'Logo');
htp.br;
htp.br;
htp.p('<h4>' || '文件上传' || '</h4>');
htp.hr;
htp.p(htf.bold('取消文件上传'));
htp.br;
htp.p('<h4>' || '您已经选择取消文件上传。' || '</h4>');
htp.p('<h4>' || '请关闭浏览器！' || '</h4>');
htp.br;
htp.br;
htp.br;
htp.bodyclose;
htp.htmlclose; END; PROCEDURE upload_form(p_access_id IN NUMBER DEFAULT NULL) IS
l_upload_action VARCHAR2(2000);
BEGIN -- Set the upload action
l_upload_action := fnd_gfm.construct_upload_url(g_agent,
g_upload_url,
p_access_id);
-- Set page title and toolbar.
htp.htmlopen;
htp.headopen;
htp.p('<SCRIPT LANGUAGE="JavaScript">');
htp.p(' function processclick (cancel_url) {
if (confirm(' || '"' || '取消文件上传' || '"' || '))
{
parent.location=cancel_url
}
}');
htp.print('</SCRIPT>');
htp.title('文件上传');
htp.headclose;
htp.bodyopen;
htp.img2('/images/wwcban.jpg', calign => 'Center', calt => 'Logo');
htp.br;
htp.br;
htp.p('<h4>' || '文件上传' || '</h4>');
htp.hr;
htp.br;
htp.print('</LEFT>'); htp.formopen(curl => l_upload_action,
cmethod => 'POST',
cenctype => 'multipart/form-data');
htp.tableopen(cattributes => ' border=0 cellpadding=2 cellspacing=0');
htp.tablerowopen;
htp.tablerowclose; htp.tablerowopen(cvalign => 'TOP');
htp.p('<TD>');
htp.p('</TD>');
htp.p('<label>文件</label>');
htp.tabledata('<INPUT TYPE="File" NAME="p_file_name" SIZE="60">',
calign => 'left');
htp.tablerowclose;
htp.tableclose; -- Send access is as a hidden value
htp.formhidden(cname => 'p_access_id', cvalue => to_char(p_access_id)); htp.br;
htp.tableopen(cattributes => ' border=0 cellpadding=2 cellspacing=0');
htp.tablerowopen(cvalign => 'TOP');
htp.tabledata('<INPUT TYPE="Submit" VALUE="' || '确定' ||
'" SIZE="50">',
calign => 'left');
htp.tabledata('<INPUT TYPE="Button" NAME="cancel" VALUE="' || '取消' || '"' ||
' onClick="processclick(''' || g_cancel_url ||
''') " SIZE="50">',
calign => 'left');
htp.tablerowclose;
htp.tableclose;
htp.formclose; htp.bodyclose;
htp.htmlclose;
END; PROCEDURE download_file(p_file_id IN NUMBER,
p_access_id IN NUMBER,
p_purge IN VARCHAR2 DEFAULT NULL) IS
BEGIN
fnd_gfm.download(p_file_id, p_access_id, p_purge);
END; PROCEDURE download_file_html(p_file_id IN NUMBER,
p_access_id IN NUMBER,
p_purge IN VARCHAR2 DEFAULT NULL) IS
BEGIN
htp.print('
<html>
<body>
<img src=' || g_download_url || '?p_file_id=' ||
p_file_id || chr(38) || 'p_access_id=' || p_access_id ||
' border=0>
</body>
</html>
');
END;
END;
/
EBS开发附件上传和下载功能的更多相关文章
- EBS开发附件上传和下载功能(转)
原文地址: EBS开发附件上传和下载功能 上传 Oracle ERP二次开发中使用的方式有两种,一是通过标准功能,在系统管理员中定义即可,不用写代码,就可以使几乎任何Form具有附件功能,具体参考系统 ...
- iOS开发中文件的上传和下载功能的基本实现-备用
感谢大神分享 这篇文章主要介绍了iOS开发中文件的上传和下载功能的基本实现,并且下载方面讲到了大文件的多线程断点下载,需要的朋友可以参考下 文件的上传 说明:文件上传使用的时POST请求,通常把要上传 ...
- 使用SpringMVC框架实现文件上传和下载功能
使用SpringMVC框架实现文件上传和下载功能 (一)单个文件上传 ①配置文件上传解释器 <!—配置文件上传解释器 --> <mvc:annotation-driven>&l ...
- JavaWeb中的文件上传和下载功能的实现
导入相关支持jar包:commons-fileupload.jar,commons-io.jar 对于文件上传,浏览器在上传的过程中是将文件以流的形式提交到服务器端的,如果直接使用Servlet获取上 ...
- Libcurl最初的实现tfp上传和下载功能
研究报告指出的目标是使用libcurl实现ftp文件上传和下载功能 一.Libcurlde简要 Libcurl的而且易于使用的利用url进行文件传输的库. , libcurl当前支持DICT, FIL ...
- 【Python学习 】Python实现的FTP上传和下载功能
一.背景 最近公司的一些自动化操作需要使用Python来实现FTP的上传和下载功能.因此参考网上的例子,撸了一段代码来实现了该功能,下面做个记录. 二.ftplib介绍 Python中默认安装的ftp ...
- SpringMVC+Ajax实现文件批量上传和下载功能实例代码
需求: 文件批量上传,支持断点续传. 文件批量下载,支持断点续传. 使用JS能够实现批量下载,能够提供接口从指定url中下载文件并保存在本地指定路径中. 服务器不需要打包. 支持大文件断点下载.比如下 ...
- C#实现FTP文件的上传、下载功能、新建目录以及文件的删除
本来这篇博文应该在上周就完成的,可无奈,最近工作比较忙,没有时间写,所以推迟到了今天.可悲的是,今天也没有太多的时间,所以决定给大家贴出源码,不做详细的分析说明,如果有不懂的,可以给我留言,我们共同讨 ...
- java 附件上传、下载前后端代码
前言:业务需要:附件上传,需要同时满足浏览器上传,和APP上传附件,并且浏览器端不可使用form表单提交,因为表单提交无法直接获取返回值,除非刷新页面才可显示上传的附件.所以此处使用ajaxfileu ...
随机推荐
- 【python进阶】详解元类及其应用2
前言 在上一篇文章[python进阶]详解元类及其应用1中,我们提到了关于元类的一些前置知识,介绍了类对象,动态创建类,使用type创建类,这一节我们将继续接着上文来讲~~~ 5.使⽤type创建带有 ...
- Python的基础学习（第二周）
模块初始 sys模块 import sys sys.path #打印环境变量 sys.argv#打印该文件路径 #注意:该文件名字不能跟导入模块名字相同 os模块 import os cmd_res ...
- shell编程－项目部署（优化篇）
在实际工作中小编遇到了一个问题那就是当我去操作部署脚本的时候,另一个人也可以操作,这怎么能行啊,后来小编就觉得重新优化下代码,给它加一个进程锁 老规矩,先梳理下思路: 同一时间内,脚本只能够允许一个人 ...
- Words to Use Instead of "Very"
- [HNOI2013]数列
题目描述 小T最近在学着买股票,他得到内部消息:F公司的股票将会疯涨.股票每天的价格已知是正整数,并且由于客观上的原因,最多只能为N.在疯涨的K天中小T观察到:除第一天外每天的股价都比前一天高,且高出 ...
- 【BZOJ1026】【SCOI2009】windy数
Description windy定义了一种windy数.不含前导零且相邻两个数字之差至少为2的正整数被称为windy数. windy想知道,在A和B之间,包括A和B,总共有多少个windy数? In ...
- xx学院学员评优评奖管理系统
[勤拂拭软件,软件开发,毕业设计,程序作业,论文写作指导:q-[1215714557] 加好友请注明:勤拂拭)] 之前帮助一个军校学生做的一个评优评奖管理系统,该系统主要用于学校学生评优评先使用. ...
- c语言程序设计第四次作业——顺序结构
(一)改错题 输出三角形的面积和周长,输入三角形的三条边a.b.c,如果能构成一个三角形,输出面积area和周长perimeter(保留2位小数):否则,输出"These sides do ...
- 多线程join（加入）
package cn.itcast.thread;/* join方法. 加入 */ //老妈class Mon extends Thread{ public void run() { System.o ...
- monitoring with Prometheus
Prometheus是一款开源的监控工具,支持k8s metrics的数据格式,同时也支持通过k8s api进行服务发现从而实现对自定义的metrics进行监控.下面通过一个示例来介绍如何将Prome ...