'一.数据录入:
Select Case e.StripItem.Name
Case "保存" '保存代
If e.Form.Controls("rq").text = "" Then
messagebox.show("请选择日期")
Return
ElseIf Tables("收款凭证_Table1").Compute("Count([贷方科目])") = 0 Then
Return
End If
For Each dt As DataRow In Tables("收款凭证_Table1").DataTable.Select("[贷方科目] Is not null")
Dim Tel As String = dt("明细科目")
Dim Parts() As String = Tel.Split("-")
dt("日期") = e.Form.Controls("rq").text
dt("凭证号") = e.Form.Controls("dh").text
dt("安日期生成单号辅助列") = e.Form.Controls("dh1").text
dt("附件张数") = e.Form.Controls("TextBox1").text
dt("录入员") = e.Form.Controls("lry").text
dt("字号") = "收"
dt("借或贷") = "贷"
dt("操作人姓名") = User.Name & " " & Date.Now
If Parts.length > 0 Then
dt("二级科目") = Parts(0)
If Parts.length > 1 Then
dt("三级科目") = Parts(1)
If Parts.length > 2 Then
dt("四级科目") = Parts(2)
If Parts.length > 3 Then
dt("五级科目") = Parts(3)
dt.Save
End If
End If
End If
End If
Next
Dim r As DataRow = DataTables("收付转财务数据源").SQLFind("[字号] = '收' And Month([日期]) = " & Month(e.Form.Controls("rq")) & " And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '借'")
If r Is Nothing Then
r = DataTables("收付转财务数据源").addnew
r("日期") = e.Form.Controls("rq").text
r("凭证号") = e.Form.Controls("dh").text
r("借或贷") = "借"
r("安日期生成单号辅助列") = e.Form.Controls("dh1").text
r("附件张数") = e.Form.Controls("TextBox1").text
r("录入员") = e.Form.Controls("lry").text
r("字号") = "收"
r("操作人姓名") = User.Name & " " & Date.Now
Dim Tel0 As String = e.Form.Controls("ComboBox3").text
Dim Parts0() As String = Tel0.Split("-")
If Parts0.length > 0 Then
r("借方科目") = Parts0(0)
If Parts0.length > 1 Then
r("二级科目") = Parts0(1)
End If
End If
r("借方金额") = DataTables("收付转财务数据源").Compute("Sum(贷方金额)","[字号] = '收' And [日期] = #" & e.Form.Controls("rq") & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '贷'")
ElseIf r IsNot Nothing Then
r("日期") = e.Form.Controls("rq").text
r("凭证号") = e.Form.Controls("dh").text
r("附件张数") = e.Form.Controls("TextBox1").text
r("录入员") = e.Form.Controls("lry").text
r("操作人姓名") = User.Name & " " & Date.Now
Dim Tel0 As String = e.Form.Controls("ComboBox3").text
Dim Parts0() As String = Tel0.Split("-")
If Parts0.length > 0 Then
r("借方科目") = Parts0(0)
If Parts0.length > 1 Then
r("二级科目") = Parts0(1)
End If
End If
r("借方金额") = DataTables("收付转财务数据源").Compute("Sum(贷方金额)","[字号] = '收' And [日期] = #" & e.Form.Controls("rq") & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "'And [借或贷] = '贷'")
End If
DataTables("收付转财务数据源").Save()
End Select