?? 憑證批處理選擇.frm
字號(hào):
Attribute VB_Name = "frmVouchsXz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'軟件著作權(quán): 北京用友軟件集團(tuán)有限公司
'系統(tǒng)名稱: 資金管理8.0
'功能說(shuō)明:憑證批處理選擇
'作者: 趙春立
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
'********************************************************************
'*函數(shù)說(shuō)明: 驗(yàn)證輸入條件并產(chǎn)生 SQL 語(yǔ)句 *
'*參 數(shù): *
'* *
'*返回值 : 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 "日期非法，請(qǐng)檢查！", 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 "日期非法，請(qǐng)檢查！", 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 "起始日期應(yīng)小于等于結(jié)束日期，請(qǐng)重新輸入！", 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 "日期非法，請(qǐng)檢查！", 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 "日期非法，請(qǐng)檢查！", 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
'********************************************************************
'*函數(shù)說(shuō)明: 加載資源 *
'*參 數(shù): *
'* *
'*返回值 : *
'*********************************************************************
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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -