【正文】 _ccode As String Dim AuditServiceProxy As Object Dim rst As New Dim Conn As Dim strSQL As String Set AuditServiceProxy = CreateObject() Dim obj As Object Set obj = CreateObject() Set Conn = strVoucherInfo = GetVoucherInfo(bizObjectID) strVoucherInfo strTblName = (maintbl).nodeValue strMainKeyName = (mainkey).nodeValue ccode = (ccode).nodeValue writeLog DoSubmit judge ufts strSQL = select ireturncount, + ccode + from amp。 = amp。 amp。 strTblName amp。 amp。 Set obj = Nothing Set Conn = Nothing Set dom = Nothing DoSubmit = FalseEnd Function 審批流程——撤銷撤銷的工作原理：調(diào)用工作流的自動服務(wù)（撤銷），恢復(fù)iverifystate、ireturncount的值，將兩個值均置為0參考代碼：39。 where Convert(char,Convert(money,Ufts),2)=39。zhCN：該單據(jù)已經(jīng)不存在或已被其他人修改 UndoSubmit = False Set Conn = Nothing Set dom = Nothing Set rst = Nothing Exit Function Else If (1).Value = 1 And (2).Value = 2 Then strErr = GetString() 39。 VoucherType amp。 set iverifystate=0,ireturncount=0 where amp。此為標(biāo)準(zhǔn)過程，不分行業(yè) If strAction = Agree Then DoAudition = VerifyVoucherAgree(login, Conn, VoucherType, VoucherId, objBizData, Vufts, keyData) ElseIf strAction = Reject Then DoAudition = RejectVoucher(login, Conn, VoucherType, VoucherId, objBizData, Vufts) ElseIf strAction = Disagree Then DoAudition = VerifyVoucherDisagree(login, Conn, VoucherType, VoucherId, objBizData, Vufts) End If writeLog (DoAuditionDoAudition amp。 = amp。 VoucherId, Conn, adOpenForwardOnly, adLockReadOnly End If Else If m_ufts = Then select * from amp。 amp。 where amp。 39。 where amp。39。39。39。39。39。39。 _ amp。 amp。 VoucherId, lEffectedCount End Select If lEffectedCount = 0 Then (errMsg) = GetString() 39。 _ VoucherId, lEffectedCount Else update + strTblName + set iverifystate=1 where iverifystate1 and Convert(char,Convert(money,Ufts),2)=39。更新審核標(biāo)志失敗 VerifyVoucherDisagree = False Else VerifyVoucherDisagree = True End If writeLog (VerifyVoucherDisagree ok) Exit FunctionErrHandler: strErr = writeLog (VerifyVoucherDisagree ErrHandler: amp。zhCN：該單據(jù)已經(jīng)不存在或已被其他人修改39。 and + strMainKeyName + = amp。zhCN：該單據(jù)已經(jīng)不存在或已被其他人修改39。 strErr) (errmsg) = strErr VerifyVoucherAgree = False Set KeyDataMap = NothingEnd Function審批不同意：Private Function VerifyVoucherDisagree(login As clsLogin, Conn As Connection, ByVal VoucherType As String, ByVal VoucherId As String, objBizData As BizDataMap, ByRef m_ufts As String) As Boolean On Error GoTo ErrHandler Dim dom As New DOMDocument Dim strVoucherInfo As String Dim strMainKeyName As String Dim strTblName As String Dim lEffectedCount As Long Dim strErr As String VerifyVoucherDisagree = False writeLog VoucherType strVoucherInfo = GetVoucherInfo(VoucherType) strVoucherInfo writeLog strVoucherInfo strMainKeyName = (mainkey).nodeValue strTblName = (maintbl).nodeValue Set dom = Nothing writeLog (VerifyVoucherDisagree m_ufts amp。 _ 39。 where + strMainKeyName + = amp。添加服裝插件——批量生成BOM終審服務(wù) update + strTblName + set iverifystate=2 ,vstate=1, Verifier=39。39。39。39。39。39。39。zhCN：該單據(jù)已經(jīng)不存在或已被其他人修改 (errMsg) = strErr vbObjectError + 1000, , strErr Exit Function End If domHead, adPersistXML Set rst = Nothing Set ele = (//z:row) If VoucherType = 02 Then Set rst = New select cbilltype from amp。 amp。 VoucherId, Conn, adOpenForwardOnly, adLockReadOnly End If End If Set m_rst = Nothing Else If m_ufts = Then select * from amp。 strMainViewName amp。 strMainKeyName amp。 VoucherId, Conn, adOpenForwardOnly, adLockReadOnly If (0).Value = 06 Or (0).Value = 00 Then If m_ufts = Then select * from Sales_DXFH_T where amp。終審參考代碼：A. 標(biāo)準(zhǔn)過程，顯示審批任務(wù)提示窗口：39。 cVoucherCode) = 3600 UndoSubmit = (bizObjectID, eventID, VoucherId, VoucherType, cVoucherCode, sBizdata, callerCtx, strErr) If UndoSubmit Then update amp。 VoucherId amp。 = amp。) as iverifystate from _ amp。 VoucherId, effeLines If effeLines = 0 Then strErr = GetString() 39。 strTblName amp。 VoucherId sqlUpdate, effeLines DoSubmit = (bizObjectID, eventID, VoucherId, callerCtx, isWfCtl, strErr) If DoSubmit Th