frmnotecancellation.frm

自来水公司的一个管理系统

         Top             =   2205
         Width           =   480
      End
      Begin VB.Label Label8 
         Caption         =   "开票员号"
         Height          =   255
         Index           =   17
         Left            =   225
         TabIndex        =   28
         Top             =   2565
         Width           =   795
      End
      Begin VB.Label Label8 
         Caption         =   "打印时间"
         Height          =   255
         Index           =   18
         Left            =   2175
         TabIndex        =   27
         Top             =   2565
         Width           =   840
      End
      Begin VB.Label Label8 
         Caption         =   "实用吨数"
         Height          =   255
         Index           =   19
         Left            =   4185
         TabIndex        =   26
         Top             =   1845
         Width           =   840
      End
      Begin VB.Label Label8 
         Caption         =   "单价"
         Height          =   255
         Index           =   7
         Left            =   225
         TabIndex        =   25
         Top             =   2205
         Width           =   495
      End
      Begin VB.Label Label8 
         Caption         =   "调整数"
         Height          =   255
         Index           =   10
         Left            =   4335
         TabIndex        =   24
         Top             =   1470
         Width           =   840
      End
      Begin VB.Label Label8 
         Caption         =   "上月欠"
         Height          =   255
         Index           =   11
         Left            =   225
         TabIndex        =   23
         Top             =   1470
         Width           =   600
      End
      Begin VB.Label Label8 
         Caption         =   "本月欠"
         Height          =   255
         Index           =   12
         Left            =   1635
         TabIndex        =   22
         Top             =   1470
         Width           =   600
      End
      Begin VB.Label Label8 
         Caption         =   "滞纳金"
         Height          =   255
         Index           =   16
         Left            =   2835
         TabIndex        =   21
         Top             =   1470
         Width           =   600
      End
   End
   Begin VB.CommandButton cmdFPCancellation 
      Caption         =   "作废"
      Height          =   420
      Left            =   225
      TabIndex        =   2
      Top             =   4020
      Width           =   1215
   End
   Begin VB.TextBox txtIID 
      Height          =   345
      Left            =   1305
      TabIndex        =   0
      Top             =   180
      Width           =   2355
   End
   Begin VB.Label Label8 
      Caption         =   "发票流水号"
      Height          =   255
      Index           =   0
      Left            =   225
      TabIndex        =   1
      Top             =   240
      Width           =   1230
   End
End
Attribute VB_Name = "frmNoteCancellation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdFPCancellation_Click()
    Dim bytReturnFlag As Byte
    
    If Trim(Me.txtIID.Text) = "" Then Exit Sub
    
    bytReturnFlag = MsgBox("请仔细审核该发票，确定要作废吗？", vbYesNo + vbDefaultButton2 + vbInformation, "警告")
    If bytReturnFlag = vbNo Then Exit Sub
    
    '发票作废
    If Not InvoiceCancel(Trim(Me.txtIID.Text)) Then
        Warning "发票作废失败！！！"
        Exit Sub
    End If
    
    Me.txtIID.Text = ""
    Call InitInterface
End Sub

Private Sub Form_Load()
    MoveToCenter gMainFormRefer, Me
    
    Me.txtWaterRateYm.Text = ""
    Call InitInterface
End Sub

Private Sub InitInterface()
    Me.txtWaterRateYm.Text = ""
    Me.txtUID.Text = ""
    Me.txtPID.Text = ""
    Me.txtQID.Text = ""
    Me.txtUName.Text = ""
    Me.txtLinkAddr.Text = ""
    Me.txtPmOwe.Text = ""
    Me.txtCmOwe.Text = ""
    Me.txtFineRule.Text = ""
    Me.txtWaterRevise.Text = ""
    Me.txtPmWaterRead.Text = ""
    Me.txtCmWaterRead.Text = ""
    Me.txtTmpWaterRevise.Text = ""
    Me.txtPrice.Text = ""
    Me.txtWaterRates.Text = ""
    Me.txtCgID.Text = ""
    Me.txtCtime.Text = ""
