📄 凭证查询.frm
字号:
'********************************************************************
'*函数说明: 加载资源 *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub loadstatic()
Picture1.Align = 0
Picture1.width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.BMP")
TlbVouch_s tlbAction, ImageList1
End Sub
Private Sub InitCombo1()
Dim i As Byte
For i = 1 To 12
Combo1.AddItem right(" " & i, 2) & "月"
Next i
Combo1.ListIndex = zjLogInfo.iMonth - 1
End Sub
'********************************************************************
'*函数说明: 填充显示Grid *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub fillgrid()
Dim i As Long
Dim oBusID As String
nFixRows = 2
nRows = 0
initGrid
If Combo1.ListIndex = -1 Then Combo1.ListIndex = 0 'Cuidong 2001.01.12
If Combo2.ListIndex = -1 Then Combo2.ListIndex = 0 'Cuidong 2001.01.12
' sqlVouchs = "SELECT [doutdate], [coutno_id], [iperiod], [csign], " & _
"[ino_id], [dbill_date], [cbill], [ccheck], [cbook], [iflag] " & _
"FROM GL_accvouch WHERE [coutsysname]='FD' AND [iperiod] Between " & _
Left(Combo1.List(Combo1.ListIndex), 2) & " AND " & _
Left(Combo2.List(Combo2.ListIndex), 2) & " AND [iflag] IS NULL " & _
"ORDER BY [iperiod], [csign], [ino_id]" 'cuidong 2001.01.12
sqlVouchs = "SELECT [doutdate], [coutno_id], [iperiod], [csign], " & _
"[ino_id], [dbill_date], [cbill], [ccheck], [cbook], [iflag] " & _
"FROM GL_accvouch WHERE [coutsysname]='FD' AND [iperiod] Between " & _
left(Combo1.List(Combo1.ListIndex), 2) & " AND " & _
left(Combo2.List(Combo2.ListIndex), 2) & " AND (([iFlag] IS NULL) Or ([iFlag] = 2)) " & _
"ORDER BY [iperiod], [csign], [ino_id]" 'cuidong 2001.01.12
Set rsVouchs = dbsZJ.OpenRecordset(sqlVouchs, dbOpenSnapshot)
If rsVouchs.EOF Then Exit Sub
i = 1
With rsVouchs
While Not .EOF
If InStr(1, ![coutno_id], "-") = 0 And oBusID <> ![coutno_id] And Not IsNull(![doutdate]) Then
' UfGridADO1.AddItem FormatDate(![doutdate]) & vbTab & _
GetClassName(Left(![coutno_id], 2)) & vbTab & _
Right(![coutno_id], 8) & vbTab & ![cBill] & vbTab & _
FormatDate(![dbill_date]) & vbTab & _
![cSign] & "-" & Right("0000" & ![iNo_id], 4) & vbTab & IIf(IsNull(![ccheck]), "", bFlag) & _
vbTab & IIf(IsNull(![cbook]), "", bFlag) & vbTab & _
IIf(IsNull(![iFlag]), "", bFlag) 'cuidong 2001.01.12
UfGridADO1.AddItem left(![coutno_id], 2) & vbTab & FormatDate(![doutdate]) & vbTab & _
GetClassName(left(![coutno_id], 2)) & vbTab & _
right(![coutno_id], 10) & vbTab & ![cBill] & vbTab & _
FormatDate(![dbill_date]) & vbTab & _
![cSign] & "-" & right("000000" & ![iNo_id], 4) & vbTab & IIf(IsNull(![ccheck]), "", bFlag) & _
vbTab & IIf(IsNull(![cbook]), "", bFlag) & vbTab & _
IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 1, bFlag, "")) & vbTab & _
IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 2, bFlag, "")) 'cuidong 2001.01.12
ReDim Preserve strID(i)
strID(i - 1) = ![coutno_id]
i = i + 1
oBusID = ![coutno_id]
End If
.MoveNext
Wend
End With
End Sub
'可显示红字凭证1（有错） cuidong 2001.01.12
''********************************************************************
''*函数说明: 填充显示Grid *
''*参 数: *
''* *
''*返回值 : *
''*********************************************************************
'Private Sub FillGrid()
' Dim i As Long, j As Long
' Dim oBusID As String
' Dim oMc 'Cuidong 2000/08/04
' Dim oMd 'Cuidong 2000/08/04
' Dim oRow As Long 'Cuidong 2000/08/04
' Dim RsV As UfRecordset 'Cuidong 2000/08/16
' Dim bAddRow As Boolean
'
' nFixRows = 2
' nRows = 0
' initGrid
' If Combo1.ListIndex = -1 Then Combo1.ListIndex = 0 'Cuidong 2000/08/30
' If Combo2.ListIndex = -1 Then Combo2.ListIndex = 0 'Cuidong 2000/08/30
' sqlVouchs = "SELECT [doutdate], [coutno_id], [iperiod], [csign], " & _
' "[ino_id], [dbill_date], [cbill], [ccheck], [cbook], [iflag], [mc], [md], [coutid] " & _
' "FROM GL_accvouch WHERE [coutsysname]='FD' AND [iperiod] Between " & _
' Left(Combo1.List(Combo1.ListIndex), 2) & " AND " & _
' Left(Combo2.List(Combo2.ListIndex), 2) & " AND (([iflag] IS NULL) Or ([iFlag] = 2) )" & _
' "ORDER BY [coutno_id], Abs([mc])+Abs([md]), [ino_id], -([mc] + [md]), [iperiod], [csign], [doutbilldate]" 'Cuidong 2000.12.25 'Cuidong 2000.12.25 'Cuidong 2000/08/04
' Set rsVouchs = dbsZJ.OpenRecordset(sqlVouchs, dbOpenSnapshot)
' If rsVouchs.EOF Then Exit Sub
' i = 1
' With rsVouchs
' While Not .EOF
' If Not IsNull(![doutdate]) Then 'Cuidong 2000/08/07
'' If IIf(oBusID = ![coutno_id], Not (oMc = ![md] And oMd = ![mc]), True) Then
' If IIf(oBusID = ![coutno_id], False, True) Then
' Set RsV = dbsZJ.OpenRecordset("Select * From GL_AccVouch " & _
' "Where [coutno_id]='" & ![coutno_id] & "' " & _
' "And [mc] =" & -![mc] & " " & _
' "And [md] =" & -![md] & " " & _
' "And [coutsysname]='FD' " & _
' "And [iflag] IS NULL ")
'
' bAddRow = False
' If Not (RsV.EOF Or RsV.BOF) And (![mc] < 0 Or ![md] < 0) Then
' '这可能是被冲销过的凭证 'Cuidong 2000/08/16
' '设定颜色 'Cuidong 2000/08/03
' If Not (oMc = ![md] And oMd = ![mc]) Then
' '这是被冲销过的凭证 'Cuidong 2000/08/16
' UfGridADO1.AddItem FormatDate(![doutdate]) & vbTab & _
' GetClassName(Left(![coutid], 2)) & vbTab & _
' mID$(![coutid], 3, 8) & vbTab & ![cBill] & vbTab & _
' FormatDate(![dbill_date]) & vbTab & _
' ![cSign] & "-" & Right("0000" & ![iNo_id], 4) & vbTab & IIf(IsNull(![ccheck]), "", bFlag) & _
' vbTab & IIf(IsNull(![cbook]), "", bFlag) & vbTab & _
' IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 1, bFlag, "")) & vbTab & _
' IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 2, bFlag, "")) 'Cuidong 2000.12.25
' ReDim Preserve strID(i)
' strID(i - 1) = ![coutno_id]
' i = i + 1
'
' For j = 0 To UfGridADO1.Cols - 1 'Cuidong 2000/08/16
' UfGridADO1.CellForeColor(i, j) = &HFF& 'Cuidong 2000/08/16
' Next j 'Cuidong 2000/08/16
' bAddRow = True
' End If
' Else
' '一般凭证
' UfGridADO1.AddItem FormatDate(![doutdate]) & vbTab & _
' GetClassName(Left(![coutid], 2)) & vbTab & _
' mID$(![coutid], 3, 8) & vbTab & ![cBill] & vbTab & _
' FormatDate(![dbill_date]) & vbTab & _
' ![cSign] & "-" & Right("0000" & ![iNo_id], 4) & vbTab & IIf(IsNull(![ccheck]), "", bFlag) & _
' vbTab & IIf(IsNull(![cbook]), "", bFlag) & vbTab & _
' IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 1, bFlag, "")) & vbTab & _
' IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 2, bFlag, "")) 'Cuidong 2000.12.25
' ReDim Preserve strID(i)
' strID(i - 1) = ![coutno_id]
' i = i + 1
'
' '设定颜色 'Cuidong 2000/08/03
' For j = 0 To UfGridADO1.Cols - 1 'Cuidong 2000/08/03
' UfGridADO1.CellForeColor(i, j) = &H0& 'Cuidong 2000/08/03
' Next j 'Cuidong 2000/08/03
'
' oMc = ![mc] 'Cuidong 2000/08/04
' oMd = ![md] 'Cuidong 2000/08/04
' oBusID = ![coutno_id]
' End If 'Cuidong 2000/08/16
' End If
' End If
' .MoveNext
' Wend
' End With
' On Error Resume Next
' RsV.oClose
' Set RsV = Nothing
'End Sub
'可显示红字凭证2（有错） cuidong 2001.01.12
''********************************************************************
''*函数说明: 填充显示Grid *
''*参 数: *
''* *
''*返回值 : *
''*********************************************************************
'Private Sub FillGrid()
' Dim i As Long, j As Long
' Dim oBusID As String
'' Dim strID As String
' Dim oMc 'Cuidong 2000/08/04
' Dim oMd 'Cuidong 2000/08/04
' Dim oRow As Long 'Cuidong 2000/08/04
' Dim RsV As UfRecordset 'Cuidong 2000/08/16
'
' nFixRows = 2
' nRows = 0
' initGrid
'' sqlVouchs = "SELECT [doutdate], [coutno_id], [iperiod], [csign], " & _
' "[ino_id], [dbill_date], [cbill], [ccheck], [cbook], [iflag] " & _
' "FROM GL_accvouch WHERE [coutsysname]='FD' AND [iperiod] Between " & _
' Left(Combo1.List(Combo1.ListIndex), 2) & " AND " & _
' Left(Combo2.List(Combo2.ListIndex), 2) & " AND [iflag] IS NULL " & _
' "ORDER BY [iperiod], [csign], [ino_id]" 'Cuidong 2000.12.25 'Cuidong 2000/08/04
' If Combo1.ListIndex = -1 Then Combo1.ListIndex = 0 'Cuidong 2000/08/30
' If Combo2.ListIndex = -1 Then Combo2.ListIndex = 0 'Cuidong 2000/08/30
'' sqlVouchs = "SELECT [doutdate], [coutno_id], [iperiod], [csign], " & _
' "[ino_id], [dbill_date], [cbill], [ccheck], [cbook], [iflag], [mc], [md], [coutid] " & _
' "FROM GL_accvouch WHERE [coutsysname]='FD' AND [iperiod] Between " & _
' Left(Combo1.List(Combo1.ListIndex), 2) & " AND " & _
' Left(Combo2.List(Combo2.ListIndex), 2) & " AND [iflag] IS NULL " & _
' "ORDER BY [coutno_id], Abs([mc])+Abs([md]), [ino_id], -([mc] + [md]), [iperiod], [csign], [doutbilldate]" 'Cuidong 2000.12.25 'Cuidong 2000.12.25 'Cuidong 2000/08/04
' sqlVouchs = "SELECT [doutdate], [coutno_id], [iperiod], [csign], " & _
' "[ino_id], [dbill_date], [cbill], [ccheck], [cbook], [iflag], [mc], [md], [coutid] " & _
' "FROM GL_accvouch WHERE [coutsysname]='FD' AND [iperiod] Between " & _
' Left(Combo1.List(Combo1.ListIndex), 2) & " AND " & _
' Left(Combo2.List(Combo2.ListIndex), 2) & " AND (([iflag] IS NULL) Or ([iFlag] = 2) )" & _
' "ORDER BY [coutno_id], Abs([mc])+Abs([md]), [ino_id], -([mc] + [md]), [iperiod], [csign], [doutbilldate]" 'Cuidong 2000.12.25 'Cuidong 2000.12.25 'Cuidong 2000/08/04
' Set rsVouchs = dbsZJ.OpenRecordset(sqlVouchs, dbOpenSnapshot)
' If rsVouchs.EOF Then Exit Sub
' i = 1
' With rsVouchs
' While Not .EOF
'' If InStr(1, ![coutno_id], "-") = 0 And Not IsNull(![doutdate]) Then 'Cuidong 2000/08/07
' If Not IsNull(![doutdate]) Then 'Cuidong 2000/08/07
'' If oBusID <> ![coutno_id] Then
'' If oBusID <> (![coutno_id]) And Not IsNull(![doutdate]) Then 'Cuidong 2000/07/20
' If IIf(oBusID = ![coutno_id], Not (oMc = ![md] And oMd = ![mc]), True) Then
'' UfGridADO1.AddItem FormatDate(![doutdate]) & vbTab & _
' GetClassName(Left(![coutno_id], 2)) & vbTab & _
' mID$(![coutno_id], 3, 8) & vbTab & ![cBill] & vbTab & _
' FormatDate(![dbill_date]) & vbTab & _
' ![cSign] & "-" & Right("0000" & ![iNo_id], 4) & vbTab & IIf(IsNull(![ccheck]), "", bFlag) & _
' vbTab & IIf(IsNull(![cbook]), "", bFlag) & vbTab & _
' IIf(IsNull(![iFlag]), "", bFlag) 'Cuidong 2000.12.25
' UfGridADO1.AddItem FormatDate(![doutdate]) & vbTab & _
' GetClassName(Left(![coutid], 2)) & vbTab & _
' mID$(![coutid], 3, 8) & vbTab & ![cBill] & vbTab & _
' FormatDate(![dbill_date]) & vbTab & _
' ![cSign] & "-" & Right("0000" & ![iNo_id], 4) & vbTab & IIf(IsNull(![ccheck]), "", bFlag) & _
' vbTab & IIf(IsNull(![cbook]), "", bFlag) & vbTab & _
' IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 1, bFlag, "")) & vbTab & _
' IIf(IsNull(![iFlag]), "", IIf(![iFlag] = 2, bFlag, "")) 'Cuidong 2000.12.25
'
' ReDim Preserve strID(i)
' strID(i - 1) = ![coutno_id]
' i = i + 1
'
' Set RsV = dbsZJ.OpenRecordset("Select * From GL_AccVouch " & _
' "Where [coutno_id]='" & ![coutno_id] & "' " & _
' "And [mc] =" & -![mc] & " " & _
' "And [md] =" & -![md] & " " & _
' "And [coutsysname]='FD' " & _
' "And [iflag] IS NULL ")
'
' If Not (RsV.EOF Or RsV.BOF) And (![mc] < 0 Or ![md] < 0) Then
' '这是被冲销过的凭证 'Cuidong 2000/08/16
' '设定颜色 'Cuidong 2000/08/03
' For j = 0 To UfGridADO1.Cols - 1 'Cuidong 2000/08/16
' UfGridADO1.CellForeColor(i, j) = &HFF& 'Cuidong 2000/08/16
' Next j 'Cuidong 2000/08/16
' Else
' '设定颜色 'Cuidong 2000/08/03
'' If Not UfGridADO1.CellForeColor(i + 1, 1) = &H0& Then 'Cuidong 2000/08/03
' For j = 0 To UfGridADO1.Cols - 1 'Cuidong 2000/08/03
' UfGridADO1.CellForeColor(i, j) = &H0& 'Cuidong 2000/08/03
' Next j 'Cuidong 2000/08/03
'' End If 'Cuidong 2000/08/03
' End If 'Cuidong 2000/08/16
'
'' If oBusID <> ![coutno_id] Then
'' Else 'Cuidong 2000/08/04
'' '这有可能是被冲销过的凭证 'Cuidong 2000/08/04
'' If oMc = -![mc] And oMd = -![md] Then 'Cuidong 2000/08/04
'' '这肯定是被冲销过的凭证 'Cuidong 2000/08/04
'' For j = 0 To UfGridADO1.Cols - 1 'Cuidong 2000/08/04
'' UfGridADO1.CellForeColor(i, j) = &HFF& 'Cuidong 2000/08/04
'' Next j 'Cuidong 2000/08/04
'' End If 'Cuidong 2000/08/04
'' End If 'Cuidong 2000/08/04
' oMc = ![mc] 'Cuidong 2000/08/04
' oMd = ![md] 'Cuidong 2000/08/04
' oBusID = ![coutno_id]
' End If
' End If
' .MoveNext
' Wend
' End With
' On Error Resume Next
' RsV.oClose
' Set RsV = Nothing
'End Sub
'********************************************************************
'*函数说明: 初始化 Grid *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub initGrid()
Dim i As Integer
With tlbAction
.Buttons("ChongXiao").Enabled = True
.Buttons("Delete").Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -