首页 > 代码库 > Workflow_工作流发送Document和Form链接的实现（案例）

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

2024-07-06 20:26:36   219人阅读

2014-06-01 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,
 2 
 3                        itemkey IN VARCHAR2,
 4 
 5                        actid IN NUMBER,
 6 
 7                        funcmode IN VARCHAR2,
 8 
 9                        resultout OUT NOCOPY VARCHAR2) IS
10 
11 BEGIN
12 
13 设置Document类型Attribute，逐条反应PO Line
14 
15 wf_engine.setitemattrtext(itemtype => itemtype,
16 
17                           itemkey => itemkey,
18 
19                           aname => ‘DOCUMENT_DETAILS‘,
20 
21                        avalue => ‘PLSQLCLOB:test_pkg.GET_DOCUMENT_DETAILS/‘ ||itemtype || ‘:‘ ||itemkey);
22 
23 END;

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

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

Test1. 在BXJ_DOCUMENT调用两个Function

    
    

三、案例 - 发送Form Link链接

需求：发送Document文件

    1.建立测试用的Package

    2. 测试

        (1). 打开Form连接

        (2). 打开连接后自动查询PO 

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

Step2.建立测试用的Package

 1   PROCEDURE GET_DOCUMENT(itemtype  IN VARCHAR2 ,
 2 
 3                          itemkey   IN VARCHAR2 ,
 4 
 5                          actid     IN NUMBER ,
 6 
 7                          funcmode  IN VARCHAR2 ,
 8 
 9                          resultout OUT NOCOPY VARCHAR2) IS

13     l_open_form   varchar2(200 );
14 
15     l_document_id varchar2(25 );
16 
17   BEGIN
18 
21     SELECT po_header_id
22 
23       INTO l_document_id
24 
25       FROM po_headers_all
26 
27      WHERE segment1 = ‘GP0008720MNC‘ ;
28 
33     l_open_form := ‘PO_POXPOEPO:PO_HEADER_ID="‘ || l_document_id || ‘"‘ ||
34 
35                    ‘ ACCESS_LEVEL_CODE="MODIFY"‘ ||
36 
37                    ‘ POXPOEPO_CALLING_FORM="POXSTNOT"‘ ;
38 
39  
40 
41     DBMS_OUTPUT.PUT_LINE( ‘l_open_form-->‘ || l_open_form);
42 
45     wf_engine.setitemattrtext(itemtype => itemtype,
46 
47                               itemkey  => itemkey,
48 
49                               aname    => ‘OPEN_FORM_COMMAND‘,
50 
51                               avalue   => l_open_form);
52 
53  
54 
55     resultout := wf_engine.eng_completed || ‘:‘ || ‘Y‘ ;
56 
59     return;
60 
61   END;

 

Test1. 测试

    Test1.1. 打开Form连接

        

    Test1.2. 打开连接后自动查询PO    

        

 

Thanks and Regards


联系
我们