【正文】 = l_note, = 39。APPROVED39。 WHERE = l_document_id。 resultout := 39。COMPLETE39。 EXCEPTION WHEN OTHERS THEN RAISE。 END。 取消 PROCEDURE cancel_result(itemtype IN VARCHAR2, itemkey IN VARCHAR2, actid IN NUMBER, funcmode IN VARCHAR2, resultout OUT NOCOPY VARCHAR2) IS l_document_id NUMBER。 l_note %TYPE。 l_approver_id NUMBER。 BEGIN IF (funcmode ) THEN resultout := 。 RETURN。 END IF。 獲得記錄ID l_document_id := (itemtype = itemtype, itemkey = itemkey, aname = 39。DOCUMENT_ID39。)。 獲得審批者ID l_approver_id := (itemtype = itemtype, itemkey = itemkey, aname = 39。APPROVER_ID39。)。 獲得審批意見 l_note := (itemtype = itemtype, itemkey = itemkey, aname = 39。NOTE39。)。 更新數據表 UPDATE cux_wf_demo_documents doc SET = l_approver_id, = l_note, = 39。CANCEL39。 WHERE = l_document_id。 resultout := 39。COMPLETE39。 EXCEPTION WHEN OTHERS THEN RAISE。 END。 拒絕 PROCEDURE reject_result(itemtype IN VARCHAR2, itemkey IN VARCHAR2, actid IN NUMBER, funcmode IN VARCHAR2, resultout OUT NOCOPY VARCHAR2) IS l_document_id NUMBER。 l_note %TYPE。 l_approver_id NUMBER。 BEGIN IF (funcmode ) THEN resultout := 。 RETURN。 END IF。 獲得記錄ID l_document_id := (itemtype = itemtype, itemkey = itemkey, aname = 39。DOCUMENT_ID39。)。 獲得審批者ID l_approver_id := (itemtype = itemtype, itemkey = itemkey, aname = 39。APPROVER_ID39。)。 獲得審批意見 l_note := (itemtype = itemtype, itemkey = itemkey, aname = 39。NOTE39。)。 更新數據表 UPDATE cux_wf_demo_documents doc SET = l_approver_id, = l_note, = 39。REJECT39。 WHERE = l_document_id。 resultout := 39。COMPLETE39。 EXCEPTION WHEN OTHERS THEN RAISE。 END。END。新建4個FunctionN: 選中Function/右鍵/新建具體設置如下：Internal NameDisplay NameFunction NameINITIALIZEInitializeDOC_APPROVEDocument ApprovedDOC_CANCELDocument CancelledDOC_REJECTDocument Rejected第一個Function相當于我們例子2種的初始化作用，后面3個Function分別對應審批者的3種審批結果。修改Process的流程N: 雙擊Demo Top Process打開把4個Function拖進來，重新布局如下（不要告訴我不會哦?。簻y試：啟動N: 首先還是確認一下提交者ID，我做這個文檔的時候是在不同環(huán)境做的。SELECT , , , FROM wf_roles r WHERE = 39。HUAJHUA39。結果是：HUAJHUA Jianhua, Huang PER 6987DECLARE l_item_key VARCHAR2(30)。 l_user_item_key VARCHAR2(30)。 l_item_type VARCHAR2(30) := 39。CUX_000339。 l_process VARCHAR2(30) := 39。CUX_TOP39。 l_submiter_id NUMBER := 6987。 l_document_id NUMBER。BEGIN 00 業(yè)務數據錄入 SELECT INTO l_document_id FROM dual。 INSERT INTO cux_wf_demo_documents (document_id, document_number, document_amount, authorization_status, submiter_id) VALUES (l_document_id, 39。DOC39。 || lpad(l_document_id, 39。839。, 39。039。), l_document_id * round( * 100000, 2), 39。ENTERED39。, l_submiter_id)。 01 創(chuàng)建 l_item_key := l_document_id。 l_user_item_key := 39。DOC39。 || lpad(l_item_key, 39。839。, 39。039。)。 (itemtype = l_item_type, itemkey = l_item_key, process = l_process, user_key = l_user_item_key)。 02 初始化 (itemtype = l_item_type, itemkey = l_item_key, aname = 39。DOCUMENT_ID39。, avalue = l_document_id)。 (itemtype = l_item_type, itemkey = l_item_key, aname = 39。SUBMITER_ID39。, avalue = l_submiter_id)。 03 啟動 (itemtype = l_item_type, itemkey = l_item_key)。 COMMIT。 (l_item_key)。END。測試：審批N: Notification由于先前我做了幾下測試，所以這里的號碼是6了。Note輸入：OK, I agree it.點擊Approve按鈕測試：驗證表數據N: SELECT * FROM cux_wf_demo_documents doc WHERE = DOC00000006。結果如下：6 DOC00000006 APPROVED 6987 6987 OK, I agree it測試：看工作流程圖N: sysadmin登錄可以看到已經正常Complete了。. 第4個例子：Loop、Timeout、Defer和Workflow Background Process準備：建立一個新的Standard Item TypeN: 這個工作在這里做有點晚了：建立自己的標準Item Type。內容如下：Internal NameDisplay NameCUX_STDDOracle EBS 11i Workflow Standard同時把例子3中的Lookup Type拖到CUX_STDD中（不要按CTRL）。準備：拷貝CUX_0003成CUX_0004N: Copy/Paste我們把上面的例子中的CUX_0003這個Item Type拷貝一份；新的Internal Name為CUX_0004。修改Notification: Requisition Approval的Timeout屬性N: Copy/Paste查看Process中Requisition Approval的屬性，并設置Timeout屬性，這里設置1分鐘是為了方便測試。超時一般是針對Notification的，意思是多長時間之后不處理該消息就算超時，超時也是一種返回結果。增加一個標準Function: Loop CounterN: 從Standard中把Loop Counter拖過來，并設置屬性如下：這里是Constant 3，說明循環(huán)3次。實際上循環(huán)次數可以是動態(tài)的Attribute。增加一個標準Function: Defer ThreadN: 從Standard中把Defer Thread拖過來，不用設置屬性，我們也可以新建這樣的Defer Function。實際上，標準功能中的大部分Item，我們都可以參照著自己創(chuàng)建。Defer的意思相當于Pause，意思是工作流到這個地方暫停，需要外力（可用程序、可用下面講的請求）來推動。增加一個標準Function: En