+

VB开发的ERP系统

            
            '以上为自定义部分]
            
        End Select
        
        '字段录入正确后为零字段清空
        Call Qkwlzd(Dqpdwgh, Dqpdwgl)
        
        sjzdyxxpd = True
        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(ByVal 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 Yxxpdh > (.Rows - .FixedRows) Then Exit Function
        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 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