frmac_detailmodeprint.frm

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

    
    byhjJ = 0
    byhjJSL = 0
    byhjJWB = 0
    byhjD = 0
    byhjDSL = 0
    byhjDWB = 0
    
    bnljJ = 0
    bnljJSL = 0
    bnljJWB = 0
    bnljD = 0
    bnljDSL = 0
    bnljDWB = 0
    
    fMainForm.MousePointer = vbHourglass
    
    '将CELL不可见，防止清除CELL控件内容时屏幕闪烁；
    Cllr.Visible = False
'    CllR.DoSetTotalPages 1
    Cllr.SetCols 2, 0
    Cllr.SetRows 2, 0
    '清除CELL控件内容后，必须重新设置CELL的行数和列数；
    Cllr.SetCols COL_END + 2, 0
    Cllr.SetRows ROW_GRID_START + ROWS_PAGE, 0
    
    '设置当前科目名称和代码
    If Me.ubVisible = False Then
        If Trim(m_sCurSubjectCode) = "" Then Exit Function
    Else
        m_sCurSubjectCode = arySubDetail(cboSubject.ListIndex + 1).sSubjectCode
        m_sCurSubjectName = arySubDetail(cboSubject.ListIndex + 1).sSubjectName
    End If
    '得到打印时显示的科目代码和名称以及明细账科目
    If glo.sSeparateSubject = "0" Then
        If glo.bSeparateSubject Then
            m_sPrintSubjectCode = SeparateSubject(glo.sAccountID, m_sCurSubjectCode)
        Else
            m_sPrintSubjectCode = m_sCurSubjectCode
        End If
    Else
         m_sPrintSubjectCode = m_sCurSubjectCode
    End If
    
    m_sPrintSubjectName = GetSubjectFullPath(glo.sAccountID, m_sCurSubjectCode)
    If InStr(1, m_sPrintSubjectName, "\") > 0 Then
        m_sGeneralSubjectName = Mid(m_sPrintSubjectName, 1, InStr(1, m_sPrintSubjectName, "\") - 1)
    Else
        m_sGeneralSubjectName = m_sPrintSubjectName
    End If
    
    '得到一个科目数量单位和外币单位
    Call GetSldwAndWbdw(m_sCurSubjectCode, m_sSldw, m_sWbdw)
    If m_sSldw <> "" Then
        m_bAmount = True
    Else
        m_bAmount = False
    End If
    If m_sWbdw <> "" Then
        m_bForeign = True
    Else
        m_bForeign = False
    End If
    
    
    CurRow = ROW_GRID_START - 1
    lCount = 0
    lPage = 0
    
    Set rstTemp = New ADODB.Recordset
    rstTemp.CursorLocation = adUseClient
    
    ubQcBalance = False
    ubHappen = False
'如果查询开始月份为一月份, 则计算上年结转余额;
'否则计算上月余额;
    If Val(m_sFromMonth) > 0 Then
        PreStartOfMonth = Format(Val(m_sFromMonth) - 1, "00")
    Else
        PreStartOfMonth = "01"
    End If

    '查询求年初数(00)、上月数(PreStartOfMonth)
    'JFSL00     JFWB00      JF00        DFSL00      DFWB00      DF00
    'JFSL01     JFWB01      JF01        DFSL01      DFWB01      DF01
    sSQL = "SELECT ljjsl00 JFSL00,ljjwb00 JFWB00,ljj00 JF00," & _
            "ljdsl00 DFSL00,ljdwb00 DFWB00,ljd00 DF00," & _
            "ljjsl" & PreStartOfMonth & " JFSL01,ljjwb" & PreStartOfMonth & _
            " JFWB01,ljj" & PreStartOfMonth & " JF01," & _
            "ljdsl" & PreStartOfMonth & " DFSL01,ljdwb" & PreStartOfMonth & _
            " DFWB01,ljd" & PreStartOfMonth & " DF01" & _
            " FROM tZW_balance" & m_sYear & _
            " WHERE kmdm='" & m_sCurSubjectCode & "'"
    With rstTemp
        .Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
        dbnYESL = .Fields("JFSL01").value - .Fields("DFSL01").value
        dbnYEWB = .Fields("JFWB01").value - .Fields("DFWB01").value
        dbnYE = .Fields("JF01").value - .Fields("DF01").value
        .Close
    End With
    
    If dbnYE > 0 Then
        sFX = "借"
        ubQcBalance = True
    ElseIf dbnYE = 0 Then
        sFX = "平"
    Else
        sFX = "贷"
        ubQcBalance = True
    End If
    
    PushVar dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB
            
'-------------------------------------------------
'从凭证表中取出记录进行处理
'取出的字段：会计期间、凭证种类、编号、日期、摘要、方向、金额、外币、汇率、制单人名
If IsEndSubject(m_sCurSubjectCode) Then
sSQL = "SELECT kjqj,pzzl,pzbh,pzrq,pzzy,fx,je,sl,dj,wb,hl,zdrm,yhdz_bill" & _
            " FROM tZW_pzsj" & m_sYear & _
            " WHERE kjqj >= " & Val(m_sFromMonth) & _
            " AND kjqj <= " & Val(m_sToMonth) & _
            " AND kmdm = '" & m_sCurSubjectCode & "'" & _
            " AND  xgbz='2'" & _
            " ORDER BY pzrq,pzzl,pzbh"
Else
    sSQL = "SELECT kjqj,pzzl,pzbh,pzrq,pzzy,fx,je,sl,dj,wb,hl,zdrm,yhdz_bill" & _
            " FROM tZW_pzsj" & m_sYear & _
            " WHERE kjqj >= " & Val(m_sFromMonth) & _
            " AND kjqj <= " & Val(m_sToMonth) & _
            " AND kmdm LIKE '" & m_sCurSubjectCode & "-%'" & _
            " AND  xgbz='2'" & _
            " ORDER BY pzrq,pzzl,pzbh"
 End If
    With rstTemp
        .Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
        If .RecordCount > 0 Then
            ubHappen = True
            Call InitVariant
            .MoveFirst
            PreKjqj = .Fields("kjqj").value
            CurKjqj = .Fields("kjqj").value
            dbnYESL = 0
            dbnYEWB = 0
            dbnYE = 0
            If PreKjqj > 0 Then
                PopVar dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB
                AddYearBeginRow dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB, CurRow, lCount
            End If

            Do Until .EOF
                CurKjqj = .Fields("kjqj").value
                '与前一张凭证不在同一个月
                If CurKjqj <> PreKjqj Then
                    If PreKjqj = 0 Then
                        PopVar dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB
                        AddYearBeginRow dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB, CurRow, lCount
                    Else
                        '添加本月合计、本年累计行
                        Call AppendTotalRows(PreKjqj, iPageStart)
                        CurRow = CurRow - 1
                        lCount = lCount - 1
                    End If
                End If

                '添加当前凭证记录行
                CurRow = CurRow + 1
                lCount = lCount + 1
                If (lCount Mod ROWS_PAGE) = 0 Then Call AppendChangePageRow(1, iPageStart)
                
                 '合计本月、过次
                If .Fields("FX").value = "借" Then
                    dbnYESL = dbnYESL + .Fields("sl").value
                    dbnYEWB = dbnYEWB + .Fields("wb").value
                    dbnYE = dbnYE + .Fields("je").value
                    
                    bnljJSL = bnljJSL + .Fields("sl").value
                    bnljJWB = bnljJWB + .Fields("wb").value
                    bnljJ = bnljJ + .Fields("je").value
                    
                    gcJSL = gcJSL + .Fields("sl").value
                    gcJWB = gcJWB + .Fields("wb").value
                    gcJ = gcJ + .Fields("je").value
                    
                    byhjJSL = byhjJSL + .Fields("sl").value
                    byhjJWB = byhjJWB + .Fields("wb").value
                    byhjJ = byhjJ + .Fields("je").value
                Else
                    dbnYESL = dbnYESL - .Fields("sl").value
                    dbnYEWB = dbnYEWB - .Fields("wb").value
                    dbnYE = dbnYE - .Fields("je").value
                    bnljDSL = bnljDSL + .Fields("sl").value
                    bnljDWB = bnljDWB + .Fields("wb").value
                    bnljD = bnljD + .Fields("je").value
                    
                    gcDSL = gcDSL + .Fields("sl").value
                    gcDWB = gcDWB + .Fields("wb").value
                    gcD = gcD + .Fields("je").value
                    
                    byhjDSL = byhjDSL + .Fields("sl").value
                    byhjDWB = byhjDWB + .Fields("wb").value
                    byhjD = byhjD + .Fields("je").value
                    
                End If
                '判断方向
                If dbnYE > 0 Then
                    sFX = "借"
                ElseIf dbnYE = 0 Then
                    sFX = "平"
                Else
                    sFX = "贷"
                End If
                
                If .Fields("FX").value = "借" Then
                    Call AppendOneRow(ROW_GRID_START + lCount - 1, CurRow - ROW_GRID_START + 1, _
                        Month(.Fields("pzrq").value), Day(.Fields("pzrq").value), .Fields("pzzl").value, _
                        .Fields("pzbh").value, FormatToString(.Fields("yhdz_bill").value), Trim$("" & .Fields("pzzy").value), _
                        .Fields("dj").value, .Fields("hl").value, sFX, IIf(sFX = "借", dbnYESL, -dbnYESL), _
                        IIf(sFX = "借", dbnYEWB, -dbnYEWB), IIf(sFX = "借", dbnYE, -dbnYE), _
                        Trim$("" & .Fields("zdrm").value), dDebit_Amount:=.Fields("sl").value, _
                        dDebit_Foreign:=.Fields("wb").value, dDebit_Money:=.Fields("je").value)
                Else
                    Call AppendOneRow(ROW_GRID_START + lCount - 1, CurRow - ROW_GRID_START + 1, _
                        Month(.Fields("pzrq").value), Day(.Fields("pzrq").value), .Fields("pzzl").value, _
                        .Fields("pzbh").value, FormatToString(.Fields("yhdz_bill").value), Trim$("" & .Fields("pzzy").value), _
                        .Fields("dj").value, .Fields("hl").value, sFX, IIf(sFX = "借", dbnYESL, -dbnYESL), _
                        IIf(sFX = "借", dbnYEWB, -dbnYEWB), IIf(sFX = "借", dbnYE, -dbnYE), _
                        Trim$("" & .Fields("zdrm").value), dCredit_Amount:=.Fields("sl").value, _
                        dCredit_Foreign:=.Fields("wb").value, dCredit_Money:=.Fields("je").value)
                End If
                PreKjqj = CurKjqj
                .MoveNext
            Loop
            .Close
            If CurKjqj = 0 Then
                PopVar dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB
                AddYearBeginRow dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB, CurRow, lCount
            Else
                Call AppendTotalRows(PreKjqj, iPageStart)
            End If
        Else
            PopVar dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB
            AddYearBeginRow dbnYE, dbnYESL, dbnYEWB, bnljJ, bnljJSL, bnljJWB, bnljD, bnljDSL, bnljDWB, CurRow, lCount
        End If
    End With
    
'-----------------------------------------------
    Call SetGrid(lPage + 1, ROW_GRID_START + ROWS_PAGE + 1, iPageStart)
    Cllr.SetCurSheet 0
    Cllr.Visible = True
    For i = 1 To Cllr.GetTotalSheets
       Cllr.SetSheetLabel i - 1, "第" & i + iPageStart & "页"
    Next i
    iPageStart = iPageStart + Cllr.GetTotalSheets
    ShowResult = iPageStart
    '为了防止装填账页格式时触发cboaccountformat_click事件时，出现系统提示账页格式已改变；
    '所以将此程序在此调用
    Call SetAccountFormat(cboAccountFormat, m_bAmount, m_bForeign)
    If ubVisible = True Then
        fMainForm.MousePointer = vbDefault
        Me.Show
    End If
End Function

'向表格中追加本月合计、本年累计行
Private Sub AppendTotalRows(ByVal PreKjqj As Integer, Optional ByRef iPageStart As Integer = 0)
'    Dim rstTotal As ADODB.Recordset
'    Dim sSQL As String
    
    dbyYESL = byhjJSL - byhjDSL
    dbyYEWB = byhjJWB - byhjDWB
    dbyYE = byhjJ - byhjD
    
    If dbyYE > 0 Then
        sbyFX = "借"
    ElseIf dbyYE = 0 Then
        sbyFX = "平"
    Else
        sbyFX = "贷"
        dbyYE = Abs(dbyYE)
        dbyYEWB = Abs(dbyYEWB)
        dbyYESL = Abs(dbyYESL)
    End If
    If (lCount Mod ROWS_PAGE) = 0 Then
        Call AppendChangePageRow(1, iPageStart)
    Else
        CurRow = CurRow + 1
        lCount = lCount + 1
    End If
    Call AppendOneRow(ROW_GRID_START + lCount - 1, CurRow - ROW_GRID_START + 1, PreKjqj, 0, _
        "", "", "", "[  本  月  合  计  ]", 0, 0, sbyFX, dbyYESL, dbyYEWB, dbyYE, "", _
         byhjJSL, byhjJWB, byhjJ, byhjDSL, byhjDWB, byhjD)
         
    If (lCount Mod ROWS_PAGE) = 0 Then
        Call AppendChangePageRow(1, iPageStart)
         Call AppendOneRow(ROW_GRID_START + lCount - 1, CurRow - ROW_GRID_START + 1, PreKjqj, 0, _
        "", "", "", "[  本  月  合  计  ]", 0, 0, sbyFX, dbyYESL, dbyYEWB, dbyYE, "", _
         byhjJSL, byhjJWB, byhjJ, byhjDSL, byhjDWB, byhjD)
           CurRow = CurRow + 1
        lCount = lCount + 1
    Else
        CurRow = CurRow + 1
        lCount = lCount + 1
    End If
    
    Call AppendOneRow(ROW_GRID_START + lCount - 1, CurRow - ROW_GRID_START + 1, PreKjqj, 0, _
        "", "", "", "[  本  年  累  计  ]", 0, 0, sFX, IIf(sFX = "借", dbnYESL, -dbnYESL), _
        IIf(sFX = "借", dbnYEWB, -dbnYEWB), IIf(sFX = "借", dbnYE, -dbnYE),