EBS获取附件URL

http://wenku.baidu.com/link?url=MnYX269RBqW9ZRh-4famwduhYq9As0-vsIyVPA7aqv64cdxxjZEOaEE1_KZ9SGjY9qCxYIb-Fuh12pN05eZDBifBvwv5tReqjNMfZyMhW3W

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

----------------------------------------------------------------------------------

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

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>

<tr>

</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>

<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 := '';

XZTZ_LOG_PKG.INSERT_LOG('附件列表文件下载链接生成异常',

SQLERRM,

'XZ_PO_PUB_PKG.GET_OUTPUT_URL',

30);

RETURN V_OUTPUT_URL;

END GET_OUTPUT_URL;

最终效果：

EBS获取附件URL的更多相关文章

EBS开发附件上传和下载功能(转)
原文地址: EBS开发附件上传和下载功能上传 Oracle ERP二次开发中使用的方式有两种,一是通过标准功能,在系统管理员中定义即可,不用写代码,就可以使几乎任何Form具有附件功能,具体参考系统 ...
js获取页面url
设置或获取对象指定的文件名或路径. window.location.pathname例:http://localhost:8086/topic/index?topicId=361alert(windo ...
在ASP.NET MVC 中获取当前URL、controller、action
一.URL的获取很简单,ASP.NET通用: [1]获取完整url (协议名+域名+虚拟目录名+文件名+参数) string url=Request.Url.ToString(); [2]获取虚拟 ...
Javascript 获取链接(url)参数的方法
有时我们需要在客户端获取链接参数,一个常见的方法是将链接当做字符串,按照链接的格式分解,然后获取对应的参数值.本文给出的就是这个流程的具体实现方法. 当然,我们也可以用正则直接匹配,文章中也给出了一个 ...
javascript获取当前url
在WEB开发中,许多开发者都比较喜欢使用javascript来获取当前url网址,本文就此为大家总结一下比较常用获取URL的javascript实现代码,以下示例是前面为相应实现方法,后面是获取URL ...
Asp.Net_Mvc_获取当前Url、Controller、Action
一.URL的获取很简单,ASP.NET通用: [1]获取完整url (协议名+域名+虚拟目录名+文件名+参数) string url=Request.Url.ToString(); [2]获取虚拟 ...
获取与Url链接相关的信息
以下结果的值以此示例为基础:http://www.x2y2.com:80/fisker/post/0703/window.location.html?ver=1.0&id=6#imhere j ...
js、jquery获取当前url中各个参数
首先,先把获取各参数的方式再写一遍,相信大家都耳熟能详,就写几个常用的吧. 以此网址https://i.cnblogs.com/EditPosts.aspx?opt=1为例: 1. var url=w ...

随机推荐

Electron mouse events 参数解析
1.https://electronjs.org/docs/api/web-contents 2.通常用: monitorEvents(document.body, 'mouse') 检测正常的值: ...
解决selenium不支持firefox低版本的问题
解决selenium不支持firefox低版本的问题在火狐浏览器升级后,突然发现webdriver运行脚本的时候不能调出火狐浏览器了,并报错WebDriverException:Message:'C ...
Spring简单获得实体类的实例, 使用ApplicationContext()方法的几点注意事项
今天接触了Spring的初步用法, 感觉跟实例化实体类没啥区别, 像这种简单的代码还不如直接实例化来的方便, 这样使用Spring的话总共需要三个文件第一个当然是一个实体类了, 定义好属性, get ...
EasyUI_tabs和layout布局, 点击链接打开标签, 重复点击选中标签
<%@ page language="java" contentType="text/html; charset=UTF-8" pageEncoding= ...
Redis启动与使用
在redis文件夹下,启动redis服务端的命令如下: .\redis-server 也可以指定要加载的配置文件,如下: .\redis-server ..\redis.conf 启动redis客户端 ...
hdoj1069 Monkey and Banana（DP--LIS）
题目链接:http://acm.hdu.edu.cn/showproblem.php?pid=1069 思路: 由题意,显然一种block可能有6种形式,且一种形式最多使用一次,因此最多有30×6=1 ...
luoguP3367 [模板]并查集
题目链接:https://www.luogu.org/problemnew/show/P3367 思路: 今天学了新算法——并查集,本题是简单的并查集题的模板. 核心思想是“递归+压缩路径”. 并查集 ...
【校招面试之 C/C++】第3题为什么要内存对齐？以及内存对齐的方式
1.为什么要进行内存对? 参考:https://blog.csdn.net/a369000753/article/details/51188915 所谓内存对齐,是为了让内存存取更有效率而采用的一种编 ...
mybatis结合redis实战二级缓存
之前的文章中我们意见分析了一级缓存.二级缓存的相关源码和基本原理,今天我们来分享下了mybatis二级缓存和redis的结合,当然mybatis二级缓存也可以和ehcache.memcache.OSC ...
discuz回贴通知插件实现-页面嵌入点(钩子)
1.如何保证主题被回复时业务代码被执行. 2.获得主题,主题发布者,贴子等信息. 3.discuz发送email邮件. discuz使用嵌入点(钩子)来处理代码的执行时机. 当用户开启插件开发者模 ...

EBS获取附件URL

EBS获取附件URL的更多相关文章

随机推荐

热门专题