【正文】 更新審核標志失敗 Else RejectVoucher = True End If Exit FunctionErrHandler: strErr = (errmsg) = strErr RejectVoucher = FalseEnd Function。zhCN：該單據(jù)已經(jīng)不存在或已被其他人修改39。 and + strMainKeyName + = amp。 m_ufts amp。 _ VoucherId, lEffectedCount Else update + strTblName + set ireturncount=ireturncount+1 where Convert(char,Convert(money,Ufts),2)=39。更新審核標志失敗 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。 _ m_ufts amp。 _ VoucherId, lEffectedCount Else update + strTblName + set iverifystate=1 where iverifystate1 and Convert(char,Convert(money,Ufts),2)=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。 strErr) vbObjectError + 1000, , strErr End If writeLog (VerifyVoucherAgree succeed: amp。 VoucherId, Conn, adOpenStatic, adLockReadOnly m_ufts = (0).Value 39。 VoucherId, lEffectedCount End Select If lEffectedCount = 0 Then (errMsg) = GetString() 39。 _ 39。 amp。 39。 amp。 where + strMainKeyName + = amp。 amp。, VerifyDate=39。 _ amp。添加服裝插件——批量生成BOM終審服務 update + strTblName + set iverifystate=2 ,vstate=1, Verifier=39。 writeLog (VerifyVoucherAgree new objVoucherCO ) Set ele = Nothing writeLog (VerifyVoucherAgree objVoucherCO strErr: amp。39。39。39。39。39。39。39。39。39。39。39。返回信息處理 If (SaveAfterOk) Then saveafterok, (SaveAfterOk) Else If (SaveAfterOk) Then saveafterok, (SaveAfterOk) End If End If If (ccrechpname) Then ccrechpname, (ccrechpname) Else If (ccrechpname) Then ccrechpname, (ccrechpname) End If End If If (ccrechppass) Then ccrechppass, (ccrechppass) Else If (ccrechppass) Then ccrechppass, (ccrechppass) End If End If If (bCreditCheck) Then bCreditCheck, (bCreditCheck) Else If (bCreditCheck) Then bCreditCheck, (bCreditCheck) End If End If If (AfterCheckCredit) Then AfterCheckCredit, (AfterCheckCredit) Else If (AfterCheckCredit) Then AfterCheckCredit, (AfterCheckCredit) End If End If If (bcontinue) Then bcontinue, (bcontinue) Else If (ccrechpname) Then bcontinue, (bcontinue) End If End If 39。39。39。39。39。39。39。39。39。39。39。39。39。 = amp。 where amp。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。 VoucherId, Conn, adOpenForwardOnly, adLockReadOnly End If End If writeLog (VerifyVoucherAgree : amp。 strMainKeyName amp。 39。 amp。 strMainViewName amp。 = amp。 where amp。 VoucherId, Conn, adOpenForwardOnly, adLockReadOnly End If End If Set m_rst = Nothing Else If m_ufts = Then select * from amp。 strMainKeyName amp。 39。 amp。 strMainViewName amp。 = amp。 where amp。 VoucherId, Conn, adOpenForwardOnly, adLockReadOnly End If Else If m_ufts = Then select * from amp。 strMainKeyName amp。 39。 amp。 = 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