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链接

PROCEDURE GET_DOCUMENT(itemtype IN VARCHAR2
                       itemkey IN VARCHAR2,
                       actid IN NUMBER,
                       funcmode IN VARCHAR2, 
                       resultout OUT NOCOPY VARCHAR2) IS
BEGIN
设置Document类型Attribute，逐条反应PO Line
wf_engine.setitemattrtext(itemtype => itemtype,
                          itemkey => itemkey,
                          aname => 'DOCUMENT_DETAILS',
                       avalue => 'PLSQLCLOB:test_pkg.GET_DOCUMENT_DETAILS/' ||itemtype || ':' ||itemkey); 
END;

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

PROCEDURE GET_DOCUMENT_DETAILS(document_id IN VARCHAR2,
                               display_type IN VARCHAR2,
                               document IN OUT CLOB,
                               document_type IN OUT VARCHAR2) IS
    l_item_type wf_items.item_type%TYPE;
    l_item_key wf_items.item_key%TYPE;
    l_document VARCHAR2(32000) := '';
    l_clob_document CLOB;

    CURSOR cur_po_lines IS
        SELECT line_num,
               purchase_basis,
               item_description,
               unit_meas_lookup_code,
               unit_price
           FROM po_lines_all
        WHERE po_header_id = 37566;
BEGIN

    --1. 初始化
    l_item_type := substr(document_id, 1, instr(document_id, ':') - 1);
    l_item_key := substr(document_id,instr(document_id, ':') + 1,length(document_id) - 2);

    --2. 写PO line资料 
    l_document := '<table border=1>';

    FOR r_po_lines IN cur_po_lines LOOP
        l_document := l_document||'<tr>';
        l_document := l_document||'<td>'||r_po_lines.line_num||'</td>';
        l_document := l_document||'<td>'||r_po_lines.purchase_basis||'</td>';
        l_document := l_document||'<td>'||r_po_lines.item_description||'</td>';
        l_document := l_document||'<td>'||r_po_lines.unit_meas_lookup_code||'</td>';
        l_document := l_document||'<td>'||r_po_lines.unit_price||'</td>';
        l_document := l_document||'</tr>';
    END LOOP;

    l_document := l_document||'</table>';

    --3. 通过dbms_lob讲字符串写到workflow中
    dbms_lob.createtemporary(lob_loc => l_clob_document,
                             cache => TRUE,
                             dur => dbms_lob.session);

    dbms_lob.OPEN(lob_loc => l_clob_document,
                  open_mode => dbms_lob.lob_readwrite);
    wf_notification.writetoclob(l_clob_document, l_document); --追加，可不断写
    dbms_lob.append(document, l_clob_document);
    IF (dbms_lob.ISOPEN(l_clob_document) = 1) THEN
        dbms_lob.CLOSE(l_clob_document);
        dbms_lob.freetemporary(l_clob_document);
    END IF;
END;

Test1. 在BXJ_DOCUMENT调用两个Function

    
    

三、案例 - 发送Form Link链接

---

需求：发送Document文件

    1.建立测试用的Package

    2. 测试

        (1). 打开Form连接

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

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

Step2.建立测试用的Package

  PROCEDURE GET_DOCUMENT(itemtype  IN VARCHAR2 ,

                         itemkey   IN VARCHAR2 ,

                         actid     IN NUMBER ,

                         funcmode  IN VARCHAR2 ,

                         resultout OUT NOCOPY VARCHAR2) IS

    l_open_form   varchar2(200 );

    l_document_id varchar2(25 );

  BEGIN

    SELECT po_header_id

      INTO l_document_id

      FROM po_headers_all

     WHERE segment1 = 'GP0008720MNC' ;

    l_open_form := 'PO_POXPOEPO:PO_HEADER_ID="' || l_document_id || '"' ||

                   ' ACCESS_LEVEL_CODE="MODIFY"' ||

                   ' POXPOEPO_CALLING_FORM="POXSTNOT"' ;

 

    DBMS_OUTPUT.PUT_LINE( 'l_open_form-->' || l_open_form);

    wf_engine.setitemattrtext(itemtype => itemtype,

                              itemkey  => itemkey,

                              aname    => 'OPEN_FORM_COMMAND',

                              avalue   => l_open_form);

 

    resultout := wf_engine.eng_completed || ':' || 'Y' ;

    return;

  END;

 

Test1. 测试

    Test1.1. 打开Form连接

        

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

        

 

Thanks and Regards