End Sub

Private Sub txtIID_GotFocus()
    Call AutoSelectText(Me.txtIID)
End Sub

Private Sub txtIID_KeyPress(KeyAscii As Integer)
    Call IfEnterKeyMoveNext(KeyAscii)
End Sub

Private Sub txtIID_LostFocus()
    If Trim(Me.txtIID.Text) = "" Then
        Call InitInterface
        Exit Sub
    End If
    If Trim(Me.txtIID.Text) = String(gIIDLen, "9") Then
        Call InitInterface
        Warning "该编号发票为银行导入，不可作废！！！"
        Exit Sub
    End If
        
    Me.txtIID.Text = String(gIIDLen - Len(Trim(Me.txtIID.Text)), "0") & Trim(Me.txtIID.Text)
    If Not FindIID(Trim(Me.txtIID.Text)) Then
        Warning "未查询到该发票，请仔细核对！！！"
        Me.txtIID.SetFocus
        Exit Sub
    End If

End Sub

Private Function FindIID(ByVal strIID As String) As Boolean
    Dim adoInvoiceRS As ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "select * from Invoice where IID='" & strIID & "' and Status='1'"
    On Error GoTo errHandleOpen
    Set adoInvoiceRS = gConnect.Execute(strSQL)
    On Error GoTo 0
    If adoInvoiceRS.EOF And adoInvoiceRS.BOF Then
        FindIID = False
        Call InitInterface
    Else
        FindIID = True
        With adoInvoiceRS
        Me.txtWaterRateYm.Text = !WaterRateYm
        Me.txtUID.Text = !Uid
        Me.txtPID.Text = !PID
        Me.txtQID.Text = !QID
        Me.txtUName.Text = !UName
        Me.txtLinkAddr.Text = !LinkAddr
        Me.txtPmOwe.Text = !PmOwe
        Me.txtCmOwe.Text = !CmOwe
        Me.txtFineRule.Text = !FineRule
        Me.txtWaterRevise.Text = !WaterRevise
        Me.txtPmWaterRead.Text = !PmWaterRead
        Me.txtCmWaterRead.Text = !CmWaterRead
        Me.txtTmpWaterRevise.Text = !CmWaterRead - !PmWaterRead + !WaterRevise
        Me.txtPrice.Text = !Price
        Me.txtWaterRates.Text = !WaterRates
        Me.txtCgID.Text = !CgID
        Me.txtCtime.Text = !Ctime
        End With
    End If
    
    On Error Resume Next
    adoInvoiceRS.Close
    Set adoInvoiceRS = Nothing
    On Error GoTo 0
    
    Exit Function
    '-------错误处理---------
errHandleOpen:
    Warning "发票查询执行失败！" & Chr(13) & Err.Description
    FindIID = False
    Call InitInterface
    On Error GoTo 0
End Function

Private Function InvoiceCancel(ByVal strIID As String) As Boolean
    Dim strSQL As String
    
    gConnect.BeginTrans
    On Error GoTo errHandleExe
    '1  将水费表的相应记录的发票号字段置为空串（这样，就可以再次打印）
    strSQL = "update WaterRate set IID='' where IID='" & strIID & "'"
    gConnect.Execute (strSQL)
    '2  将发票表的相应记录的status状态字段置为'0'--作废标志
    strSQL = "update Invoice set Status='0',CancelCgID='" & gstrCurOperatorID & "' where IID='" & strIID & "'"
    gConnect.Execute (strSQL)
    On Error GoTo 0
    gConnect.CommitTrans
    InvoiceCancel = True
    
    Exit Function
    '-------错误处理---------
errHandleExe:
    gConnect.RollbackTrans
    InvoiceCancel = False
    On Error GoTo 0
End Function