Workflow_工作流发送Document和Form链接的实现（案例）

2014-06-01 Created By BaoXinjian

一、摘要

---

Oracle Workflow可以发送Form、Document、URL链接，经常遇到，下文介绍Form和Document如何发送

Attribue Type

• Form
• Document
• URL

 

二、案例 - 发送Document Link链接

---

需求：发送Document文件

Step1. 建立一个Message，包含两个Attribute: Document和Form

    

Step2. 在BXJ_DOCUMENT调用两个Function

    Step2.1. Get_Document用以将创建Form链接

 1 PROCEDURE GET_DOCUMENT(itemtype IN VARCHAR2
 3                        itemkey IN VARCHAR2,
 5                        actid IN NUMBER,
 7                        funcmode IN VARCHAR2, 
 9                        resultout OUT NOCOPY VARCHAR2) IS
11 BEGIN
13 设置Document类型Attribute，逐条反应PO Line
15 wf_engine.setitemattrtext(itemtype => itemtype,
17                           itemkey => itemkey,
19                           aname => 'DOCUMENT_DETAILS',
21                        avalue => 'PLSQLCLOB:test_pkg.GET_DOCUMENT_DETAILS/' ||itemtype || ':' ||itemkey); 
23 END;

    Step2.2. Get_Document用以将创建Form链接

 1 PROCEDURE GET_DOCUMENT_DETAILS(document_id IN VARCHAR2,
 3                                display_type IN VARCHAR2,
 5                                document IN OUT CLOB,
 7                                document_type IN OUT VARCHAR2) IS
 9     l_item_type wf_items.item_type%TYPE;
11     l_item_key wf_items.item_key%TYPE;
13     l_document VARCHAR2(32000) := '';
15     l_clob_document CLOB;
16 
17     CURSOR cur_po_lines IS
19         SELECT line_num,
21                purchase_basis,
23                item_description,
25                unit_meas_lookup_code,
27                unit_price
29            FROM po_lines_all
31         WHERE po_header_id = 37566;
33 BEGIN
34 
35     --1. 初始化
37     l_item_type := substr(document_id, 1, instr(document_id, ':') - 1);
39     l_item_key := substr(document_id,instr(document_id, ':') + 1,length(document_id) - 2);
40 
41     --2. 写PO line资料 
43     l_document := '<table border=1>';
44 
45     FOR r_po_lines IN cur_po_lines LOOP
47         l_document := l_document||'<tr>';
49         l_document := l_document||'<td>'||r_po_lines.line_num||'</td>';
51         l_document := l_document||'<td>'||r_po_lines.purchase_basis||'</td>';
53         l_document := l_document||'<td>'||r_po_lines.item_description||'</td>';
55         l_document := l_document||'<td>'||r_po_lines.unit_meas_lookup_code||'</td>';
57         l_document := l_document||'<td>'||r_po_lines.unit_price||'</td>';
59         l_document := l_document||'</tr>';
61     END LOOP;
62 
63     l_document := l_document||'</table>';
64 
65     --3. 通过dbms_lob讲字符串写到workflow中
67     dbms_lob.createtemporary(lob_loc => l_clob_document,
69                              cache => TRUE,
71                              dur => dbms_lob.session);
72 
73     dbms_lob.OPEN(lob_loc => l_clob_document,
75                   open_mode => dbms_lob.lob_readwrite);
77     wf_notification.writetoclob(l_clob_document, l_document); --追加，可不断写
79     dbms_lob.append(document, l_clob_document);
81     IF (dbms_lob.ISOPEN(l_clob_document) = 1) THEN
83         dbms_lob.CLOSE(l_clob_document);
85         dbms_lob.freetemporary(l_clob_document);
87     END IF;
89 END;

Test1. 在BXJ_DOCUMENT调用两个Function