【正文】 rrMsg 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。新的審批流利用UAP的數(shù)據(jù)引擎來定義這些業(yè)務對象，這樣就可以通過修改數(shù)據(jù)引擎中的業(yè)務對象的查詢結(jié)果來形成不同的業(yè)務對象的Schema，從而可以將這些對象的Schema用作流程定義的條件并在流程運行時獲取業(yè)務對象實例的屬性值來進行相應的處理。查詢結(jié)果中必須包含結(jié)果列VoucherId，VoucherCode，VoucherType。命名必須注意完全匹配（注意大小寫）為查詢添加計算結(jié)果列為查詢添加查詢條件測試新增業(yè)務對象 審批業(yè)務對象注冊數(shù)據(jù)引擎中設計完畢業(yè)務對象后，就可提供給審批流系統(tǒng)使用。注冊過程使用位于U8SOFT\。業(yè)務事件URL中包含響應該業(yè)務事件的業(yè)務模塊定位信息，在運行期間，門戶將根據(jù)該信息加載相應的業(yè)務模塊來完成該業(yè)務事件的響應。 param Name=id Value=/ param Name=authID Value=/ param Name=docType Value=/ param Name=subFunction Value=/如來料報檢單：?xml version= encoding=utf8?Command param Name=name Value=來料報檢單/ param Name=cmdLine Value=/ param Name=docID Value=/ param Name=SubSysID Value=QM/ /Command上圖中支持插件選項通常需要勾上。4． 指定業(yè)務事件對應的業(yè)務實體本處的業(yè)務實體可對應到數(shù)據(jù)引擎中的業(yè)務對象下的功能中包含的某特定查詢。通常業(yè)務事件均應至少包含三個參數(shù)：VoucherId，VoucherCode，VoucherType。 審批提交客戶端編程提交流程圖判斷是否啟用工作流，分別提供了存儲過程和接口存儲過程：Usp_WF_IsFlowControlled cBizObjectId nvarchar(40),cBizEventId nvarchar(40),iYear smallint,cAcc_Id nvarchar(3),bControlled bit out程序接口：提供給業(yè)務產(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 : 關鍵業(yè)務數(shù)據(jù)XML串，XML串的Schema如下 KeySet !業(yè)務對象id Key name=BizObjectId value=/ !—業(yè)務事件 Key name=BizEventId value=/!單據(jù)號 Key name=VoucherId value=/!—時間戳 Key name=TimeStamp value=/!—其他插件或服務需要用到的參數(shù)，如AuthId/ KeySet calledCtx：Login中的登陸上下文isWFControlled：是否通過了發(fā)起條件errMsg：錯誤信息重載方法2Public Function SubmitApplicationMessage_2(bizObjectId As String, eventid As String, voucherId As String，calledCtx As CalledContext, ByRef isWFControled As Boolean,ByRef errMsg As String) As BooleanbizObjectId：業(yè)務對象Ideventid：業(yè)務事件IdvoucherId：單據(jù)id示例：1．VB客戶端調(diào)用 Function SubmitApplicationMessage_2(bizObjectId As String, eventId As String, voucherId As String, calledCtx As CalledContext，ByRef isWFControled As Boolean,ByRef errMsg As String) As Boolean 39。審批服務客戶端代理39。Login服務的LoginContext對象 Dim calledCtx As New UFSoft_U8_Framework_LoginContext 39。業(yè)務事件的標識，與審批預置表（AuditBizEvents）中的業(yè)務事件主鍵相同 Dim strBizEventId As String 39。業(yè)務進行自己的處理，可能需要發(fā)起自己的事務 ret = auditSvc. SubmitApplicationMessage_2 (strBizObjectId, strBizEventId, iVoucherId, calledCtx，bControlled，errMsg) If (ret = True) Then If bControlled = True ThenMsgBox (提交成功) 39。 errMsg) 39。業(yè)務自己的異常處理邏輯 2．.NET客戶端調(diào)用 public bool SubmitApplicationMessage(string bizObjectId,string eventId,string voucherId,string context,CalledContext calledCtx)參數(shù)說明： /// summary /// 提交審批消息 /// /summary /// param name=bizObjectId業(yè)務對象標識/param /// param name=