【文章內(nèi)容簡介】 0。 (new AuditArgs[] { auditArg })。 return true。// throw new Exception(The method or operation is not implemented.)。 } endregion }} VB插件的開發(fā) Option ExplicitDim service As PuServiceAdapterPublic Function DoAudition(keyData As String, auditAction As String , ByRef bizData As String, calledCtx As Object，ByRef errMsg As String) As Boolean Set service = New PuServiceAdapter DoAudition = (keyData, auditAction, context, calledCtx, bizData)End FunctionPublic Function UndoAudition(keyData As String, auditAction As String, ByRef bizData As String, calledCtx As Object，ByRef errMsg As String) As Boolean Set service = New PuServiceAdapter UndoAudition = (keyData, auditAction, calledCtx, bizData)End FunctionPublic Function HandleBizException(keyData As String, auditAction As String, ByRef handleResult As String, ByRef bizData As String, calledCtx As Object，ByRef errMsg As String) As Boolean HandleBizException = True Dim bizDataObj As New BizDataMap bizData If MsgBox((Error), vbRetryCancel) = vbRetry Then handleResult = ReHandle (Action) = Retry (Check) = False Else handleResult = UnHandle (Action) = Done End If bizData = MsgBox BizData = amp。 bizDataEnd Function 預(yù)制業(yè)務(wù)對象 業(yè)務(wù)對象是指審批流程處理的各種類型業(yè)務(wù)對象（比如：采購訂單、材料出庫單、出口訂單等）。新的審批流利用UAP的數(shù)據(jù)引擎來定義這些業(yè)務(wù)對象，這樣就可以通過修改數(shù)據(jù)引擎中的業(yè)務(wù)對象的查詢結(jié)果來形成不同的業(yè)務(wù)對象的Schema，從而可以將這些對象的Schema用作流程定義的條件并在流程運行時獲取業(yè)務(wù)對象實例的屬性值來進(jìn)行相應(yīng)的處理。 UAP數(shù)據(jù)引擎進(jìn)行業(yè)務(wù)對象設(shè)計審批流中用到的是UAP數(shù)據(jù)引擎中查詢結(jié)果的數(shù)據(jù)，具體設(shè)計步驟及其與預(yù)置數(shù)據(jù)之間的關(guān)系如下：在數(shù)據(jù)引擎中添加業(yè)務(wù)對象設(shè)置業(yè)務(wù)對象基本屬性為業(yè)務(wù)對象添加功能設(shè)置業(yè)務(wù)功能基本屬性為功能添加業(yè)務(wù)實體關(guān)系查詢設(shè)置實體關(guān)系查詢基本屬性為查詢添加基礎(chǔ)業(yè)務(wù)實體為查詢添加列。查詢結(jié)果中必須包含結(jié)果列VoucherId，VoucherCode，VoucherType。 這三列在審批流中是關(guān)鍵業(yè)務(wù)數(shù)據(jù)，會在任務(wù)項的擴展屬性中出現(xiàn)，可以作為任務(wù)項顯示名稱、發(fā)送消息模版的數(shù)據(jù)提供者。命名必須注意完全匹配（注意大小寫）為查詢添加計算結(jié)果列為查詢添加查詢條件測試新增業(yè)務(wù)對象 審批業(yè)務(wù)對象注冊數(shù)據(jù)引擎中設(shè)計完畢業(yè)務(wù)對象后，就可提供給審批流系統(tǒng)使用。使用前，需要先注冊審批業(yè)務(wù)對象（注意：與數(shù)據(jù)引擎中所描述的業(yè)務(wù)對象是兩不同概念）。注冊過程使用位于U8SOFT\。審批業(yè)務(wù)對象注冊步驟如下：1． 建立分類關(guān)系2． 注冊審批業(yè)務(wù)對象3． 增加業(yè)務(wù)事件業(yè)務(wù)事件可理解為對審批對象所可以進(jìn)行的審批操作，如對請假單這一審批業(yè)務(wù)對象，可以進(jìn)行提交、審批、打回等操作。業(yè)務(wù)事件URL中包含響應(yīng)該業(yè)務(wù)事件的業(yè)務(wù)模塊定位信息，在運行期間，門戶將根據(jù)該信息加載相應(yīng)的業(yè)務(wù)模塊來完成該業(yè)務(wù)事件的響應(yīng)。URL預(yù)置格式如下：?xml version= encoding=utf8?Command param Name=id Value=/ param Name=name Value=/ param Name=authID Value=/ param Name=cmdLine Value=/ param Name=docType Value=/ param Name=docID Value=/ param Name=subFunction Value=/ param Name=SubSysID Value=//Command上述各參數(shù)值與UFSystem. UA_Menu中的字段存在對應(yīng)關(guān)系，idUA_Menu. cMenu_Id,nameUA_Menu. cMenu_Name,authIDUA_Menu. cAuth_Id,SubFunction,其他參數(shù)保留，可不預(yù)置。如來料報檢單：?xml version= encoding=utf8?Command param Name=id Value=QM020101/ param Name=name Value=來料報檢單/ param Name=authID Value=QM02010101/ param Name=cmdLine Value=/ param Name=docType Value=/ param Name=docID Value=/ param Name=subFunction Value= / param Name=SubSysID Value=QM/ /Command上圖中支持插件選項通常需要勾上。任務(wù)類型中，一般情況下，需填“1”（表明為審批類型的任務(wù)項目），但如果是為了表明為打回重做的任務(wù)類型，需要填入“2”。4． 指定業(yè)務(wù)事件對應(yīng)的業(yè)務(wù)實體本處的業(yè)務(wù)實體可對應(yīng)到數(shù)據(jù)引擎中的業(yè)務(wù)對象下的功能中包含的某特定查詢。設(shè)置界面如下：5．指定業(yè)務(wù)事件所需要的關(guān)鍵業(yè)務(wù)參數(shù)關(guān)鍵業(yè)務(wù)參數(shù)將會在設(shè)計器中指定從業(yè)務(wù)實體中取數(shù)據(jù)的規(guī)則（XPath）,流程實例運行時從符合業(yè)務(wù)實體格式描述的業(yè)務(wù)單據(jù)取得數(shù)據(jù)，并在調(diào)用業(yè)務(wù)模塊處理該業(yè)務(wù)事件時傳遞給業(yè)務(wù)模塊。通常業(yè)務(wù)事件均應(yīng)至少包含三個參數(shù)：VoucherId，VoucherCode，VoucherType。5． 設(shè)置業(yè)務(wù)事件插件通過菜單選項》業(yè)務(wù)插件進(jìn)入插件注冊界面，如下圖：然后在業(yè)務(wù)對象事件下注冊該事件處理后調(diào)用的插件。 審批提交客戶端編程提交流程圖判斷是否啟用工作流，分別提供了存儲過程和接口存儲過程：Usp_WF_IsFlowControlled @cBizObjectId nvarchar(40),@cBizEventId nvarchar(40),@iYear smallint,@cAcc_Id nvarchar(3),@bControlled bit out程序接口：提供給業(yè)務(wù)產(chǎn)品發(fā)起提交的接口VB代碼Dim oAudit as ObjectSet oAudit = CreateObject(“”)接口Public Function SubmitApplicationMessage(primBizData As String, calledCtx As CalledContext, ByRef isWFControled As Boolean,ByRef errMsg As String) As BooleanprimBizData : 關(guān)鍵業(yè)務(wù)數(shù)據(jù)XML串，XML串的Schema如下 KeySet !業(yè)務(wù)對象id Key name=BizObjectId value=/ !—業(yè)務(wù)事件 Key name=BizEventId value=/!單據(jù)號 Key name=VoucherId value=/!—時間戳 Key name=TimeStamp value=/!—其他插件或服務(wù)需要用到的參數(shù)，如AuthId/ KeySet calledCtx：Login中的登陸上下文isWFControlled：是否通