📄 +
字号:
Yxxpdlock = True
Exit Function
End With
Lrcwcl: '录入错误处理
With WglrGrid
Call Xtxxts(Tsxx, 0, 1)
changelock = True
.Select Dqpdwgh, Dqpdwgl
changelock = False
Call xswbk
sjzdyxxpd = False
Exit Function
End With
End Function
Private Function Sjhzyxxpd(Yxxpdh As Long) As Boolean '录入数据行有效性判断,同时进行行处理
Dim Lrywlz As Long
Dim RecTemp As New ADODB.Recordset '临时使用动态集
Dim SqlStr As String '临时连接字符串
Dim Rec_AccSumAssi As New ADODB.Recordset '辅助总帐动态集
Dim Dbl_Now(1 To 16) As Double '科目记录现数据
Dim Str_OriItemCode As String '辅助核算项目编码(原)
Dim Str_NowItemCode As String '辅助核算项目编码(现)
With WglrGrid
'判断行为空和无效数据行则清除当前行
If .TextMatrix(Yxxpdh, 0) <> "*" Then
Sjhzyxxpd = True
Exit Function
Else
If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then
changelock = True
.RemoveItem Yxxpdh
If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
.AddItem ""
.RowHeight(.Rows - 1) = Sjhgd
End If
changelock = False
Sjhzyxxpd = True
Exit Function
End If
End If
End If
'行没有发生变化则不进行有效性判断
If Hyxxpdlock Then
Sjhzyxxpd = True
Exit Function
End If
'以下为自定义部分[
'1.放置行有效性判断程序
'首先进行为空判断(固定不变)
For Jsqte = Qslz To .Cols - 1
If (GridInt(Jsqte, 5) = 1 And Len(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0) Or (GridInt(Jsqte, 5) = 2 And Val(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0) Then
Tsxx = GridStr(Jsqte, 2)
Lrywlz = Jsqte
GoTo Lrcwcl
Exit For
End If
Next Jsqte
'科目所要进行核算项不能为空
If (Not .ColHidden(Sydz("001", GridStr(), Szzls))) And Trim(.TextMatrix(Yxxpdh, Sydz("001", GridStr(), Szzls))) = "" Then
Tsxx = "核算项目不能为空!"
Lrywlz = Sydz("001", GridStr(), Szzls)
GoTo Lrcwcl
End If
If (Not .ColHidden(Sydz("003", GridStr(), Szzls))) And Trim(.TextMatrix(Yxxpdh, Sydz("003", GridStr(), Szzls))) = "" Then
Tsxx = "部门不能为空!"
Lrywlz = Sydz("003", GridStr(), Szzls)
GoTo Lrcwcl
End If
If (Not .ColHidden(Sydz("004", GridStr(), Szzls))) And Trim(.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls))) = "" Then
Tsxx = "往来个人不能为空!"
Lrywlz = Sydz("004", GridStr(), Szzls)
GoTo Lrcwcl
End If
If (Not .ColHidden(Sydz("005", GridStr(), Szzls))) And Trim(.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls))) = "" Then
Tsxx = "往来客户不能为空!"
Lrywlz = Sydz("005", GridStr(), Szzls)
GoTo Lrcwcl
End If
If (Not .ColHidden(Sydz("006", GridStr(), Szzls))) And Trim(.TextMatrix(Yxxpdh, Sydz("006", GridStr(), Szzls))) = "" Then
Tsxx = "往来供应商不能为空!"
Lrywlz = Sydz("006", GridStr(), Szzls)
GoTo Lrcwcl
End If
' If Val(Trim(.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls)))) = 0 And Val(Trim(.TextMatrix(Yxxpdh, Sydz("009", GridStr(), Szzls)))) = 0 And Val(Trim(.TextMatrix(Yxxpdh, Sydz("010", GridStr(), Szzls)))) = 0 Then
' Tsxx = "年初余额、累计借方和累计贷方不能同时为零!"
' Lrywlz = Sydz("008", GridStr(), Szzls)
' GoTo Lrcwcl
' End If
'如果项目核算单位为空则清空项目核算数量
If Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls))) = "" Then
WglrGrid.TextMatrix(Yxxpdh, Sydz("020", GridStr(), Szzls)) = ""
WglrGrid.TextMatrix(Yxxpdh, Sydz("021", GridStr(), Szzls)) = ""
WglrGrid.TextMatrix(Yxxpdh, Sydz("022", GridStr(), Szzls)) = ""
WglrGrid.TextMatrix(Yxxpdh, Sydz("023", GridStr(), Szzls)) = ""
End If
'判断记录是否重复
SqlStr = "SELECT Cwzz_AccSumAssi.I_id From Cwzz_AccSumAssi WHERE Ccode='" & Str_Ccode & "'And ItemClassCode='" & Str_ItemClassCode & _
"'And ItemCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 2)) & "'And DeptCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 3)) & "'And PersonCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 4)) & _
"'And CusCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 5)) & "'And Supplier_Code='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 6)) & _
"' And Year=" & Int_OriYear & " And Period =1"
Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
If Not RecTemp.EOF Then
If RecTemp.Fields("I_ID") <> Val(WglrGrid.TextMatrix(Yxxpdh, 1)) Then
Tsxx = "录入记录重复!"
For Jsqte = Qslz To WglrGrid.Cols - 1
If Not WglrGrid.ColHidden(Jsqte) Then
Lrywlz = Jsqte
End If
Next Jsqte
GoTo Lrcwcl
End If
End If
'2.进行行数据回写
If WglrGrid.TextMatrix(Yxxpdh, Sydz("007", GridStr(), Szzls)) = "借" Then
Dbl_Now(1) = Val(.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls))) '年初余额
Dbl_Now(2) = Val(.TextMatrix(Yxxpdh, Sydz("009", GridStr(), Szzls))) '本年借方累计金额
Dbl_Now(3) = Val(.TextMatrix(Yxxpdh, Sydz("010", GridStr(), Szzls))) '本年贷方累计金额
Dbl_Now(4) = Val(.TextMatrix(Yxxpdh, Sydz("011", GridStr(), Szzls))) '期末余额
Dbl_Now(5) = Val(.TextMatrix(Yxxpdh, Sydz("012", GridStr(), Szzls))) '年初数量
Dbl_Now(6) = Val(.TextMatrix(Yxxpdh, Sydz("013", GridStr(), Szzls))) '本年借方累计数量
Dbl_Now(7) = Val(.TextMatrix(Yxxpdh, Sydz("014", GridStr(), Szzls))) '本年贷方累计金额
Dbl_Now(8) = Val(.TextMatrix(Yxxpdh, Sydz("015", GridStr(), Szzls))) '期末数量
Dbl_Now(9) = Val(.TextMatrix(Yxxpdh, Sydz("016", GridStr(), Szzls))) '年初外币
Dbl_Now(10) = Val(.TextMatrix(Yxxpdh, Sydz("017", GridStr(), Szzls))) '本年借方累计外币
Dbl_Now(11) = Val(.TextMatrix(Yxxpdh, Sydz("018", GridStr(), Szzls))) '本年贷方累计外币
Dbl_Now(12) = Val(.TextMatrix(Yxxpdh, Sydz("019", GridStr(), Szzls))) '期末余额
Dbl_Now(13) = Val(.TextMatrix(Yxxpdh, Sydz("020", GridStr(), Szzls))) '年初项目数量
Dbl_Now(14) = Val(.TextMatrix(Yxxpdh, Sydz("021", GridStr(), Szzls))) '本年借方累计项目数量
Dbl_Now(15) = Val(.TextMatrix(Yxxpdh, Sydz("022", GridStr(), Szzls))) '本年贷方累计项目数量
Dbl_Now(16) = Val(.TextMatrix(Yxxpdh, Sydz("023", GridStr(), Szzls))) '期末项目数量
Else
Dbl_Now(1) = -Val(.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls))) '年初余额
Dbl_Now(2) = Val(.TextMatrix(Yxxpdh, Sydz("009", GridStr(), Szzls))) '本年借方累计金额
Dbl_Now(3) = Val(.TextMatrix(Yxxpdh, Sydz("010", GridStr(), Szzls))) '本年贷方累计金额
Dbl_Now(4) = -Val(.TextMatrix(Yxxpdh, Sydz("011", GridStr(), Szzls))) '期末余额
Dbl_Now(5) = -Val(.TextMatrix(Yxxpdh, Sydz("012", GridStr(), Szzls))) '年初数量
Dbl_Now(6) = Val(.TextMatrix(Yxxpdh, Sydz("013", GridStr(), Szzls))) '本年借方累计数量
Dbl_Now(7) = Val(.TextMatrix(Yxxpdh, Sydz("014", GridStr(), Szzls))) '本年贷方累计金额
Dbl_Now(8) = -Val(.TextMatrix(Yxxpdh, Sydz("015", GridStr(), Szzls))) '期末数量
Dbl_Now(9) = -Val(.TextMatrix(Yxxpdh, Sydz("016", GridStr(), Szzls))) '年初外币
Dbl_Now(10) = Val(.TextMatrix(Yxxpdh, Sydz("017", GridStr(), Szzls))) '本年借方累计外币
Dbl_Now(11) = Val(.TextMatrix(Yxxpdh, Sydz("018", GridStr(), Szzls))) '本年贷方累计外币
Dbl_Now(12) = -Val(.TextMatrix(Yxxpdh, Sydz("019", GridStr(), Szzls))) '期末余额
Dbl_Now(13) = -Val(.TextMatrix(Yxxpdh, Sydz("020", GridStr(), Szzls))) '年初项目数量
Dbl_Now(14) = Val(.TextMatrix(Yxxpdh, Sydz("021", GridStr(), Szzls))) '本年借方累计项目数量
Dbl_Now(15) = Val(.TextMatrix(Yxxpdh, Sydz("022", GridStr(), Szzls))) '本年贷方累计项目数量
Dbl_Now(16) = -Val(.TextMatrix(Yxxpdh, Sydz("023", GridStr(), Szzls))) '期末项目数量
End If
End With
On Error GoTo Swcwcl
Cw_DataEnvi.DataConnect.BeginTrans
With Rec_AccSumAssi
If Val(Trim(WglrGrid.TextMatrix(Yxxpdh, 1))) <> 0 Then
If .State = 1 Then .Close
.Open "SELECT Cwzz_AccSumAssi.* From Cwzz_AccSumAssi WHERE I_id = " & Val(WglrGrid.TextMatrix(Yxxpdh, 1)), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
If Not .EOF Then
.Fields("Ccode") = Str_Ccode '核算科目
.Fields("ItemClassCode") = Str_ItemClassCode '项目类别
.Fields("ItemCode") = Trim(WglrGrid.TextMatrix(Yxxpdh, 2)) '现辅助核算项目编码
.Fields("DeptCode") = Trim(WglrGrid.TextMatrix(Yxxpdh, 3)) '现辅助核算部门编码
.Fields("PersonCode") = Trim(WglrGrid.TextMatrix(Yxxpdh, 4)) '现辅助核算个人编码
.Fields("CusCode") = Trim(WglrGrid.TextMatrix(Yxxpdh, 5)) '现辅助核算客户编码
.Fields("Supplier_Code") = Trim(WglrGrid.TextMatrix(Yxxpdh, 6)) '现辅助核算供应商编码
.Fields("Year") = Int_OriYear '会计年度
.Fields("Period") = 1 '会计期间
.Fields("Ycye") = Dbl_Now(1) '年初余额
.Fields("Qcye") = Dbl_Now(1) '期初余额
.Fields("Mjje") = Dbl_Now(2) '本月借方金额合计
.Fields("Mdje") = Dbl_Now(3) '本月贷方金额合计
.Fields("Byjfljje") = Dbl_Now(2) '本年借方金额合计
.Fields("Bydfljje") = Dbl_Now(3) '本年贷方金额合计
.Fields("Qmye") = Dbl_Now(4) '期末余额
.Fields("Ycsl") = Dbl_Now(5) '年初数量
.Fields("Qcsl") = Dbl_Now(5) '期初数量
.Fields("Mjsl") = Dbl_Now(6) '本月借方数量合计
.Fields("Mdsl") = Dbl_Now(7) '本月贷方数量合计
.Fields("Byjfljsl") = Dbl_Now(6) '本年借方数量合计
.Fields("Bydfljsl") = Dbl_Now(7) '本年贷方数量合计
.Fields("Qmsl") = Dbl_Now(8) '期末数量
.Fields("YcItemsl") = Dbl_Now(13) '年初项目数量
.Fields("QcItemsl") = Dbl_Now(13) '期初数量
.Fields("ItemMjsl") = Dbl_Now(14) '本月借方数量合计
.Fields("ItemMdsl") = Dbl_Now(15) '本月贷方数量合计
.Fields("ItemByljjfsl") = Dbl_Now(14) '本年借方数量合计
.Fields("ItemByljdfsl") = Dbl_Now(15) '本年贷方数量合计
.Fields("QmItemsl") = Dbl_Now(16) '期末项目数量
'如为外币核算则用外币录入金额替换,否则填入本位币金额
If Bln_Foreign Then
.Fields("Ycwb") = Dbl_Now(9) '年初原币
.Fields("Qcwb") = Dbl_Now(9) '期初原币
.Fields("Mjwb") = Dbl_Now(10) '本月借方原币合计
.Fields("Mdwb") = Dbl_Now(11) '本月贷方原币合计
.Fields("Byjfljwb") = Dbl_Now(10) '本年借方原币合计
.Fields("Bydfljwb") = Dbl_Now(11) '本年贷方原币合计
.Fields("Qmwb") = Dbl_Now(12) '期末原币
Else
.Fields("Ycwb") = Dbl_Now(1) '年初原币
.Fields("Qcwb") = Dbl_Now(1) '期初原币
.Fields("Mjwb") = Dbl_Now(2) '本月借方原币合计
.Fields("Mdwb") = Dbl_Now(3) '本月贷方原币合计
.Fields("Byjfljwb") = Dbl_Now(2) '本年借方原币合计
.Fields("Bydfljwb") = Dbl_Now(3) '本年贷方原币合计
.Fields("Qmwb") = Dbl_Now(4) '期末原币
End If
.Update
'更新其他各会计期间数据
SqlStr = "Update Cwzz_AccSumAssi Set Ycye=" & .Fields("Ycye") & ",Qcye=" & .Fields("Qmye") & ",Byjfljje=" & .Fields("Byjfljje") & ",Bydfljje=" & .Fields("Bydfljje") & ",Qmye=" & .Fields("Qmye") & _
",Ycsl=" & .Fields("Ycsl") + 0 & ",Qcsl=" & .Fields("Qmsl") + 0 & ",Byjfljsl=" & .Fields("Byjfljsl") + 0 & ",Bydfljsl=" & .Fields("Bydfljsl") + 0 & ",Qmsl=" & .Fields("Qmsl") + 0 & _
",Ycwb=" & .Fields("Ycwb") + 0 & ",Qcwb=" & .Fields("Qmwb") + 0 & ",Byjfljwb=" & .Fields("Byjfljwb") + 0 & ",Bydfljwb=" & .Fields("Bydfljwb") + 0 & ",Qmwb=" & .Fields("Qmwb") + 0 & _
",YcItemSl=" & .Fields("YcItemSl") + 0 & ",QcItemSl=" & .Fields("QcItemSl") + 0 & ",ItemByljjfsl=" & .Fields("ItemByljjfsl") + 0 & ",ItemByljdfsl=" & .Fields("ItemByljdfsl") + 0 & ",QmItemSl=" & .Fields("QmItemSl") + 0 & _
" Where Ccode='" & Str_Ccode & "'And ItemClassCode='" & Str_ItemClassCode & "'And ItemCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 2)) & "'And DeptCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 3)) & "'And PersonCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 4)) & "'And CusCode='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 5)) & "'And Supplier_Code='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 6)) & _
"'And DeptCode='" & .Fields("DeptCode") & "' And Year=" & Int_OriYear & " And Period >1"
Cw_DataEnvi.DataConnect.Execute (SqlStr)
End If
Else
If .State = 1 Then .Close
.Open "SELECT Cwzz_AccSumAssi.* From Cwzz_AccSumAssi Where 1=2", Cw_⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -