ORACLE workflow审批界面显示附件信息和附件的下载链接(转)
Posted 黄洪波写点东西的地方
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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审批界面显示附件信息和附件的下载链接(转)的主要内容，如果未能解决你的问题，请参考以下文章
关于微软云 Power Automate 对合同审批流的实现（原来叫workflow）
南海区行政审批管理系统接口规范v0.3（规划） 5.投资项目联合审批系统API 5.1.uploadFile证件文书附件上传