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) 消息主要是为通知服务的,可以把消息当作通知的内容和类型.消息也属于一个单据类型,通知只能和同一个单据类型里的消息相关联. 每个消息可以有一个或多个属性和自己相联系,消息的 ...
随机推荐
- Python Web学习笔记之多线程编程
本次给大家介绍Python的多线程编程,标题如下: Python多线程简介 Python多线程之threading模块 Python多线程之Lock线程锁 Python多线程之Python的GIL锁 ...
- Java 实现后缀xls文件读取
Java 实现后缀xls文件读取 一.开发环境 poi采用的3.9版本 + JDK1.6 + Myeclipse 二,JAR包 三.实现代码 实体类:UserRoleBean package nc.x ...
- 开发代码code中变量替换
除了automake/autoconfig 之外,还有其他的替换方式. 参看vdsm https://github.com/oVirt/vdsm/blob/master/Makefile.am htt ...
- 更改 Centos 6 的 yum 源
1.查看当前使用的源: yum repolist all 阿里源网址,使用方法点右边的帮助可以看到:https://opsx.alibaba.com/mirror 2.更改源: 第一步:备份你的原镜像 ...
- 20145307陈俊达《网络对抗》Exp 8 Web基础
20145307陈俊达<网络对抗>Exp 8 Web基础 基础问题回答 1.什么是表单? 表单是一个包含表单元素的区域,表单元素是允许用户在表单中输入信息的元素,表单在网页中主要负责数据采 ...
- 探索Java8：(三)Predicate接口的使用
上一篇学习了下Function接口的使用,本篇我们学习下另一个实用的函数式接口Predicate. Predicate的源码跟Function的很像,我们可以对比这两个来分析下.直接上Predicat ...
- Educational Codeforces Round 21 Problem A - C
Problem A Lucky Year 题目传送门[here] 题目大意是说,只有一个数字非零的数是幸运的,给出一个数,求下一个幸运的数是多少. 这个幸运的数不是最高位的数字都是零,于是只跟最高位有 ...
- Django组件(二) Django之Form
Forms组件概述 forms组件 -Django提供的用语数据校验和模板渲染的组件 -在项目中创建一个py文件 -1 写一个类继承Form -2 在类中写属性,写的属性,就是要校验的字段 -3 使用 ...
- window 环境下jdbc访问启用kerberos的impala
最近,公司生产集群添加kerberos安全认证后,访问集群的任何组件都需要进行认证,这样问题来了,对于impala,未配置kerberos安全认证之前通过impala的jdbc驱动(impala-jd ...
- [异常记录-12]Web Deploy部署：未能连接到远程计算机，请确保在远程计算机上安装了 Web Deploy 并启动了所需的进程("Web Management Service")
Web Deploy 安装 请参考:图文详解远程部署ASP.NET MVC 5项目 如此安装后还不行, 可以在卸载后重新安装 Web Deploy 时,不要选那个经典还是典型的安装选项,选自定义安装 ...