frmac_indexresult.frm

一个用VB写的财务软件源码

                    dBegin_Credit_Money = 0
                ElseIf Left$(FormatToString(.Fields("yefx").value), 1) = "借" Then
                    dBegin_Debit_Money = dBegin_Debit_Money - dBegin_Credit_Money
                    dBegin_Credit_Money = 0
                    dBegin_Debit_Amount = dBegin_Debit_Amount - dBegin_Credit_Amount
                    dBegin_Credit_Amount = 0
                    dBegin_Debit_Foreign = dBegin_Debit_Foreign - dBegin_Credit_Foreign
                    dBegin_Credit_Foreign = 0
                Else
                    dBegin_Credit_Money = dBegin_Credit_Money - dBegin_Debit_Money
                    dBegin_Debit_Money = 0
                    dBegin_Credit_Amount = dBegin_Credit_Amount - dBegin_Debit_Amount
                    dBegin_Debit_Amount = 0
                    dBegin_Credit_Foreign = dBegin_Credit_Foreign - dBegin_Debit_Foreign
                    dBegin_Debit_Foreign = 0
                End If
                '总合计
                If GetKmJc(Trim(.Fields("kmdm").value)) = m_iSubjectLevelFrom - 1 Or bFristKmjc = False Then
                    dBegin_Debit_Amount_Total = dBegin_Debit_Amount + dBegin_Debit_Amount_Total
                    dBegin_Debit_Foreign_Total = dBegin_Debit_Foreign + dBegin_Debit_Foreign_Total
                    dBegin_Debit_Money_Total = dBegin_Debit_Money + dBegin_Debit_Money_Total
                    
                    dBegin_Credit_Amount_Total = dBegin_Credit_Amount + dBegin_Credit_Amount_Total
                    dBegin_Credit_Foreign_Total = dBegin_Credit_Foreign + dBegin_Credit_Foreign_Total
                    dBegin_Credit_Money_Total = dBegin_Credit_Money + dBegin_Credit_Money_Total
                    bFristKmjc = (GetKmJc(Trim(.Fields("kmdm").value)) = m_iSubjectLevelFrom - 1)
                End If
                
                '本期发生
                For j = 1 To mColMonth
                    k = j + BeginMonth
                    If bTemp Then
                        dHappen_Debit_Amount(j) = FormatToDouble(.Fields("Happen_Debit_Amount" + CStr(k)).value) + NotRecord_Debit_Amount(j)
                        dHappen_Debit_Foreign(j) = FormatToDouble(.Fields("Happen_Debit_Foreign" + CStr(k)).value) + NotRecord_Debit_Foreign(j)
                        dHappen_Debit_Money(j) = FormatToDouble(.Fields("Happen_Debit_Money" + CStr(k)).value) + NotRecord_Debit_Money(j)
                        dHappen_Credit_Amount(j) = FormatToDouble(.Fields("Happen_Credit_Amount" + CStr(k)).value) + NotRecord_Credit_Amount(j)
                        dHappen_Credit_Foreign(j) = FormatToDouble(.Fields("Happen_Credit_Foreign" + CStr(k)).value) + NotRecord_Credit_Foreign(j)
                        dHappen_Credit_Money(j) = FormatToDouble(.Fields("Happen_Credit_Money" + CStr(k)).value) + NotRecord_Credit_Money(j)
                    Else
                        dHappen_Debit_Amount(j) = 0
                        dHappen_Debit_Foreign(j) = 0
                        dHappen_Debit_Money(j) = FormatToDouble(.Fields("Happen_Debit_Money" + CStr(k)).value) + NotRecord_Debit_Money(j)
                        dHappen_Credit_Amount(j) = 0
                        dHappen_Credit_Foreign(j) = 0
                        dHappen_Credit_Money(j) = FormatToDouble(.Fields("Happen_Credit_Money" + CStr(k)).value) + NotRecord_Credit_Money(j)
                    End If
                    '求余额
                    If Left$(m_sStyle, 2) = "余额" Then
                        If Abs(dHappen_Debit_Money(j) - dHappen_Credit_Money(j)) < 0.0001 Then
                            dHappen_Debit_Money(j) = 0
                            dHappen_Credit_Money(j) = 0
                            dHappen_Debit_Amount(j) = dHappen_Debit_Amount(j) - dHappen_Credit_Amount(j)
                            dHappen_Credit_Amount(j) = 0
                            dHappen_Debit_Foreign(j) = dHappen_Debit_Foreign(j) - dHappen_Credit_Foreign(j)
                            dHappen_Credit_Foreign(j) = 0
                        ElseIf dHappen_Debit_Money(j) - dHappen_Credit_Money(j) > 0 Then
                            dHappen_Debit_Money(j) = dHappen_Debit_Money(j) - dHappen_Credit_Money(j)
                            dHappen_Credit_Money(j) = 0
                            dHappen_Debit_Amount(j) = dHappen_Debit_Amount(j) - dHappen_Credit_Amount(j)
                            dHappen_Credit_Amount(j) = 0
                            dHappen_Debit_Foreign(j) = dHappen_Debit_Foreign(j) - dHappen_Credit_Foreign(j)
                            dHappen_Credit_Foreign(j) = 0
                        Else
                            dHappen_Credit_Money(j) = dHappen_Credit_Money(j) - dHappen_Debit_Money(j)
                            dHappen_Debit_Money(j) = 0
                            dHappen_Credit_Amount(j) = dHappen_Credit_Amount(j) - dHappen_Debit_Amount(j)
                            dHappen_Debit_Amount(j) = 0
                            dHappen_Credit_Foreign(j) = dHappen_Credit_Foreign(j) - dHappen_Debit_Foreign(j)
                            dHappen_Debit_Foreign(j) = 0
                        End If
                    End If
                    '总合计
                    If GetKmJc(Trim(.Fields("kmdm").value)) = m_iSubjectLevelFrom - 1 Or bFristKmjc = False Then
                        dHappen_Debit_Amount_Total(j) = dHappen_Debit_Amount(j) + dHappen_Debit_Amount_Total(j)
                        dHappen_Debit_Foreign_Total(j) = dHappen_Debit_Foreign(j) + dHappen_Debit_Foreign_Total(j)
                        dHappen_Debit_Money_Total(j) = dHappen_Debit_Money(j) + dHappen_Debit_Money_Total(j)
                        dHappen_Credit_Amount_Total(j) = dHappen_Credit_Amount(j) + dHappen_Credit_Amount_Total(j)
                        dHappen_Credit_Foreign_Total(j) = dHappen_Credit_Foreign(j) + dHappen_Credit_Foreign_Total(j)
                        dHappen_Credit_Money_Total(j) = dHappen_Credit_Money(j) + dHappen_Credit_Money_Total(j)
                        bFristKmjc = (GetKmJc(Trim(.Fields("kmdm").value)) = m_iSubjectLevelFrom - 1)
                    End If
                Next
                '计算余额
                
                dEnd_Debit_Amount = dBegin_Debit_Amount
                dEnd_Debit_Foreign = dBegin_Debit_Foreign
                dEnd_Debit_Money = dBegin_Debit_Money
                dEnd_Credit_Amount = dBegin_Credit_Amount
                dEnd_Credit_Foreign = dBegin_Credit_Foreign
                dEnd_Credit_Money = dBegin_Credit_Money
                For j = 1 To mColMonth
                    If m_sStyle = "余额式" Then
                        dEnd_Debit_Amount = dEnd_Debit_Amount + dHappen_Debit_Foreign(j)
                        dEnd_Debit_Foreign = dEnd_Debit_Foreign + dHappen_Debit_Foreign(j)
                        dEnd_Debit_Money = dEnd_Debit_Money + dHappen_Debit_Foreign(j)
                        dEnd_Credit_Amount = dEnd_Credit_Amount + dHappen_Credit_Foreign(j)
                        dEnd_Credit_Foreign = dEnd_Credit_Foreign + dHappen_Credit_Foreign(j)
                        dEnd_Credit_Money = dEnd_Credit_Money + dHappen_Credit_Foreign(j)
                    Else
                        If Abs(dHappen_Debit_Money(j) - dHappen_Credit_Money(j)) < 0.0001 Then
                            dEnd_Debit_Amount = dEnd_Debit_Amount + dHappen_Debit_Amount(j) - dHappen_Credit_Amount(j)
                            dEnd_Debit_Foreign = dEnd_Debit_Foreign + dHappen_Debit_Foreign(j) - dHappen_Credit_Foreign(j)
                        ElseIf dHappen_Debit_Money(j) - dHappen_Credit_Money(j) > 0 Then
                            dEnd_Debit_Money = dEnd_Debit_Money + dHappen_Debit_Money(j) - dHappen_Credit_Money(j)
                            dEnd_Debit_Amount = dEnd_Debit_Amount + dHappen_Debit_Amount(j) - dHappen_Credit_Amount(j)
                            dEnd_Debit_Foreign = dEnd_Debit_Foreign + dHappen_Debit_Foreign(j) - dHappen_Credit_Foreign(j)
                        Else
                            dEnd_Credit_Money = dEnd_Credit_Money + dHappen_Credit_Money(j) - dHappen_Debit_Money(j)
                            dEnd_Credit_Amount = dEnd_Credit_Amount + dHappen_Credit_Amount(j) - dHappen_Debit_Amount(j)
                            dEnd_Credit_Foreign = dEnd_Credit_Foreign + dHappen_Credit_Foreign(j) - dHappen_Debit_Foreign(j)
                        End If
                    End If
                Next
                If Abs(dEnd_Debit_Money - dEnd_Credit_Money) < 0.0001 Then
                    dEnd_Debit_Money = 0
                    dEnd_Credit_Money = 0
                ElseIf dEnd_Debit_Money - dEnd_Credit_Money > 0 Then
                    dEnd_Debit_Money = dEnd_Debit_Money - dEnd_Credit_Money
                    dEnd_Credit_Money = 0
                    dEnd_Debit_Amount = dEnd_Debit_Amount - dEnd_Credit_Amount
                    dEnd_Credit_Amount = 0
                    dEnd_Debit_Foreign = dEnd_Debit_Foreign - dEnd_Credit_Foreign
                    dEnd_Credit_Foreign = 0
                Else
                    dEnd_Credit_Money = dEnd_Credit_Money - dEnd_Debit_Money
                    dEnd_Debit_Money = 0
                    dEnd_Credit_Amount = dEnd_Credit_Amount - dEnd_Debit_Amount
                    dEnd_Debit_Amount = 0
                    dEnd_Credit_Foreign = dEnd_Credit_Foreign - dEnd_Debit_Foreign
                    dEnd_Debit_Foreign = 0
                End If
                If GetKmJc(Trim(.Fields("kmdm").value)) = m_iSubjectLevelFrom - 1 Or bFristKmjc = False Then
                    dEnd_Debit_Amount_Total = 0
                    dEnd_Debit_Foreign_Total = 0
                    dEnd_Debit_Money_Total = dEnd_Debit_Money + dEnd_Debit_Money_Total
                    dEnd_Credit_Amount_Total = 0
                    dEnd_Credit_Foreign_Total = 0
                    dEnd_Credit_Money_Total = dEnd_Credit_Money + dEnd_Credit_Money_Total
                    bFristKmjc = (GetKmJc(Trim(.Fields("kmdm").value)) = m_iSubjectLevelFrom - 1)
                End If
                If m_bIncludeBlankKm Then
                    Call AppendOneRow(ROW_GRID_START + lCount - 1, Trim$("" & .Fields("kmdm").value), _
                                    Trim$("" & .Fields("kmmc").value), dBegin_Debit_Amount, _
                                    dBegin_Debit_Foreign, dBegin_Debit_Money, dBegin_Credit_Amount, _
                                    dBegin_Credit_Foreign, dBegin_Credit_Money, dHappen_Debit_Amount, _
                                     dHappen_Debit_Foreign, dHappen_Debit_Money, _
                                     dHappen_Credit_Amount, dHappen_Credit_Foreign, _
                                     dHappen_Credit_Money, dEnd_Debit_Amount, _
                                     dEnd_Debit_Foreign, dEnd_Debit_Money, _
                                     dEnd_Credit_Amount, dEnd_Credit_Foreign, _
                                     dEnd_Credit_Money, False)
                    If (lCount Mod ROWS_PAGE) = 0 Then
                        If iMaxColWidth < Cllr.GetColBestWidth(COL_SUBJECTNAME) Then
                            iMaxColWidth = Cllr.GetColBestWidth(COL_SUBJECTNAME)
                        End If
                        '此时 lCount 是 ROWS_PAGE 的整数倍，如 5,10 ...
                        lPage = lPage + 1
                        Cllr.InsertSheet Cllr.GetTotalSheets, 1
                        Cllr.SetCols COL_END + (mColMonth - 1) * 6 + 2, Cllr.GetTotalSheets - 1
                        Call SetGrid(lPage, ROW_GRID_START + lCount)
                        Cllr.SetCurSheet lPage
                        Cllr.SetRows ROW_GRID_START + ROWS_PAGE, lPage
                        Cllr.SetCols COL_END + 2, lPage
                        lCount = 0
                    End If
                 Else
                    d = Abs(dBegin_Debit_Amount) + Abs(dBegin_Debit_Foreign) + Abs(dBegin_Debit_Money)
                    d = d + Abs(dBegin_Credit_Amount) + Abs(dBegin_Credit_Foreign) + Abs(dBegin_Credit_Money)
                    For j = 1 To mColMonth
                        d = d + Abs(dHappen_Debit_Amount(j)) + Abs(dHappen_Debit_Foreign(j)) + Abs(dHappen_Debit_Money(j))
                        d = d + Abs(dHappen_Credit_Amount(j)) + Abs(dHappen_Credit_Foreign(j)) + Abs(dHappen_Credit_Money(j))
                    Next
                    d = d + Abs(dEnd_Debit_Amount) + Abs(dEnd_Debit_Foreign) + Abs(dEnd_Debit_Money)
                    d = d + Abs(dEnd_Credit_Amount) + Abs(dEnd_Credit_Foreign) + Abs(dEnd_Credit_Money)
                    If d < 0.0001 Then
                        lCount = lCount - 1
                    Else
                        Call AppendOneRow(ROW_GRID_START + lCount - 1, Trim$("" & .Fields("kmdm").value), _
                             Trim$("" & .Fields("kmmc").value), dBegin_Debit_Amount, _
                             dBegin_Debit_Foreign, dBegin_Debit_Money, dBegin_Credit_Amount, _
                             dBegin_Credit_Foreign, dBegin_Credit_Money, dHappen_Debit_Amount, _
                              dHappen_Debit_Foreign, dHappen_Debit_Money, _
                              dHappen_Credit_Amount, dHappen_Credit_Foreign, _
                              dHappen_Credit_Money, dEnd_Debit_Amount, _
                              dEnd_Debit_Foreign, dEnd_Debit_Money, _
                              dEnd_Credit_Amount, dEnd_Credit_Foreign, _
                              dEnd_Credit_Money, False)
                         If (lCount Mod ROWS_PAGE) = 0 Then
                             If iMaxColWidth < Cllr.GetColBestWidth(COL_SUBJECTNAME) Then
                                 iMaxColWidth = Cllr.GetColBestWidth(COL_SUBJECTNAME)
                             End If
                             '此时 lCount 是 ROWS_PAGE 的整数倍，如 5,10 ...
                             lPage = lPage + 1
                             Cllr.InsertSheet Cllr.GetTotalSheets, 1
                             Cllr.SetCols COL_END + (mColMonth - 1) * 6 + 2, lPage
                             Call SetGrid(lPage, ROW_GRID_START + lCount)
                             Cllr.SetCurSheet lPage
                             Cllr.SetRows ROW_GRID_START + ROWS_PAGE, lPage
