凭证查询.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