i-

VB开发的ERP系统

                
                '输出余额
                Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
            End If
            
            '显示本年累计
            If Lng_YearCount <> 0 Then
                CxbbGrid.AddItem ""
                Jsqte = Jsqte + 1
                
                '输出本年累计
                Call Sub_OutYearSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_Sljflj, Dbl_Sldflj, Dbl_Wbjflj, Dbl_Wbdflj)
                
                '输出余额
                Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
            End If
            
        End If
        
    End With
    
    '重置网格行高
    For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
        CxbbGrid.RowHeight(Jsqte) = Sjhgd
    Next Jsqte
    
End Sub

Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
    Dim Int_Coljsq As Integer         '网格列临时计数器
    
    '为了加快显示速度
    CxbbGrid.Redraw = False
    
    For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
        CxbbGrid.ColHidden(Int_Coljsq) = True
    Next Int_Coljsq
    
    Select Case Combo_AccFormat
    Case "金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '借方.借方
        CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '贷方.贷方
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '余额.余额
        '重新调入打印页面设置窗体
        Unload Dyymctbl
        XtReportCode = "cwzz_mxzcx"
        Load Dyymctbl
    Case "外币金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '汇率
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.外币
        CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.外币
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.外币
        CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '余额.汇率
        CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
        '重新调入打印页面设置窗体
        Unload Dyymctbl
        XtReportCode = "cwzz_mxzcx1"
        Load Dyymctbl
    Case "数量金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '单价
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.数量
        CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.数量
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.单价
        CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
        '重新调入打印页面设置窗体
        Unload Dyymctbl
        XtReportCode = "cwzz_mxzcx2"
        Load Dyymctbl
    Case "数量外币式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '单价
        CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '汇率
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.数量
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.外币
        CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.数量
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.外币
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.单价
        CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.外币
        CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '余额.汇率
        CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
        '重新调入打印页面设置窗体
        Unload Dyymctbl
        XtReportCode = "cwzz_mxzcx3"
        Load Dyymctbl
    End Select
    CxbbGrid.Redraw = True
End Sub

Private Sub Sub_OutBalance(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#)         '输出余额
    If Dbl_Qcyete = 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "平"          '期初方向
        If Bln_EndFlag And Dbl_Qcslte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
        End If
        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
        End If
    Else
        If Dbl_Qcyete > 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "借"
            CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Dbl_Qcyete
            CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Dbl_Qcyete
            If Bln_EndFlag And Dbl_Qcslte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
            End If
        Else
            CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "贷"
            CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = -Dbl_Qcyete
            CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = -Dbl_Qcyete
            If Bln_EndFlag And Dbl_Qcslte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = -Dbl_Qcslte
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = -Dbl_Qcwbte
            End If
        End If
        
        '输出单价
        If Bln_EndFlag And Dbl_Qcslte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcslte, "##." + String(Xtdjxsws, "0"))
        End If
        '输出外币汇率
        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
            If Bln_ConVertFlag Then      '(外币/汇率=本位币)
                CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcwbte / Dbl_Qcyete, "##." + String(Int_Wbhlxsws, "0"))
            Else
                CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcwbte, "##." + String(Int_Wbhlxsws, "0"))
            End If
        End If
        
    End If
End Sub

Private Sub Sub_OutPeriodSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj#) '输出本月合计
    CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
    CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本月合计"
    If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
        CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
        CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
    End If
    If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
        CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
        CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
    End If
    
    '只有末级科目才显示数量和外币
    If Bln_EndFlag Then
        If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
        End If
        If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldfhj
        End If
    End If
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjfhj
        End If
        If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdfhj
        End If
    End If
End Sub

Private Sub Sub_OutYearSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj#) '输出本年累计
    CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
    CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本年累计"
    If Dbl_Jejflj <> 0 Then                                                        '本年借方金额累计
        CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejflj
        CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejflj
    End If
    If Dbl_Jedflj <> 0 Then                                                        '本年贷方金额累计
        CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedflj
        CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedflj
    End If
    
    '只有末级科目才显示数量和外币
    If Bln_EndFlag Then
        If Dbl_Sljflj <> 0 Then                                                     '本年借方数量累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljflj
        End If
        If Dbl_Sldflj <> 0 Then                                                     '本年贷方数量累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldflj
        End If
    End If
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Wbjflj <> 0 Then                                                     '本年借方外币累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjflj
        End If
        If Dbl_Wbdflj <> 0 Then                                                     '本年贷方外币累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdflj
        End If
    End If
End Sub

Private Sub Sub_OutQcGc(Jsqte As Long, Int_Zdzyhs%, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj#, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#) '输出承前/过次行
    If (Jsqte - CxbbGrid.FixedRows + 2) Mod Int_Zdzyhs = 0 Then
        CxbbGrid.AddItem ""
        Jsqte = Jsqte + 1
        CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(1).BackColor
        CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
        CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "过次页"
        If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
            CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
        End If
        If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
            CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
        End If
        
        '只有末级科目才显示数量和外币
        If Bln_EndFlag Then
            If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
                CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
            End If
            If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
                CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldfhj
            End If
        End If
        
        If Bln_EndFlag And Bln_ForeignFlag Then
            If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
                CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjfhj
            End If
            If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
                CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdfhj
            End If
        End If
        
        '输出余额
        Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
        
        CxbbGrid.AddItem ""
        Jsqte = Jsqte + 1
        CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(2).BackColor
        CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
        CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "承前页"
        If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
            CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
        End If
        If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
            CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
        End If
        
        '只有末级科目才显示数量和外币
        If Bln_EndFlag Then
            If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
                CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
            End If
            If Dbl_Sldfhj <> 0 Then