'                             CllR.SetCols COL_END + 2, lPage
                             lCount = 0
                         End If
                         End If
                 End If
                .MoveNext
            Loop
            
            '添加总合计行
            '2002.10.25   bian
            lCount = lCount + 1
            Call AppendOneRow(ROW_GRID_START + lCount - 1, "", "  合  计：", dBegin_Debit_Amount_Total, _
                                        dBegin_Debit_Foreign_Total, dBegin_Debit_Money_Total, dBegin_Credit_Amount_Total, _
                                        dBegin_Credit_Foreign_Total, dBegin_Credit_Money_Total, dHappen_Debit_Amount_Total, _
                                         dHappen_Debit_Foreign_Total, dHappen_Debit_Money_Total, _
                                         dHappen_Credit_Amount_Total, dHappen_Credit_Foreign_Total, _
                                         dHappen_Credit_Money_Total, dEnd_Debit_Amount_Total, _
                                         dEnd_Debit_Foreign_Total, dEnd_Debit_Money_Total, _
                                         dEnd_Credit_Amount_Total, dEnd_Credit_Foreign_Total, _
                                         dEnd_Credit_Money_Total, True)
        End If
        .Close
    End With
    
    '添加缺号表，统计凭证编号的最大值和最小值
'    Dim sTemp As String
'    Dim iPreKjqj As Integer
'    If uIsDisplayVoucherInfo = True And uIsFullSubject = True Then
'        Call getPzBhTotal(m_sMonthFrom, m_sMonthTo)
'        If tPzbh(1).iKjqj <> 0 Then
'            iPreKjqj = tPzbh(1).iKjqj
'            For i = LBound(tPzbh) + 1 To UBound(tPzbh)
'                If iPreKjqj = tPzbh(i).iKjqj Then
'                   sTemp = sTemp & "    " & tPzbh(i).sPZZL & " " & Format(tPzbh(i).sMinBh, "0000") & "-" & Format(tPzbh(i).sMaxBh, "0000")
'                Else
'                   sTemp = "会计期间：" & glo.sOperateYear & "-" & CStr(iPreKjqj) & sTemp & IIf(IsPzbhCheck(iPreKjqj), "    含有缺号凭证", "")
'                   LCount = LCount + 1
'                   CllR.MergeCells COL_SUBJECTCODE, ROW_GRID_START + LCount - 1, COL_END, ROW_GRID_START + LCount - 1
'                   CllR.SetCellString COL_SUBJECTCODE, ROW_GRID_START + LCount - 1, CllR.GetCurSheet, sTemp
'                   If (LCount Mod ROWS_PAGE) = 0 Then
'                        If iMaxColWidth < CllR.GetColBestWidth(COL_SUBJECTNAME) Then
'                            iMaxColWidth = CllR.GetColBestWidth(COL_SUBJECTNAME)
'                        End If
'                       '此时 lCount 是 ROWS_PAGE 的整数倍，如 5,10 ...
'                       lPage = lPage + 1
'                       CllR.InsertSheet CllR.GetTotalSheets, 1
'                       Call SetGrid(lPage, ROW_GRID_START + LCount)
'                       CllR.SetCurSheet lPage
'                       CllR.SetRows ROW_GRID_START + ROWS_PAGE, lPage
'                       CllR.SetCols COL_END + 2, lPage
'                       LCount = 0
'                   End If
'                   sTemp = ""
'                   iPreKjqj = tPzbh(i).iKjqj
'                   sTemp = sTemp & "    " & tPzbh(i