frmac_bookresult.frm

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

    bnljJSL = 0
    bnljJWB = 0
    bnljD = 0
    bnljDSL = 0
    bnljDWB = 0
   
   '得到打印时显示的科目代码和名称以及总账科目
    If glo.sSeparateSubject = "0" Then
        If glo.bSeparateSubject Then
            m_sPrintSubjectCode = SeparateSubject(glo.sAccountID, m_sSubjCode)
        Else
            m_sPrintSubjectCode = m_sSubjCode
        End If
    End If
    
    m_sPrintSubjectName = GetSubjectFullPath(glo.sAccountID, m_sSubjCode)
    
    If InStr(1, m_sPrintSubjectName, "\") > 0 Then
        m_sDaySubjectName = Mid(m_sPrintSubjectName, 1, InStr(1, m_sPrintSubjectName, "\") - 1)
    Else
        m_sDaySubjectName = m_sPrintSubjectName
    End If
    
    '得到一个科目数量单位和外币单位
    Call GetSldwAndWbdw(m_sSubjCode, 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
    PreStartOfMonth = Format(Val(m_sFromMonth) - 1, "00")
    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_sSubjCode & "'"
    With rstTemp
        .Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
'        If glo.sUnEarlierDate < glo.sOperateYear & "-02-01" And glo.sUnEarlierDate > m_sFromDate Then
            dYE = .Fields("JF00").value - .Fields("DF00").value
            dYESL = .Fields("JFSL00").value - .Fields("DFSL00").value
            dYEWB = .Fields("JFWB00").value - .Fields("DFWB00").value
            
            bnljJSL = .Fields("JFSL00").value - .Fields("JFSL00").value
            bnljJWB = .Fields("JFWB00").value - .Fields("JFWB00").value
            bnljJ = .Fields("JF00").value - .Fields("JF00").value
            
            bnljDSL = .Fields("DFSL00").value - .Fields("DFSL00").value
            bnljDWB = .Fields("DFWB00").value - .Fields("DFWB00").value
            bnljD = .Fields("DF00").value - .Fields("DF00").value
'        Else
'            dYE = .Fields("JF01").value - .Fields("DF01").value
'            dYESL = .Fields("JFSL01").value - .Fields("DFSL01").value
'            dYEWB = .Fields("JFWB01").value - .Fields("DFWB01").value
'
'            bnljJSL = .Fields("JFSL01").value - .Fields("JFSL00").value
'            bnljJWB = .Fields("JFWB01").value - .Fields("JFWB00").value
'            bnljJ = .Fields("JF01").value - .Fields("JF00").value
'
'            bnljDSL = .Fields("DFSL01").value - .Fields("DFSL00").value
'            bnljDWB = .Fields("DFWB01").value - .Fields("DFWB00").value
'            bnljD = .Fields("DF01").value - .Fields("DF00").value
'        End If
        .Close
    End With
    
    '查询求上日余额, 不包括未复核的凭证（对于起始日饲每月一号的查询，本段实际上勿需执行）
        '在查询起始日期所在的月内，在查询起始日之前的几天的金额、数量、外币的合计
                '金额--A, 外币--B, 数量--C
                
    '加上借方
    If IsEndSubject(m_sSubjCode) Then
        Select Case g_FLAT
                Case "SQL"
    '            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
    '                    " FROM tZW_pzsj" & m_sYear & _
    '                    " WHERE pzrq >='" & glo.sUnEarlierDate & "'" & _
    '                    " AND pzrq <'" & m_sFromDate & "'" & _
    '                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
    '                    " AND fx='借' "
                sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                                   " FROM tZW_pzsj" & m_sYear & _
                                   " WHERE pzrq >='" & glo.sOperateYear & "-01-01" & "'" & _
                                   " AND pzrq <'" & m_sFromDate & "'" & _
                                   " AND kmdm = '" & Trim(m_sSubjCode) & "'" & _
                                   " AND fx='借' "
            Case "ORACLE"
    '            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
    '                    " FROM tZW_pzsj" & m_sYear & _
    '                    " WHERE pzrq >= TO_DATE('" & glo.sUnEarlierDate & "','YYYY-MM-DD')" & _
    '                    " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
    '                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
    '                    " AND fx='借'"
                sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                                   " FROM tZW_pzsj" & m_sYear & _
                                   " WHERE pzrq >= TO_DATE('" & glo.sOperateYear & "-01-01" & "','YYYY-MM-DD')" & _
                                   " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
                                   " AND kmdm = '" & Trim(m_sSubjCode) & "'" & _
                                   " AND fx='借'"
        End Select
    Else
        Select Case g_FLAT
            Case "SQL"
    '            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
    '                    " FROM tZW_pzsj" & m_sYear & _
    '                    " WHERE pzrq >='" & glo.sUnEarlierDate & "'" & _
    '                    " AND pzrq <'" & m_sFromDate & "'" & _
    '                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
    '                    " AND fx='借' "
                sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                                   " FROM tZW_pzsj" & m_sYear & _
                                   " WHERE pzrq >='" & glo.sOperateYear & "-01-01" & "'" & _
                                   " AND pzrq <'" & m_sFromDate & "'" & _
                                   " AND kmdm like '" & Trim(m_sSubjCode) & "-%'" & _
                                   " AND fx='借' "
            Case "ORACLE"
    '            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
    '                    " FROM tZW_pzsj" & m_sYear & _
    '                    " WHERE pzrq >= TO_DATE('" & glo.sUnEarlierDate & "','YYYY-MM-DD')" & _
    '                    " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
    '                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
    '                    " AND fx='借'"
                sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                                   " FROM tZW_pzsj" & m_sYear & _
                                   " WHERE pzrq >= TO_DATE('" & glo.sOperateYear & "-01-01" & "','YYYY-MM-DD')" & _
                                   " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
                                   " AND kmdm like '" & Trim(m_sSubjCode) & "-%'" & _
                                   " AND fx='借'"
        End Select
    End If
    If m_bIncludeNotRecord Then
        sSQL = sSQL & "  AND xgbz<=2 and kjqj in (1,2,3,4,5,6,7,8,9,10,11,12)"
    Else
        sSQL = sSQL & "  AND xgbz=2 and kjqj in (1,2,3,4,5,6,7,8,9,10,11,12)"
    End If
        
    With rstTemp
        .Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
        If .BOF And .EOF Then
        Else
            dYE = dYE + IIf(IsNull(.Fields("sumJE").value), 0, .Fields("sumJE").value)
            dYESL = dYESL + IIf(IsNull(.Fields("sumSL").value), 0, .Fields("sumSL").value)
            dYEWB = dYEWB + IIf(IsNull(.Fields("sumWB").value), 0, .Fields("sumWB").value)
            
            byhjJSL = byhjJSL + IIf(IsNull(.Fields("sumSL").value), 0, .Fields("sumSL").value)
            byhjJWB = byhjJWB + IIf(IsNull(.Fields("sumWB").value), 0, .Fields("sumWB").value)
            byhjJ = byhjJ + IIf(IsNull(.Fields("sumJE").value), 0, .Fields("sumJE").value)
            
            bnljJSL = bnljJSL + byhjJSL
            bnljJWB = bnljJWB + byhjJWB
            bnljJ = bnljJ + byhjJ
        End If
        .Close
    End With
    If IsEndSubject(m_sSubjCode) Then
        Select Case g_FLAT
        Case "SQL"
'            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
'                    " FROM tZW_pzsj" & m_sYear & _
'                    " WHERE pzrq >='" & glo.sUnEarlierDate & "'" & _
'                    " AND pzrq <'" & m_sFromDate & "'" & _
'                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
'                    " AND fx='借' "
            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                               " FROM tZW_pzsj" & m_sYear & _
                               " WHERE pzrq >='" & glo.sOperateYear & "-" & Mid(m_sFromDate, 6, 2) & "-01'" & _
                               " AND pzrq <'" & m_sFromDate & "'" & _
                               " AND kmdm = '" & Trim(m_sSubjCode) & "'" & _
                               " AND fx='借' "
        Case "ORACLE"
'            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
'                    " FROM tZW_pzsj" & m_sYear & _
'                    " WHERE pzrq >= TO_DATE('" & glo.sUnEarlierDate & "','YYYY-MM-DD')" & _
'                    " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
'                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
'                    " AND fx='借'"
            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                               " FROM tZW_pzsj" & m_sYear & _
                               " WHERE pzrq >= TO_DATE('" & glo.sOperateYear & "-" & Mid(m_sFromDate, 6, 2) & "-01" & "','YYYY-MM-DD')" & _
                               " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
                               " AND kmdm = '" & Trim(m_sSubjCode) & "'" & _
                               " AND fx='借'"
    End Select
    Else
        Select Case g_FLAT
        Case "SQL"
'            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
'                    " FROM tZW_pzsj" & m_sYear & _
'                    " WHERE pzrq >='" & glo.sUnEarlierDate & "'" & _
'                    " AND pzrq <'" & m_sFromDate & "'" & _
'                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
'                    " AND fx='借' "
            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                               " FROM tZW_pzsj" & m_sYear & _
                               " WHERE pzrq >='" & glo.sOperateYear & "-" & Mid(m_sFromDate, 6, 2) & "-01'" & _
                               " AND pzrq <'" & m_sFromDate & "'" & _
                               " AND kmdm like '" & Trim(m_sSubjCode) & "-%'" & _
                               " AND fx='借' "
        Case "ORACLE"
'            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
'                    " FROM tZW_pzsj" & m_sYear & _
'                    " WHERE pzrq >= TO_DATE('" & glo.sUnEarlierDate & "','YYYY-MM-DD')" & _
'                    " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
'                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
'                    " AND fx='借'"
            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                               " FROM tZW_pzsj" & m_sYear & _
                               " WHERE pzrq >= TO_DATE('" & glo.sOperateYear & "-" & Mid(m_sFromDate, 6, 2) & "-01" & "','YYYY-MM-DD')" & _
                               " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
                               " AND kmdm like '" & Trim(m_sSubjCode) & "-%'" & _
                               " AND fx='借'"
    End Select
    End If
    If m_bIncludeNotRecord Then
        sSQL = sSQL & "  AND xgbz<=2  and kjqj in (1,2,3,4,5,6,7,8,9,10,11,12) "
    Else
        sSQL = sSQL & "  AND xgbz=2 and kjqj in (1,2,3,4,5,6,7,8,9,10,11,12) "
    End If
   With rstTemp
        .Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
        If .BOF And .EOF Then
        Else
           
            
            byhjJSL = IIf(IsNull(.Fields("sumSL").value), 0, .Fields("sumSL").value)
            byhjJWB = IIf(IsNull(.Fields("sumWB").value), 0, .Fields("sumWB").value)
            byhjJ = IIf(IsNull(.Fields("sumJE").value), 0, .Fields("sumJE").value)
            
         
            
        End If
        .Close
    End With
    
    '减去贷方
    If IsEndSubject(m_sSubjCode) Then
          Select Case g_FLAT
            Case "SQL"
    '            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
    '                    " FROM tZW_pzsj" & m_sYear & _
    '                    " WHERE pzrq >= '" & glo.sUnEarlierDate & "'" & _
    '                    " AND pzrq <'" & m_sFromDate & "'" & _
    '                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
    '                    " AND fx='贷' "
                sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                                   " FROM tZW_pzsj" & m_sYear & _
                                   " WHERE pzrq >= '" & glo.sOperateYear & "-01-01" & "'" & _
                                   " AND pzrq <'" & m_sFromDate & "'" & _
                                   " AND kmdm = '" & Trim(m_sSubjCode) & "'" & _
                                   " AND fx='贷' "
            Case "ORACLE"
    '            sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
    '                    " FROM tZW_pzsj" & m_sYear & _
    '                    " WHERE pzrq >= TO_DATE('" & glo.sUnEarlierDate & "','YYYY-MM-DD')" & _
    '                    " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
    '                    " AND kmdm in ('" & Join(GetChildrenKm(m_sSubjCode), "','") & "')" & _
    '                    " AND fx='贷'"
                sSQL = "SELECT sum(je) sumJE,sum(wb) sumWB,sum(sl) sumSL" & _
                                    " FROM tZW_pzsj" & m_sYear & _
                                    " WHERE pzrq >= TO_DATE('" & glo.sOperateYear & "-01-01" & "','YYYY-MM-DD')" & _
                                    " AND pzrq < TO_DATE('" & m_sFromDate & "','YYYY-MM-DD')" & _
                                    " AND kmdm = '" & Trim(m_sSubjCode) & "'" & _
                                 " AND fx='贷'"
         End Select
    Else
        Select Case g_FLAT