审核流程和取消审核流程

Private Sub btnAudit_Click() '审核事件,走事务流程
     On Error GoTo ErrorHandler
     Dim strSQL       As String
     Dim strMsg       As String
     Dim strBillNo    As String
     Dim strUserName  As String
     Dim cnn          As Object 'ADODB.Connection
     Dim blnTransBegin As Boolean
    Set cnn = CurrentProject.Connection
    cnn.BeginTrans: blnTransBegin = True
   If DCount("*", "TMP_CR_XS_TF") <= 0 Then
           MsgBoxEx Me![BIL_NAME] & "，没有相关的内容，请重新审核！", vbExclamation + vbOKOnly
           Exit Sub
     End If
     If Me.sfrDetail![qty_wh] < Me.sfrDetail![qty] and ME![BIL_ID]="XC"  Then
           MsgBoxEx Me.sfrDetail![prd_name] & "的库存数量不足，请重新填写数量！", vbExclamation + vbOKOnly
         Me.sfrDetail![qty].SetFocus
         Me.sfrDetail![qty] = ""
           Exit Sub
     End If
     
    strBillNo = Me![BIL_NAME] & "单 No." & Me![bil_no]
    strMsg = "审核之后，此单据不可再编辑，并同时更新库存、客户应收款，确定要完成 " & strBillNo & " 的审核吗？"
    If MsgBox(strMsg, vbExclamation + vbOKCancel, "审核确认") = vbCancel Then
         Exit Sub
    End If   
    strUserName = Forms!sysFrmmain!Nickname
    strSQL = " UPDATE CR_XS_MF SET state='已审核',chk_dd=now()" _
            & ", chk_man= " & SQLTEXT(strUserName) _
            & " WHERE [BIL_no]=" & SQLTEXT(Me![bil_no])             
     If DAORunSQL(strSQL) Then
        Me!state = "已审核"
        Me!chk_man = strUserName
        Me!chk_dd = Now()
        Me.sfrDetail.SetFocus
        Me.btnAudit.Enabled = False
        Me.AllowEdits = False
        Me.sfrDetail.Form.AllowEdits = False
        Me.sfrDetail.Form.AllowAdditions = False
        Me.sfrDetail!btnDelete.Enabled = False
        Form_frmCR_XS_MF.RefreshDataList
        Me.btnSave.Enabled = False
        Me.sfrDetail!btnDeleteAll.Enabled = False
     End If                 
        DoCmd.SetWarnings False            
            '审核时对客户信息表中的最近销售日期进行更新
            'DoCmd.RunSQL " UPDATE CUST2  SET LAST_DD_XS = #" & Me![BIL_dd] & " # WHERE CUS_NO='" & Me![cus_no] & "'"            
            '更新客户应收款,以追加insert into方式
            Dim je As Currency
            je = Me.sfrDetail.Form!金额合计
            DoCmd.RunSQL " INSERT INTO YS_MF  VALUES ('" & Me![cus_no] & " ','" & Me![bil_no] & "','" & Me![os_no] & "'," & je & ",#" & Me![chk_dd] & "#, -1*" & Me![kc_type].Value & ",false,'" & Me![BIL_ID] & "')"
           
            '用更新查询对商品信息表中的相关商品的库存数量进行增减
            Dim strCalculateSQL As String
            strCalculateSQL = "UPDATE TMP_CR_XS_TF INNER JOIN PRDT ON TMP_CR_XS_TF.PRD_NO =PRDT.PRD_NO " _
                               & "SET PRDT.QTY_WH = NZ(PRDT.QTY_WH,0)+TMP_CR_XS_TF.QTY*TMP_CR_XS_TF.KC_TYPE;"
            DoCmd.RunSQL strCalculateSQL           
            '更新商品最新售价
             strCalculateSQL = "UPDATE TMP_CR_XS_TF INNER JOIN PRDT ON TMP_CR_XS_TF.PRD_NO = PRDT.PRD_NO " _
                              & "SET PRDT.UP1 = TMP_CR_XS_TF.UP;"
             DoCmd.RunSQL strCalculateSQL           
             '更新销售单明细表的完成数量
              strCalculateSQL = "UPDATE XS_TF, CR_XS_TF SET XS_TF.QTY_FI = NZ(XS_TF.QTY_FI,0)-CR_XS_TF.QTY*CR_XS_TF.KC_TYPE" _
                                    & " where (XS_TF.XS_NO=CR_XS_TF.OS_NO) AND (XS_TF.PRD_NO=CR_XS_TF.PRD_NO) AND CR_XS_TF.bil_no=" & SQLTEXT(Me![bil_no])
             DoCmd.RunSQL strCalculateSQL           
        DoCmd.SetWarnings True
   cnn.CommitTrans: blnTransBegin = False
    Me.sfrDetail.Requery
    Form_frmCR_XS_MF.sfrList.Requery
    Form_frmCR_XS_MF.RefreshDataList  
    MsgBoxEx "审核成功！", vbInformation
    WriteOperationLog Me![BIL_NAME], "审核"
ExitHere:
 Exit Sub
ErrorHandler:
    If blnTransBegin Then
        cnn.RollbackTrans
        blnTransBegin = False
    End If
    MsgBoxEx Err.Description, vbCritical
    RDPErrorHandler Me.Name & ": Sub btnAudit_Click()"
    Resume ExitHere
End Sub