ORACLE workflow审批界面显示附件信息和附件的下载链接(转)
原文：
ORACLE workflow审批界面显示附件信息和附件的下载链接
代码如下：
CREATE OR REPLACE PACKAGE cux_attachment_util_pkg IS TYPE curtype IS REF CURSOR;
TYPE c_attached_record IS RECORD(
row_num NUMBER,
pk1_value NUMBER,
user_entity_name VARCHAR2(1000),
title VARCHAR2(1000),
file_name VARCHAR2(1000),
datatype_name VARCHAR2(1000),
file_data BLOB,
file_id NUMBER);
-------------------------------------------------------------------
---------------
-- 功能名称：
-- GET_ATTACHED_HTML
-- 功能说明：
-- 获取附件列表html 代码
-- 参数说明：
-- PITEM_TYPE 工作流代码
-- P_ITEM_KEY 审批关键字
-- P_FUNCTION_NAME 附件功能名称
-- P_ENTITY_NAME 文档实体标识
-- P_TABLE_NAME 文档实体表
-- p_BLOCK_NAME 附件功能的块名
-- 返回附件列表的HTML代码
-- 版本信息:
-- 1.0 Initial Creation
-------------------------------------------------------------------
---------------
FUNCTION get_attached_html(pitem_type IN VARCHAR2,
pitem_key IN VARCHAR2,
p_function_name IN VARCHAR2,
p_entity_name IN VARCHAR2,
p_table_name IN VARCHAR2,
p_block_name IN VARCHAR2) RETURN VARCHAR2;
---------------------------------------------------------------------
-------------
-- 功能名称：
-- GET_OUTPUT_URL
-- 功能说明：
-- 获取附件下载链接地址
-- 参数说明：
-- P_PK1_VALUE 附件的主关键字值
-- P_FILE_ID 附件文件ID
-- P_ENTITY_NAME 文档实体标识
-- 返回指定附件文件的下载链接地址
-- 版本信息:
-- 1.0 Initial Creation
---------------------------------------------------------------------
-------------
FUNCTION get_output_url(p_pk1_value IN NUMBER,
p_file_id IN NUMBER,
p_entity_name IN VARCHAR2) RETURN VARCHAR2; -------------------------------------------------------------------
---------------
-- 功能名称：
-- GET_ATTACHED_HTML
-- 功能说明：
-- 获取附件列表html 代码
-- 参数说明：
-- PITEM_TYPE 工作流代码
-- P_ITEM_KEY 审批关键字
-- P_FUNCTION_NAME 附件功能名称
-- P_ENTITY_NAME 文档实体标识
-- P_TABLE_NAME 文档实体表
-- p_BLOCK_NAME 附件功能的块名
-- 返回附件列表的HTML代码
-- 版本信息:
-- 1.0 Initial Creation
---------------------------------------------------------------------
------------- END;
CREATE OR REPLACE PACKAGE BODY cux_attachment_util_pkg IS FUNCTION get_attached_html(pitem_type IN VARCHAR2,
pitem_key IN VARCHAR2,
p_function_name IN VARCHAR2,
p_entity_name IN VARCHAR2,
p_table_name IN VARCHAR2,
p_block_name IN VARCHAR2) RETURN VARCHAR2 IS
c_attached curtype;
v_document_attached VARCHAR2(32000);
vattachedinfo c_attached_record;
v_count NUMBER := 1;
v_pk1_value NUMBER;
vpk1_filed VARCHAR2(61);
vpk2_filed VARCHAR2(61);
vpk3_filed VARCHAR2(61);
vpk4_filed VARCHAR2(61);
vpk5_filed VARCHAR2(61);
vpk1 VARCHAR2(61);
vpk2 VARCHAR2(61);
vpk3 VARCHAR2(61);
vpk4 VARCHAR2(61);
vpk5 VARCHAR2(61);
vurl VARCHAR2(500);
vcondition_field VARCHAR2(100);
vcondition_operator VARCHAR2(10);
vcondition_value1 VARCHAR2(100);
vcondition_value2 VARCHAR2(100);
vquery_permission_type VARCHAR2(10);
vinsert_permission_type VARCHAR2(10);
vupdate_permission_type VARCHAR2(10);
vdelete_permission_type VARCHAR2(10);
v_sql VARCHAR2(32000);
c_sql VARCHAR2(32000);
BEGIN
BEGIN
SELECT abe.pk1_field,
abe.pk2_field,
abe.pk3_field,
abe.pk4_field,
abe.pk5_field,
abe.condition_field,
abe.condition_operator,
abe.condition_value1,
abe.condition_value2,
abe.query_permission_type,
abe.insert_permission_type,
abe.update_permission_type,
abe.delete_permission_type
INTO vpk1_filed,
vpk2_filed,
vpk3_filed,
vpk4_filed,
vpk5_filed,
vcondition_field,
vcondition_operator,
vcondition_value1,
vcondition_value2,
vquery_permission_type,
vinsert_permission_type,
vupdate_permission_type,
vdelete_permission_type
FROM fnd_attachment_blk_entities abe,
fnd_attachment_blocks ab,
fnd_attachment_functions af
WHERE abe.attachment_blk_id = ab.attachment_blk_id
AND ab.attachment_function_id = af.attachment_function_id
AND af.function_name = p_function_name
AND af.function_type = 'F'
AND abe.data_object_code = p_entity_name
AND ab.block_name = p_block_name
AND rownum = 1;
EXCEPTION
WHEN no_data_found THEN
SELECT abe.pk1_field,
abe.pk2_field,
abe.pk3_field,
abe.pk4_field,
abe.pk5_field,
abe.condition_field,
abe.condition_operator,
abe.condition_value1,
abe.condition_value2,
abe.query_permission_type,
abe.insert_permission_type,
abe.update_permission_type,
abe.delete_permission_type
INTO vpk1_filed,
vpk2_filed,
vpk3_filed,
vpk4_filed,
vpk5_filed,
vcondition_field,
vcondition_operator,
vcondition_value1,
vcondition_value2,
vquery_permission_type,
vinsert_permission_type,
vupdate_permission_type,
vdelete_permission_type
FROM fnd_attachment_blk_entities abe,
fnd_attachment_blocks ab,
fnd_attachment_functions af
WHERE abe.attachment_blk_id = ab.attachment_blk_id
AND ab.attachment_function_id = af.attachment_function_id
AND af.function_name = p_function_name
AND af.function_type = 'O'
AND abe.data_object_code = p_entity_name
AND ab.block_name = p_block_name
AND rownum = 1;
END;
v_sql := 'SELECT ' || substr(vpk1_filed,
instr(vpk1_filed, '.', 1) + 1,
length(vpk1_filed)) || ' FROM ' ||
p_table_name || ' WHERE ITEM_KEY = ''' || pitem_key || '''' ||
' AND ROWNUM = 1';
EXECUTE IMMEDIATE v_sql
INTO v_pk1_value;
v_document_attached := '<table width=100% border="0"
cellspacing="0" cellpadding="0" >
<tr><td><table cellpadding="0" cellspacing="0" border="0"
width="100%" class="x74"
style="background-image:url(/OA_HTML/cabo/images/swan/headingBarBg.gi
f);">
<tr>
<td width="100%"><h2 class="x75"> 附件列表
</h2></td></tr></table></td></tr>
<tr><td><table width="100%" class="x1h" cellpadding="1"
cellspacing="0" summary="Action History" border="1" >
<tr>
<th class="x1r x4j" scope="col" width="2%" align="LEFT"
valign="baseline" ><span class="x24"> 序号</span></th>
<th class="x1r x4j" scope="col" width="5%" align="LEFT"
valign="baseline" ><span class="x24"> 实体名</span></th>
<th class="x1r x4j" scope="col" width="10%" align="LEFT"
valign="baseline" ><span class="x24"> 标题</span></th>
<th class="x1r x4j" scope="col" width="15%" align="LEFT"
valign="baseline" ><span class="x24"> 文件名</span></th>
</tr>';
c_sql := 'SELECT ROWNUM ROW_NUM,
PK1_VALUE,
USER_ENTITY_NAME,
TITLE,
FILE_NAME,
DATATYPE_NAME,
FILE_DATA,
FILE_ID
FROM (SELECT FAD.PK1_VALUE,
FAD.USER_ENTITY_NAME,
FAD.TITLE,
FAD.FILE_NAME,
FAD.DATATYPE_NAME,
FL.FILE_DATA,
FL.FILE_ID
FROM FND_ATTACHED_DOCS_FORM_VL FAD, FND_LOBS FL
WHERE FAD.MEDIA_ID = FL.FILE_ID
AND FAD.FUNCTION_NAME = ''' || p_function_name || '''' ||
' AND FAD.PK1_VALUE IN ' || '(SELECT T.' ||
substr(vpk1_filed,
instr(vpk1_filed, '.', 1) + 1,
length(vpk1_filed)) || ' FROM ' ||
p_table_name || ' T WHERE T.ITEM_KEY = ''' ||
pitem_key || '''' || ')
AND FAD.ENTITY_NAME = ''' || p_entity_name || '''' ||
' ORDER BY FAD.USER_ENTITY_NAME, FAD.SEQ_NUM)';
OPEN c_attached FOR c_sql;
FETCH c_attached
INTO vattachedinfo;
WHILE c_attached% FOUND LOOP
v_document_attached := v_document_attached ||
'<tr>
<td align="LEFT" valign="baseline" class="x1l x4x">' ||
v_count ||
'</td>
<td align="LEFT" valign="baseline" class="x1l x4x">' ||
vattachedinfo.user_entity_name ||
'</td>
<td align="LEFT" valign="baseline" class="x1l x4x">' ||
vattachedinfo.title || '</td>
<td align="LEFT" valign="baseline" class="x1l x4x">
<a href="' ||
get_output_url(v_pk1_value,
vattachedinfo.file_id,
p_entity_name) || '">' ||
vattachedinfo.file_name || '</a></td>
</tr>';
v_count := v_count + 1;
FETCH c_attached
INTO vattachedinfo;
END LOOP;
v_document_attached := v_document_attached ||
'</table></td></tr></table>';
RETURN v_document_attached;
EXCEPTION
WHEN OTHERS THEN
RETURN NULL;
END get_attached_html;
---------------------------------------------------------------------
-------------
-- 功能名称：
-- GET_OUTPUT_URL
-- 功能说明：
-- 获取附件下载链接地址
-- 参数说明：
-- P_PK1_VALUE 附件的主关键字值
-- P_FILE_ID 附件文件ID
-- P_ENTITY_NAME 文档实体标识
-- 返回指定附件文件的下载链接地址
-- 版本信息:
-- 1.0 Initial Creation
---------------------------------------------------------------------
-------------
/*FUNCTION GET_OUTPUT_URL(P_PK1_VALUE IN NUMBER, P_FILE_ID IN
NUMBER,P_ENTITY_NAME IN VARCHAR2)
RETURN VARCHAR2 IS
P_ACCESS_ID NUMBER;
V_OUTPUT_URL VARCHAR2(10000);
BEGIN
V_OUTPUT_URL := '';
SELECT ACCESS_ID
INTO P_ACCESS_ID
FROM FND_LOB_ACCESS
WHERE FILE_ID = P_FILE_ID;
V_OUTPUT_URL := RPT_REG_PKG.G_XML_PATH\* 是一个配置文件值可以自己定义修改，
值如： http://db1.dtpower.zszy.com:8001\*\ ||
'OA_HTML/fndgfm.jsp?mode=download_blob&fid=' ||
P_FILE_ID || '&accessid=' || P_ACCESS_ID;
RETURN V_OUTPUT_URL;
EXCEPTION
WHEN NO_DATA_FOUND THEN
INSERT INTO FND_LOB_ACCESS
(ACCESS_ID, FILE_ID, TIMESTAMP)
SELECT TO_NUMBER(TO_CHAR(FND_LOBS_S.NEXTVAL) ||
TO_CHAR(SYSDATE, 'SSSSS')),
D.MEDIA_ID,
SYSDATE + 1
FROM FND_ATTACHED_DOCUMENTS B,
FND_DOCUMENTS_TL C,
FND_DOCUMENTS D
WHERE B.DOCUMENT_ID = C.DOCUMENT_ID
AND B.DOCUMENT_ID = D.DOCUMENT_ID
AND B.PK1_VALUE = P_PK1_VALUE
AND D.MEDIA_ID = P_FILE_ID
AND B.ENTITY_NAME = P_ENTITY_NAME
AND C.LANGUAGE = 'ZHS';
COMMIT;
SELECT ACCESS_ID
INTO P_ACCESS_ID
FROM FND_LOB_ACCESS
WHERE FILE_ID = P_FILE_ID;
V_OUTPUT_URL := RPT_REG_PKG.G_XML_PATH ||
'OA_HTML/fndgfm.jsp?mode=download_blob&fid=' ||
P_FILE_ID || '&accessid=' || P_ACCESS_ID;
RETURN V_OUTPUT_URL;
WHEN OTHERS THEN
P_ACCESS_ID := 0;
V_OUTPUT_URL := '';
XZTZ_LOG_PKG.INSERT_LOG(' 附件列表文件下载链接生成异常',
SQLERRM,
'XZ_PO_PUB_PKG.GET_OUTPUT_URL',
30);
RETURN V_OUTPUT_URL;
END GET_OUTPUT_URL;*/
FUNCTION get_output_url(p_pk1_value IN NUMBER,
p_file_id IN NUMBER,
p_entity_name IN VARCHAR2) RETURN VARCHAR2 IS
p_access_id NUMBER;
v_output_url VARCHAR2(10000);
BEGIN
/* V_SQL_STR := 'SELECT d.file_name,d.media_id ,a.access_id,
fnd_gfm.construct_download_url(fnd_web_config.gfm_agent,d.media_id)
URL ' ||
' from fnd_attached_documents b,fnd_documents_tl c,fnd_lob_access
a,fnd_documents d' ||
' where b.document_id=c.document_id and
b.document_id=d.document_id and b.pk1_value=''' ||
V_PK1_VALUE || '''' ||
' and a.file_id=d.media_id and b.entity_name IN
(''XZ_PO_EXPENDED'',''XZ_PO_EXPENDED'')
and C.LANGUAGE=''ZHS'' '; */
v_output_url := fnd_gfm.construct_download_url(fnd_web_config.gfm_agent, /* 应用产品 Web
代理配置文件值： http://db1.dtpower.zszy.com:8001/pls/TEST*/
p_file_id);
RETURN v_output_url;
EXCEPTION
WHEN OTHERS THEN
p_access_id := 0;
v_output_url := '';
RETURN v_output_url;
END get_output_url; END;
效果如下：
ORACLE workflow审批界面显示附件信息和附件的下载链接(转)的更多相关文章
- WSDL项目---添加头信息和附件
用于底层协议的SOAP请求是HTTP,可以添加两个自定义HTTP头(例如用于身份验证或会话)和附件. 让我们看一下这两个. 1. 自定义HTTP标头 直接添加自定义HTTP头: 我们已经添加了自定义内 ...
- Java 添加、下载、读取PDF附件信息（基于Spire.Cloud.SDK for Java）
Spire.Cloud.SDK for Java提供了PdfAttachmentsApi接口添加附件addAttachment().下载附件downloadAttachment().获取附件信息get ...
- Oracle WorkFlow（工作流）(一)
转载自:http://hi.baidu.com/quce227/item/3dee702c66466a0343634a58 1概述 1.1工作流的概念 Workflow是EBS的基础架构技术之一,系统 ...
- 为Dynamics CRM的Office附件注释定制个无需下载即可在线查看的功能
关注本人微信和易信公众号: 微软动态CRM专家罗勇 ,回复164或者20151021可方便获取本文,同时可以在第一时间得到我发布的最新的博文信息,follow me! 上一篇博客:为Dynamics ...
- 浅谈odoo 后台与前端文件（附件）的存储与下载
odoo 后台与前端文件(附件)存储与下载实现 笔记太多了很乱,想想还是写博客的好,慢慢更 当然了,前提是你已经配好了odoo开发环境 一.odoo后台界面实现附件的上传和下载 1).在应用中搜索下图 ...
- [统计信息系列7] Oracle 11g的自动统计信息收集
(一)统计信息收集概述 在Oracle 11g中,默认有3个自动任务,分别是:自动统计信息收集.SQL调优顾问.段空间调整顾问,查看方法如下: SQL> SELECT CLIENT_NAME,T ...
- Oracle 11gR2 待定的统计信息（Pending Statistic）
Oracle 11gR2 待定的统计信息(Pending Statistic) 官档最权威: 发布优化器统计信息的用户界面 管理已发布和待处理的统计信息 实验先拖着.
- EBS存储附件信息
附件三种形式 1.文件 2.url 3.文本 三种方式存储不一样 1.文件是存blob 2.url是存一个链接信息,读出来的时候,就是一个蓝色可点链接 fnd_attached_document ...
- Oracle WorkFlow（工作流）(二)
2.4消息(Message) 消息主要是为通知服务的,可以把消息当作通知的内容和类型.消息也属于一个单据类型,通知只能和同一个单据类型里的消息相关联. 每个消息可以有一个或多个属性和自己相联系,消息的 ...
随机推荐
- 微服务：Java EE的拯救者还是掘墓人？
有人认为,微服务的大行其道是在给Java EE下达死刑判决书.也有人认为,Java EE已死的论调可笑至极.读者朋友,你们怎么看? 引言 有人说,Java确实过于臃肿,经常“小题大做”.但PHP.No ...
- hdu 3336 Count the string -KMP&dp
It is well known that AekdyCoin is good at string problems as well as number theory problems. When g ...
- 认识epoll
linux下的epoll(7)函数,其有着良好的就绪事件通知机制.Epoll 是被linux2.6开始引进的,但是不被其他的类UNIX系统支持,它提供了一种类似select或poll函数的机制:a. ...
- 网站精准查询IP
分享一些网站能精准查询IP的 https://www.chaidu.com/App/Web/IP/ http://www.ipip.net/ip.html http://www.hao7188.com ...
- Linq 对List的一些操作
代码: public class Person { public int ID { get; set; } public string Name { get; set; } public int Ag ...
- 让低版本浏览器支持html5的标签
原理就是首先用js的createElement来创建,之后在使用 document.createElement('header'); <header> <hgroup>头部信息 ...
- Hadoop MapReduce编程 API入门系列之Crime数据分析（二十五）（未完）
不多说,直接上代码. 一共12列,我们只需提取有用的列:第二列(犯罪类型).第四列(一周的哪一天).第五列(具体时间)和第七列(犯罪场所). 思路分析 基于项目的需求,我们通过以下几步完成: 1.首先 ...
- [Err] 1111 - Invalid use of group function
本文为博主原创,未经允许不得转载: 初衷,本想通过group by sql语句查询出不同id下总数在一定范围内的数据,所以产生如下的sql,及错误sql AND STATDATE < ' GRO ...
- WCF 统一处理异常利用行为服务扩展
https://www.cnblogs.com/niaowo/p/4727378.html using System; using System.Collections.Generic; using ...
- lombok 中的@Data注解
今天看到有代码中的Dao包中的类文件,写的极其简洁,甚至引起了开发工具InteliJ的报错,然后程序还能稳健地跑起来. import lombok.Data; @Data public class V ...