【正文】 l_submiter_id NUMBER。 l_approver_user_name %TYPE。 END IF。 獲得需審批數(shù)據(jù) SELECT , , INTO l_document_number, l_document_amount, l_submiter_id FROM cux_wf_demo_documents doc WHERE = l_document_id。, avalue = l_submiter_id)。 (itemtype = itemtype, itemkey = itemkey, aname = 39。DOCUMENT_NUMBER39。, avalue = l_document_amount)。APPROVER_ID39。, avalue = l_approver_user_name)。 resultout := 39。 審批通過 這里面可以判斷審批者的審批權(quán)限 PROCEDURE approve_result(itemtype IN VARCHAR2, itemkey IN VARCHAR2, actid IN NUMBER, funcmode IN VARCHAR2, resultout OUT NOCOPY VARCHAR2) IS l_document_id NUMBER。 RETURN。)。 獲得審批意見 l_note := (itemtype = itemtype, itemkey = itemkey, aname = 39。APPROVED39。 EXCEPTION WHEN OTHERS THEN RAISE。 l_approver_id NUMBER。 獲得記錄ID l_document_id := (itemtype = itemtype, itemkey = itemkey, aname = 39。APPROVER_ID39。)。 resultout := 39。 拒絕 PROCEDURE reject_result(itemtype IN VARCHAR2, itemkey IN VARCHAR2, actid IN NUMBER, funcmode IN VARCHAR2, resultout OUT NOCOPY VARCHAR2) IS l_document_id NUMBER。 RETURN。)。 獲得審批意見 l_note := (itemtype = itemtype, itemkey = itemkey, aname = 39。REJECT39。 EXCEPTION WHEN OTHERS THEN RAISE。修改Process的流程N(yùn): 雙擊Demo Top Process打開把4個(gè)Function拖進(jìn)來，重新布局如下（不要告訴我不會(huì)哦?。簻y(cè)試：?jiǎn)?dòng)N: 首先還是確認(rèn)一下提交者ID，我做這個(gè)文檔的時(shí)候是在不同環(huán)境做的。 l_user_item_key VARCHAR2(30)。CUX_TOP39。 INSERT INTO cux_wf_demo_documents (document_id, document_number, document_amount, authorization_status, submiter_id) VALUES (l_document_id, 39。, 39。, l_submiter_id)。 || lpad(l_item_key, 39。)。, avalue = l_document_id)。 03 啟動(dòng) (itemtype = l_item_type, itemkey = l_item_key)。測(cè)試：審批N: Notification由于先前我做了幾下測(cè)試，所以這里的號(hào)碼是6了。內(nèi)容如下：Internal NameDisplay NameCUX_STDDOracle EBS 11i Workflow Standard同時(shí)把例子3中的Lookup Type拖到CUX_STDD中（不要按CTRL）。增加一個(gè)標(biāo)準(zhǔn)Function: Loop CounterN: 從Standard中把Loop Counter拖過來，并設(shè)置屬性如下：這里是Constant 3，說明循環(huán)3次。Defer的意思相當(dāng)于Pause，意思是工作流到這個(gè)地方暫停，需要外力（可用程序、可用下面講的請(qǐng)求）來推動(dòng)。增加一個(gè)標(biāo)準(zhǔn)Function: Defer ThreadN: 從Standard中把Defer Thread拖過來，不用設(shè)置屬性，我們也可以新建這樣的Defer Function。修改Notification: Requisition Approval的Timeout屬性N: Copy/Paste查看Process中Requisition Approval的屬性，并設(shè)置Timeout屬性，這里設(shè)置1分鐘是為了方便測(cè)試。結(jié)果如下：6 DOC00000006 APPROVED 6987 6987 OK, I agree it測(cè)試：看工作流程圖N: sysadmin登錄可以看到已經(jīng)正常Complete了。 (l_item_key)。SUBMITER_ID39。 02 初始化 (itemtype = l_item_type, itemkey = l_item_key, aname = 39。, 39。 l_user_item_key := 39。), l_document_id * round( * 100000, 2), 39。 || lpad(l_document_id, 39。 l_document_id NUMBER。CUX_000339。HUAJHUA39。END。 resultout := 39。)。APPROVER_ID39。 獲得記錄ID l_document_id := (itemtype = itemtype, itemkey = itemkey, aname = 39。 l_approver_id NUMBER。 EXCEPTION WHEN OTHERS THEN RAISE。CANCEL39。 獲得審批意見 l_note := (itemtype = itemtype, itemkey = itemkey, aname = 39。)。 RETURN。 取消 PROCEDURE cancel_result(itemtype IN VARCHAR2, itemkey IN VARCHAR2, actid IN NUMBER, funcmode IN VARCHAR2, resultout OUT NOCOPY VARCHAR2) IS l_document_id NUMBER。 resultout := 39。)。APPROVER_ID39。 獲得記錄ID l_document_id := (itemtype = itemtype, itemkey = itemkey, aname = 39。 l_approver_id NUMBER。 EXCEPTION WHEN OTHERS THEN RAISE。APPROVER_DSP_NAME39。 (itemtype = itemtype, itemkey = itemkey, aname = 39。 取得審批者名字信息 (p_orig_system = l_orig_system, p_orig_system_id = x_approver_id, p_name = l_approver_user_name, p_display_name = l_approver_display_name)。 (itemtype = itemtype, itemkey = itemkey, aname = 39。, avalue = l_submiter_display_name)。SUBMITER_NAME39。 設(shè)置提交者名字信息到工作流 (itemtype = itemtype, itemkey = itemkey, aname = 39。DOCUMENT_ID39。 BEGIN IF (funcmode ) THEN resultout := 。 l_submiter_display_name %TYPE。 l_orig_system %TYPE := 39。 END。 取消 PROCEDURE cancel_result(itemtype IN VARCHAR2, itemkey IN VARCHAR2, actid IN NUMBER, funcmode IN VARCHAR2, resultout OUT NOCOPY VARCHAR2)。編寫Package，包含4個(gè)ProcedureN: PL/SQL Developer這里的Proced