ORACLE workflow审批界面显示附件信息和附件的下载链接(转)

最新推荐文章于 2022-11-24 17:18:33 发布
最新推荐文章于 2022-11-24 17:18:33 发布
阅读量166 收藏
点赞数
文章标签： 数据库
原文链接：http://www.cnblogs.com/huanghongbo/p/7698334.html
版权

原文：

ORACLE workflow审批界面显示附件信息和附件的下载链接

EBS获取附件URL

 

代码如下：

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;

效果如下：

转载于:https://www.cnblogs.com/huanghongbo/p/7698334.html

dianmie4090
关注
ORACLE EBS WORKFLOW实现多附件下载
lyj892471693的专栏
07-12 1362
1. 在WORKFLOW BUILDER中定义 Attributes 变量DOWNLOADFILE_INFO 显示名为 ：附件下载           2. 将定义的变量拖到Message中          3. 在消息体 Message Body中 显示：&DOWNLOADFILE_INFO 最好在HTML Body中      4.写一个PROCEDURE    
Oracle Order Management Using Oracle Workflow in Oracle Order Ma
05-01
7. **报告和分析**：通过 Workflow 提供的报告功能，企业可以获得关于订单处理时间、审批效率等关键绩效指标的详细信息，以便进行业务决策。 8. **安全性与权限管理**：Workflow 允许设置角色和权限，确保只有授权...
WF--Notification查看和回应审批通知
kikiwhq的专栏
09-12 2392
查看和回应审批通知 您可以使用“通知明细”Web 页（可通过 Oracle Purchasing 中的“通知汇总”菜单访问）来管理待批队列和执行审批活动。如果尚未通过“审批单据”窗口将单据提交审批，您也可以在打开通知之后，通过通知将单据提交审批。   OraclePurchasing 在通知中提供了下列单据审批活动：“审批”、“审批并转发”、“转发”和“拒绝”。此外，您可以将通知重新分配给其
sharepoint2010在工作流审批画面显示item信息
从零开始的生活是充实的！
11-19 2560
在sharepoint2007里 designer制作的工作流，生成时审批页面是aspx的页面但在2010里却变为了infopath的页面。在aspx里面我很容易就可以将item的信息显示出来在infopath里面加item信息可能么？答案是有点难，或者是不太可能，反正我没搞定，希望高人可以指点。既然看起来是不太可能的事，那怎么办呢。在编辑工作流任务时是个弹出窗口，用ie8，查看源文件时，就发现这个页面实际上layouts下的页面WrkTaskIP.aspx这个页面是网站通用页面。infopath的表单就是
Oracle Workflow工作流添加"打开单据"按钮打开Forms界面
苏南生的CSDN博客
12-18 5092
1.添加ATTRIBUTE 1.1 在WorkFlow Builder 中右击Attributes->新建 Internal Name:OPEN_FORM_COMMAND Display Name:打开单据 Type:Form 1.2 把新建的”打开单据“属性，复制到要显示的Messages中， 如下图: 2.PLSQL代码 wf_engine.setite
EBS附件功能
q2443934916的博客
08-23 518
1.仿照标准功能的客户化： http://blog.csdn.net/cai_xingyun/article/details/17290833 2.Workflow附件相关：http://www.cnblogs.com/huanghongbo/p/4639076.html 3.标准附件功能设置：http://blog.csdn.net/tavor/article/details
Oracle Workflow Guide RELEASE 2.5.2
04-06
Oracle WorkflowGuideRELEASE 2.5.2是关于Oracle Workflow的官方指南，旨在帮助用户了解和使用Oracle Workflow的相关功能和特性。该指南涵盖了Oracle Workflow的基本概念、安装和配置、业务流程定义、工作流程管理...
Oracle Workflow Server Installation Notes Release 2.6.2 (oracle
04-07
Oracle Workflow Server 安装说明 Release 2.6.2 概述： Oracle Workflow Server 是 Oracle 公司出品的一款 workflow 服务器软件，旨在提供自动化业务流程管理的解决方案。Oracle Workflow Server 安装说明 Release...
ORACLE-Workflow教程
最新发布
04-17
Oracle Workflow是甲骨文公司推出的企业级工作流管理解决方案，它的作用是帮助企业通过图形化界面设计、管理和执行业务流程。在深入探讨Oracle Workflow的具体知识点之前，我们首先需要掌握工作流的基本概念和工作流...
Oracle Workflow Client Installation Notes Release 2.6.2
04-07
这些笔记面向负责安装或升级Oracle Workflow客户端组件的人员，可能需要操作系统管理员、Oracle系统管理员和Oracle DBA的协助。 Oracle Workflow Client包括几个使用Oracle通用安装器安装的组件： 1. Oracle ...
EBS R12通知列表设置
05-05
EBS R12 通知列表设置 通过个性化配置，实现通知列表首页展示
2007年5月的葬礼
Just do it
05-28 345
2007年5月的葬礼    最近琐事缠身，无法集中精力来学习和工作。负面影响甚多。靠，居然在面对困难时连最基本的试一试的勇气都丧失了，直接往外一推，说，我不会。冷静下来，不禁吃惊，自己居然能说出如此不知羞耻和软弱无能的话。以往的勇气和拼劲和尊严都到哪里去了，如此模样，还怎么算作manly man。 最后不得不厚着脸皮去请教一个鸟人，我操！ 按： 写在2007年5月28日 1
Oracle EBS fndgfm.jsp error : 您没有访问此文件内容的权限
AlexLiu_2019的博客
10-21 681
Oracle EBS fndgfm.jsp error : 您没有访问此文件内容的权限
EBS Form 客户化导出功能
m0_67158898的博客
11-24 791
EBS的Form界面支出标准的导出功能，这个不多赘述。但是这个导出功能比较局限，比如只能按界面的字段进行导出，无法扩展其他字段，而且导出的格式为.tsv的，对用户也不友好。所以我们需要一个客户化的导出功能，可以直接导出Excel，且能够在界面字段的基础上扩展其他字段。如果导出的数据行下，扩展的字段可能需要扩展成多行，那么此时就需要循环去处理。基本思路就是，先 数据行字段 + 扩展字段 ，然后按扩展字段行进行循环。
Oracle之Workflow学习总结
hutianci的专栏
04-29 726
1概述... 21.1工作流的概念... 21.2工作流的目的... 21.3工作流体系结构：... 21.4工作流开发工具安装... 22工作流的组成及创建... 22.1单据类型（Item Type）... 32.2属性（Attribute）... 42.2.1定义一个URL属性... 62.2.2定义一个Form属性... 62.2.3定义一个Document属性... 72.3流程（Pro...
Workflow在EBS中的应用
数据库天地
09-04 227
EBS中部分工作流的应用 下面的SQL可以查当前系统中所有的工作流: SELECT b.NAME, t.display_name, t.description FROM wf_item_types b, wf_item_types_tl t WHERE b.NAME = t.NAME AND t.LANGUAGE = 'US' ORDER BY 1 Sample Output...
Fnd_gfm 包的一个常用实例
ctrms66804的专栏
11-04 556
declare db_file number; mime_typevarchar2(255) :='text/plain' ; out_str...
Oracle Workflow 2.6.4 API指南：关键操作与授权信息
Oracle Workflow API Guide是Oracle公司发布的官方文档，针对Oracle Workflow产品提供详细的API参考。该指南适用于Release 2.6.4版本，具有Part No. B15855-02，发布日期为2005年6月。版权信息表明，所有权利归...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值