📄
字号:
End Select
End With
Select Case iFindtype
Case 0
zjLogInfo.TaskExec "FD020502", 0, zjLogInfo.cIYear
'zjGen_arr.FD020502 = False
Case 1
zjLogInfo.TaskExec "FD020802", 0, zjLogInfo.cIYear
'zjGen_arr.FD020802 = False
Case 2
zjLogInfo.TaskExec "FD020602", 0, zjLogInfo.cIYear
'zjGen_arr.FD020602 = False
Case 3
zjLogInfo.TaskExec "FD020902", 0, zjLogInfo.cIYear
'zjGen_arr.FD020902 = False
Case 4
zjLogInfo.TaskExec "FD020702", 0, zjLogInfo.cIYear
'zjGen_arr.FD020702 = False
Case 5
zjLogInfo.TaskExec "FD021002", 0, zjLogInfo.cIYear
'zjGen_arr.FD021002 = False
Case 6
zjLogInfo.TaskExec "FD021102", 0, zjLogInfo.cIYear
'zjGen_arr.FD021102 = False
Case 7
zjLogInfo.TaskExec "FD021202", 0, zjLogInfo.cIYear
'zjGen_arr.FD021202 = False
Case 8
zjLogInfo.TaskExec "FD021302", 0, zjLogInfo.cIYear
'zjGen_arr.FD021302 = False
Case 9
zjLogInfo.TaskExec "FD021602", 0, zjLogInfo.cIYear
'zjGen_arr.FD021602 = False
End Select
zjLogInfo.ClearError
End Sub
Private Sub Form_Resize()
On Error Resume Next
If Me.WindowState <> 1 Then
If Me.Width < frmMinWidth Then Me.Width = frmMinWidth
If Me.Height < frmMinWidth Then Me.Height = frmMinWidth
Label1.Left = Me.Width / 2 - Label1.Width / 2 + (Picture1.Width - Me.Width)
Picture1.Left = Me.Width - Picture1.Width
UfGridADO1.Width = Me.Width - 100
UfGridADO1.Height = Me.Height - Toolbar1.Height - Picture1.Height - 400 - IIf(StatusBar1.Visible, StatusBar1.Height, 0)
UfGridADO1.Top = Toolbar1.Height + Picture1.Height
UfGridADO1.Left = 0
ProBar1.Left = 4860
ProBar1.Top = Me.Height - 640
End If
On Error GoTo 0
End Sub
'********************************************************************
'*函数说明: 准备数据 *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub PrepareData()
Dim i As Long
Dim rsClass As New UfRecordset, rsRet As New UfRecordset
Dim strClass As String, strRet As String
Dim dCreDate As Date, dRetDate As Date, cInstr As String
Dim iThisRW As Long
Me.UfGridADO1.Redraw = True
ProBar1.Max = nMaxRows
ProBar1.Value = 0
rsFind.MoveFirst
iRW = Rnd * (2 ^ 20)
iThisRW = iRW
CX_Sum_Init 'cuidong S.A 2001.09.11
Select Case iFindtype
Case 0, 1
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='" & IIf((iFindtype = 0), "05", "06") & "'")
strClass = rsClass![ctext]
i = 1
With rsFind
While Not .EOF And i <= nMaxRows
strRet = "SELECT SUM([mmoney]) AS Med FROM FD_Return WHERE [cCreID]='" & ![cCreID] & "'"
Set rsRet = dbsZJ.OpenRecordset(strRet, dbOpenSnapshot)
StatusBarChanged rsClass![ctext], Right(rsFind![cCreID], 8)
If Not iThisRW = iRW Then Exit Sub '重新查询，则退出本任务 'Cuidong 2000.12.24
UfGridADO1.AddItem _
Year(![dbill_date]) & Chr(9) & _
Month(![dbill_date]) & Chr(9) & _
Day(![dbill_date]) & Chr(9) & _
AccIDToUnitName(![cAccID]) & Chr(9) & _
![cAccID] & Chr(9) & strClass & "-" & Right(![cCreID], 8) & _
Chr(9) & ![cDigest] & Chr(9) & FormatCur(![mMoney]) & Chr(9) & _
AccToExch(![cAccID]) & Chr(9) & Vround(![nFrat], 6) & Chr(9) & FormatCur(![mMoney_F]) & _
Chr(9) & FormatDate(![Dret_date]) & Chr(9) & ![cIntrID] & Chr(9) & ![cCadID] & _
Chr(9) & Getjxfs(![iartyp]) & Chr(9) & FormatCur(rsRet![Med]) & _
Chr(9) & ![mmoneying] & Chr(9) & ![center_name] & Chr(9) & ![ctran_name] & _
Chr(9) & ![cBillCode] & Chr(9) & ![cCheckCode] & Chr(9) & ![cBookCode]
CX_Sum_Add FormatCur(![mMoney]), AccToExch(![cAccID]), Vround(![nFrat], 6), FormatCur(![mMoney_F]), FormatCur(IIf(IsNull(rsRet![Med]), 0, rsRet![Med])), IIf(IsNull(![mmoneying]), 0, ![mmoneying]) 'cuidong S.A 2001.09.11
.MoveNext
i = i + 1
Wend
End With
'cuidong S.A 2001.09.11
'-----------------------------------------
For i = 1 To UBound(CX_Sum)
UfGridADO1.AddItem _
CX_SumTEXT & Chr(9) & _
CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney) & Chr(9) & _
CX_Sum(i).sExchName & Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney_1) & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney_2) & _
Chr(9) & FormatCur(CX_Sum(i).mMoney_3) & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR
' CX_Sum(i).sExchName & Chr(9) & CX_Sum(i).nFrat & Chr(9) & FormatCur(CX_Sum(i).mMoney_F) & _ 'cuidong S.B 2001.09.13
Next i
'-----------------------------------------
Case 2, 3
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='" & IIf((iFindtype = 2), "08", "09") & "'")
strClass = rsClass![ctext]
i = 1
With rsFind
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='" & Left(![cCreID], 2) & "'")
While Not .EOF And i <= nMaxRows
strRet = "SELECT SUM([mmoney]) AS Med FROM FD_Return WHERE [cCreID]='" & ![cCreID] & "'"
Set rsRet = dbsZJ.OpenRecordset(strRet, dbOpenSnapshot)
GetCreInfo ![cCreID], dCreDate, dRetDate, cInstr
StatusBarChanged rsClass![ctext], Right(rsFind![cRetID], 8)
If Not iThisRW = iRW Then Exit Sub '重新查询，则退出本任务 'Cuidong 2000.12.24
UfGridADO1.AddItem _
Year(![dbill_date]) & Chr(9) & Month(![dbill_date]) & Chr(9) & _
Day(![dbill_date]) & Chr(9) & AccIDToUnitName(![cAccID]) & Chr(9) & _
![cAccID] & Chr(9) & strClass & "-" & Right(![cRetID], 8) & _
Chr(9) & ![cDigest] & Chr(9) & FormatCur(![mMoney]) & Chr(9) & _
AccToExch(![cAccID]) & Chr(9) & Vround(![nFrat], 6) & Chr(9) & FormatCur(![mMoney_F]) & _
Chr(9) & FormatCur(rsRet![Med]) & Chr(9) & Jsfscton(![isettle], True) & Chr(9) & rsClass![ctext] & _
"-" & Right(![cCreID], 8) & Chr(9) & FormatDate(dCreDate) & Chr(9) & FormatDate(dRetDate) & _
Chr(9) & cInstr & Chr(9) & ![ctran_name] & Chr(9) & ![cBillCode] & _
Chr(9) & ![cCheckCode] & Chr(9) & ![cBookCode]
CX_Sum_Add FormatCur(![mMoney]), AccToExch(![cAccID]), Vround(![nFrat], 6), FormatCur(![mMoney_F]), FormatCur(IIf(IsNull(rsRet![Med]), 0, rsRet![Med])) 'cuidong S.A 2001.09.11
.MoveNext
i = i + 1
Wend
End With
'cuidong S.A 2001.09.11
'-----------------------------------------
For i = 1 To UBound(CX_Sum)
UfGridADO1.AddItem _
CX_SumTEXT & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney) & Chr(9) & _
CX_Sum(i).sExchName & Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney_1) & _
Chr(9) & FormatCur(CX_Sum(i).mMoney_2) & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR
' CX_Sum(i).sExchName & Chr(9) & CX_Sum(i).nFrat & Chr(9) & FormatCur(CX_Sum(i).mMoney_F) & _ 'cuidong S.B 2001.09.13
Next i
'-----------------------------------------
Case 4, 5
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='" & IIf((iFindtype = 4), "10", "11") & "'")
strClass = rsClass![ctext]
i = 1
With rsFind
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='" & Left(![cCreID], 2) & "'")
While Not .EOF And i <= nMaxRows
strRet = "SELECT SUM([mmoney]) AS Med FROM FD_CreAcrRcp WHERE [cCreID]='" & ![cCreID] & "'"
Set rsRet = dbsZJ.OpenRecordset(strRet, dbOpenSnapshot)
GetCreInfo ![cCreID], dCreDate, dRetDate, cInstr
StatusBarChanged rsClass![ctext], Right(rsFind![cCraID], 8)
If Not iThisRW = iRW Then Exit Sub '重新查询，则退出本任务 'Cuidong 2000.12.24
UfGridADO1.AddItem _
Year(![dbill_date]) & Chr(9) & Month(![dbill_date]) & Chr(9) & _
Day(![dbill_date]) & Chr(9) & AccIDToUnitName(![cAccID]) & Chr(9) & _
![cAccID] & Chr(9) & strClass & "-" & Right(![cCraID], 8) & _
Chr(9) & ![cDigest] & Chr(9) & FormatCur(![mMoney]) & Chr(9) & _
AccToExch(![cAccID]) & Chr(9) & Vround(![nFrat], 6) & Chr(9) & FormatCur(![mMoney_F]) & _
Chr(9) & FormatCur(rsRet![Med]) & Chr(9) & Jsfscton(![isettle], True) & Chr(9) & rsClass![ctext] & _
"-" & Right(![cCreID], 8) & Chr(9) & FormatDate(dCreDate) & Chr(9) & FormatDate(dRetDate) & _
Chr(9) & cInstr & Chr(9) & ![ctran_name] & Chr(9) & ![cBillCode] & _
Chr(9) & ![cCheckCode] & Chr(9) & ![cBookCode]
CX_Sum_Add FormatCur(![mMoney]), AccToExch(![cAccID]), Vround(![nFrat], 6), FormatCur(![mMoney_F]), FormatCur(IIf(IsNull(rsRet![Med]), 0, rsRet![Med])) 'cuidong S.A 2001.09.11
.MoveNext
i = i + 1
Wend
End With
'cuidong S.A 2001.09.11
'-----------------------------------------
For i = 1 To UBound(CX_Sum)
UfGridADO1.AddItem _
CX_SumTEXT & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & CX_SumCHAR & FormatCur(CX_Sum(i).mMoney) & Chr(9) & _
CX_Sum(i).sExchName & Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney_1) & _
Chr(9) & FormatCur(CX_Sum(i).mMoney_2) & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR
' CX_Sum(i).sExchName & Chr(9) & CX_Sum(i).nFrat & Chr(9) & FormatCur(CX_Sum(i).mMoney_F) & _ 'cuidong S.B 2001.09.13
Next i
'-----------------------------------------
Case 6
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='07'")
strClass = rsClass![ctext]
i = 1
With rsFind
While Not .EOF And i <= nMaxRows
StatusBarChanged rsClass![ctext], Right(rsFind![cUnwID], 8)
If Not iThisRW = iRW Then Exit Sub '重新查询，则退出本任务 'Cuidong 2000.12.24
UfGridADO1.AddItem _
Year(![dbill_date]) & Chr(9) & Month(![dbill_date]) & Chr(9) & _
Day(![dbill_date]) & Chr(9) & AccIDToUnitName(![cGAccID]) & Chr(9) & _
![cGAccID] & Chr(9) & AccIDToUnitName(![cPAccID]) & Chr(9) & _
![cPAccID] & Chr(9) & strClass & "-" & Right(![cUnwID], 8) & _
Chr(9) & ![cDigest] & Chr(9) & FormatCur(![mMoney]) & Chr(9) & _
AccToExch(![cGAccID]) & Chr(9) & Vround(![nFrat], 6) & Chr(9) & FormatCur(![mMoney_F]) & _
Chr(9) & ![cIntrID] & Chr(9) & FormatDate(![Dret_date]) & Chr(9) & ![crun_name] & _
Chr(9) & ![cpay_name] & Chr(9) & ![cset_name] & _
Chr(9) & ![cBillCode] & Chr(9) & ![cCheckCode] & Chr(9) & ![cBookCode]
CX_Sum_Add FormatCur(![mMoney]), AccToExch(![cGAccID]), Vround(![nFrat], 6), FormatCur(![mMoney_F]) 'cuidong S.A 2001.09.11
.MoveNext
i = i + 1
Wend
End With
'cuidong S.A 2001.09.11
'-----------------------------------------
For i = 1 To UBound(CX_Sum)
UfGridADO1.AddItem _
CX_SumTEXT & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney) & Chr(9) & _
CX_Sum(i).sExchName & Chr(9) & CX_SumCHAR & Chr(9) & FormatCur(CX_Sum(i).mMoney_1) & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & _
Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & CX_SumCHAR
' CX_Sum(i).sExchName & Chr(9) & CX_Sum(i).nFrat & Chr(9) & FormatCur(CX_Sum(i).mMoney_F) & _ 'cuidong S.B 2001.09.13
Next i
'-----------------------------------------
Case 7, 8
Dim dCreDate_u As Date
Dim dRetDate_u As Date
Dim cInstr_u As String
Dim cUnwYw As String
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='" & IIf((iFindtype = 7), "12", "13") & "'")
strClass = rsClass![ctext]
i = 1
With rsFind
Set rsClass = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE cSign='" & Left(![cUnwID], 2) & "'")
While Not .EOF And i <= nMaxRows
strRet = "SELECT SUM([mmoney]) AS Med FROM " & IIf((iFindtype = 7), "FD_UnwRet", "FD_UnwAcrRcp") & " WHERE [cUnwID]='" & ![cUnwID] & "'"
Set rsRet = dbsZJ.OpenRecordset(strRet, dbOpenSnapshot)
GetUnwInfo ![cUnwID], dCreDate_u, dRetDate_u, cInstr_u
If iFindtype = 7 Then
cUnwYw = Right(![cRetID], 8)
Else
cUnwYw = Right(![cUnaID], 8)
End If
StatusBarChanged rsClass![ctext], cUnwYw
If Not iThisRW = iRW Then Exit Sub '重新查询，则退出本任务 'Cuidong 2000.12.24
UfGridADO1.AddItem _
Year(![dbill_date]) & Chr(9) & Month(![dbill_date]) & Chr(9) & _
Day(![dbill_date]) & Chr(9) & AccIDToUnitName(![cGAccID]) & Chr(9) & _
![cGAccID] & Chr(9) & AccIDToUnitName(![cPAccID]) & Chr(9) & ![cPAccID] & _
Chr(9) & strClass & "-" & cUnwYw & _
Chr(9) & ![cDigest] & Chr(9) & FormatCur(![mMoney]) & Chr(9) & _
AccToExch(![cGAccID]) & Chr(9) & Vround(![nFrat], 6) & Chr(9) & FormatCur(![mMoney_F]) & _
Chr(9) & FormatCur(rsRet![Med]) & Chr(9) & rsClass![ctext] & _
"-" & Right(![cUnwID], 8) & Chr(9) & FormatDate(dCreDate_u) & Chr(9) & FormatDate(dRetDate_u) & _
Chr(9) & cInstr_u & Chr(9) & ![crun_name] & Chr(9) & ![cpay_name] & Chr(9) & _
![cset_name] & Chr(9) & ![cBillCode] & Chr(9) & ![cCheckCode] & Chr(9) & ![cBookCode]
CX_Sum_Add FormatCur(![mMoney]), AccToExch(![cGAccID]), Vround(![nFrat], 6), FormatCur(![mMoney_F]), FormatCur(IIf(IsNull(rsRet![Med]), 0, rsRet![Med])) 'cuidong S.A 2001.09.11
.MoveNext
i = i + 1
Wend
End With
'cuidong S.A 2001.09.11
'-----------------------------------------
For i = 1 To UBound(CX_Sum)
UfGridADO1.AddItem _
CX_SumTEXT & Chr(9) & CX_SumCHAR & Chr(9) & _
CX_SumCHAR & Chr(9) & CX_SumCHAR & Chr(9) & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -