凭证批处理选择.frm

用友U8财务软件VB源程序, 本版本为2002年版本

Attribute VB_Name = "frmVouchsXz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:凭证批处理选择
'作者: 赵春立

Option Explicit

Private sqlVouchs As String
Private sqlWhere  As String
Private Quitfs    As Boolean

Private Sub Command1_Click(Index As Integer)
   Select Case Index
      Case 0: DisplayCalendar Edit1, Me.hWnd, Frame1.Left, Frame1.Top
      Case 1: DisplayCalendar Edit2, Me.hWnd, Frame1.Left, Frame1.Top
   End Select

End Sub

Private Sub Command2_Click(Index As Integer)
   Select Case Index
      Case 0
         If VerifyConditions Then
            frmVouchs.sqlVouchs = sqlVouchs
            Quitfs = False
            Unload Me
            frmVouchs.Show
         End If
      Case 1
         Quitfs = True
         Unload Me
   End Select
End Sub

'********************************************************************
'*函数说明: 验证输入条件并产生 SQL 语句                                *
'*参    数:                                                          *
'*                                                                   *
'*返回值  : True : 成功                                               *
'*********************************************************************
Private Function VerifyConditions() As Boolean
   Dim sqlVouch As String
   Dim blnUnion As Boolean
   
   VerifyConditions = False
   sqlVouchs = ""
   sqlWhere = ""
   If Edit1 <> "" Then
      Edit1 = ForDate(Edit1)
      If Not IsDate(Edit1) Then
         MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
         SetTxtFocus Edit1
         Exit Function
      Else
         Edit1 = FormatDate(Edit1)
         sqlWhere = sqlWhere & "AND dbill_date >= '" & FormatDate(Edit1) & "' "
      End If
   Else
      sqlWhere = sqlWhere & "And dbill_date >= '" & FormatDate(ZjAccInfo.zjStartdate) & "' "
   End If
   If Edit2 <> "" Then
      Edit2 = ForDate(Edit2)
      If Not IsDate(Edit2) Then
         MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
         SetTxtFocus Edit2
         Exit Function
      Else
         Edit2 = Format(Edit2, "YYYY-MM-DD")
         sqlWhere = sqlWhere & "AND dbill_date <= '" & FormatDate(Edit2) & "' "
      End If
   End If
   If Edit1 <> "" And Edit2 <> "" Then
      If CDate(Edit1) > CDate(Edit2) Then
         Beep
         MsgBox "起始日期应小于等于结束日期，请重新输入！", vbInformation, zjGl_Name
         SetTxtFocus Edit1
         Exit Function
      End If
   End If
   
   sqlVouch = "(SELECT cBus_id FROM FD_Vouch WHERE inid IS NULL) "
   blnUnion = False
   If Check1(0).Value Then
      sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cSavID AS BillID, mmoney AS BillMoney, cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Sav WHERE cSavID LIKE '01%' AND cSavID NOT IN " & sqlVouch & sqlWhere
      blnUnion = True
   End If
   If Check1(1).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cFetID, mmoney, cAccID, '', cDigest, nfrat FROM FD_Fetch WHERE cFetID LIKE '02%' AND cFetID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cFetID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Fetch WHERE cFetID LIKE '02%' AND cFetID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(2).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cSavID, mmoney, cAccID, '', cDigest, nfrat FROM FD_Sav WHERE cSavID LIKE '03%' AND cSavID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cSavID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Sav WHERE cSavID LIKE '03%' AND cSavID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(3).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cFetID, mmoney, cAccID, '', cDigest, nfrat FROM FD_Fetch WHERE cFetID LIKE '04%' AND cFetID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cFetID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Fetch WHERE cFetID LIKE '04%' AND cFetID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(4).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cCreID, mmoney, cAccID, '', cDigest, nfrat FROM FD_Cred WHERE cCreID LIKE '05%' AND cCreID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cCreID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Cred WHERE cCreID LIKE '05%' AND cCreID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(5).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cCreID, mmoney, cAccID, '', cDigest, nfrat FROM FD_Cred WHERE cCreID LIKE '06%' AND cCreID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cCreID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Cred WHERE cCreID LIKE '06%' AND cCreID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(6).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cUnwID, mmoney, cPAccID, cGAccID, cDigest, nfrat FROM FD_UnwDeb WHERE cUnwID LIKE '07%' AND cUnwID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cUnwID AS BillID, mmoney AS BillMoney,cPAccID AS BillZhID1, cGAccID AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_UnwDeb WHERE cUnwID LIKE '07%' AND cUnwID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(7).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cRetID, mmoney, cAccID, '', cDigest, nfrat FROM FD_Return WHERE cRetID LIKE '08%' AND cRetID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cRetID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Return WHERE cRetID LIKE '08%' AND cRetID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(8).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cRetID, mmoney, cAccID, '', cDigest, nfrat FROM FD_Return WHERE cRetID LIKE '09%' AND cRetID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cRetID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_Return WHERE cRetID LIKE '09%' AND cRetID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(9).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cCraID, mmoney, cAccID, '', cDigest, nfrat FROM FD_CreAcrRcp WHERE cCraID LIKE '10%' AND cCraID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cCraID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_CreAcrRcp WHERE cCraID LIKE '10%' AND cCraID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(10).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cCraID, mmoney, cAccID, '', cDigest, nfrat FROM FD_CreAcrRcp WHERE cCraID LIKE '11%' AND cCraID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cCraID AS BillID, mmoney AS BillMoney,cAccID AS BillZhID1, '' AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_CreAcrRcp WHERE cCraID LIKE '11%' AND cCraID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(11).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cRetID, mmoney, cPAccID, cGAccID, cDigest, nfrat FROM FD_UnwRet WHERE cRetID LIKE '12%' AND cRetID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cRetID AS BillID, mmoney AS BillMoney,cPAccID AS BillZhID1, cGAccID AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_UnwRet WHERE cRetID LIKE '12%' AND cRetID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(12).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cUnaID, mmoney, cPAccID, cGAccID, cDigest, nfrat FROM FD_UnwAcrRcp WHERE cUnaID LIKE '13%' AND cUnaID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cUnaID AS BillID, mmoney AS BillMoney,cPAccID AS BillZhID1, cGAccID AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_UnwAcrRcp WHERE cUnaID LIKE '13%' AND cUnaID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(13).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cSetID, mmoney, cPAccID, cGAccID, cDigest, nfrat FROM FD_SettAcc WHERE cSetID LIKE '14%' AND cSetID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cSetID AS BillID, mmoney AS BillMoney,cPAccID AS BillZhID1, cGAccID AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_SettAcc WHERE cSetID LIKE '14%' AND cSetID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(14).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cSetID, mmoney, cPAccID, cGAccID, cDigest, nfrat FROM FD_SettAcc WHERE cSetID LIKE '15%' AND cSetID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cSetID AS BillID, mmoney AS BillMoney,cPAccID AS BillZhID1, cGAccID AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_SettAcc WHERE cSetID LIKE '15%' AND cSetID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   If Check1(15).Value Then
      If blnUnion Then
         sqlVouchs = sqlVouchs & "UNION ALL SELECT dbill_date, cCarID, mmoney, cPAccID, cGAccID, cDigest, nfrat FROM FD_CadAcr WHERE cCarID LIKE '16%' AND cCarID NOT IN " & sqlVouch & sqlWhere
      Else
         sqlVouchs = sqlVouchs & "SELECT dbill_date AS BillDate, cCarID AS BillID, mmoney AS BillMoney,cPAccID AS BillZhID1, cGAccID AS BillZhID2, cDigest AS BillDigest, nfrat AS BillHl FROM FD_CadAcr WHERE cCarID LIKE '16%' AND cCarID NOT IN " & sqlVouch & sqlWhere
         blnUnion = True
      End If
   End If
   VerifyConditions = True
   
End Function

Private Sub Command3_Click(Index As Integer)
   Dim i As Long
   Select Case Index
      Case 0
         For i = 0 To 15
            Check1(i).Value = 1
         Next i
      Case 1
         For i = 0 To 15
            Check1(i).Value = 0
         Next i
   End Select
   
End Sub

Private Sub Edit1_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      Command1(0).Value = True
      Edit1.SetFocus
   End If
End Sub

Private Sub Edit1_LostFocus()
   If Edit1 <> "" Then
      Edit1 = ForDate(Edit1)
      If IsDate(Edit1) Then
         Edit1 = FormatDate(Edit1)
      Else
         MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
         SetTxtFocus Edit1
      End If
   End If
End Sub

Private Sub Edit2_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      Command1(1).Value = True
      Edit2.SetFocus
   End If
End Sub

Private Sub Edit2_LostFocus()
   If Edit2 <> "" Then
      Edit2 = ForDate(Edit2)
      If IsDate(Edit2) Then
         Edit2 = FormatDate(Edit2)
      Else
         MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
         SetTxtFocus Edit2
      End If
   End If
End Sub

Private Sub Form_Load()
   Dim i As Integer
   Dim sqlClass As String
   Dim rsClass As New UfRecordset
   Me.Icon = LoadResPicture(109, vbResIcon)
   sqlClass = "SELECT * FROM FD_Class ORDER BY csign"
   Set rsClass = dbsZJ.OpenRecordset(sqlClass, dbOpenSnapshot)
   i = 0
   With rsClass
      While Not .EOF
         Check1(i).Caption = !ctext
         i = i + 1
         .MoveNext
      Wend
   End With
   LoadStatic
   CenterForm Me
End Sub

'********************************************************************
'*函数说明: 加载资源                                                 *
'*参    数:                                                          *
'*                                                                   *
'*返回值  :                                                          *
'*********************************************************************
Private Sub LoadStatic()
    Command2(0).Picture = LoadResPicture(103, vbResBitmap)
    Command2(1).Picture = LoadResPicture(104, vbResBitmap)
    Command1(0).Picture = LoadResPicture(1108, vbResBitmap)
    Command1(1).Picture = LoadResPicture(1108, vbResBitmap)
    Command3(0).Picture = LoadResPicture(122, vbResBitmap)
    Command3(1).Picture = LoadResPicture(121, vbResBitmap)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   Select Case UnloadMode
      Case vbFormControlMenu
         zjLogInfo.TaskExec "FD0502", 0, zjLogInfo.cIYear
         zjLogInfo.ClearError
         zjGen_arr.FD0502 = False
      Case vbFormCode
      
      Case vbAppWindows
      
      Case vbAppTaskManager
      
      Case vbFormMDIForm
      
   End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Quitfs Then
        zjLogInfo.TaskExec "FD0502", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
        zjGen_arr.FD0502 = False
    End If
End Sub