对帐单.frm

财务信息管理系统,适合做毕业论文的人使用

'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cRetID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_UnwRet WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cRetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_UnwRet WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnaID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_UnwAcrRcp WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnaID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_UnwAcrRcp WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_SettAcc WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='15' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_SettAcc WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='15' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], (case when [igp_flag]=0 then [mmoney] else 0 end), (case when [igp_flag]=0 then 0 else [mmoney] end) FROM " & _
'         "FD_SettAcc WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='14' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], (case when [igp_flag]=0 then [mmoney] else 0 end), (case when [igp_flag]=0 then  0 else [mmoney] end) FROM " & _
'         "FD_SettAcc WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='14' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cCarID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_CadAcr WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [iDanType]=0 AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cCarID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_CadAcr WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [iDanType]=0 AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSavID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_Sav WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cFetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_Fetch WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "ORDER BY Field0, Field1, Field2"
   sqlItem = "SELECT transactions_id, Year([dbill_date]) AS Field0, Month([dbill_date]) " & _
         "AS Field1, Day([dbill_date]) AS Field2, [cCreID] AS Field3, " & _
         "[cDigest] AS Field4, [mmoney] AS Field5, 0 AS Field6 , [mmoney_f] AS Field5_f, 0 AS Field6_f FROM " & _
         "FD_Cred WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cRetID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_Return WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cCraID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_CreAcrRcp WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cUnwID], [cDigest], [mmoney], 0, [mmoney_f], 0 FROM " & _
         "FD_UnwDeb WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cUnwID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_UnwDeb WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cRetID], [cDigest], [mmoney], 0, [mmoney_f], 0 FROM " & _
         "FD_UnwRet WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cRetID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_UnwRet WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cUnaID], [cDigest], [mmoney], 0, [mmoney_f], 0 FROM " & _
         "FD_UnwAcrRcp WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cUnaID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_UnwAcrRcp WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cSetID], [cDigest], [mmoney], 0, [mmoney_f], 0 FROM " & _
         "FD_SettAcc WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='15' "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cSetID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_SettAcc WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='15' "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cSetID], [cDigest], (case when [igp_flag]=0 then [mmoney] else 0 end), (case when [igp_flag]=0 then 0 else [mmoney] end), (case when [igp_flag]=0 then [mmoney_f] else 0 end), (case when [igp_flag]=0 then 0 else [mmoney_f] end) FROM " & _
         "FD_SettAcc WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='14' "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cSetID], [cDigest], (case when [igp_flag]=0 then [mmoney] else 0 end), (case when [igp_flag]=0 then  0 else [mmoney] end), (case when [igp_flag]=0 then [mmoney_f] else 0 end), (case when [igp_flag]=0 then  0 else [mmoney_f] end) FROM " & _
         "FD_SettAcc WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='14' "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cCarID], [cDigest], [mmoney], 0, [mmoney_f], 0 FROM " & _
         "FD_CadAcr WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [iDanType]=0 AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cCarID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_CadAcr WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [iDanType]=0 AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cSavID], [cDigest], [mmoney], 0, [mmoney_f], 0 FROM " & _
         "FD_Sav WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
         "Day([dbill_date]), [cFetID], [cDigest], 0, [mmoney], 0, [mmoney_f] FROM " & _
         "FD_Fetch WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
   sqlItem = sqlItem & "ORDER BY Field0, Field1, Field2"

   '---------------------------------------------
   '---------------------------------------------------------
   
   Nbzh_sql = sqlItem
End Function

'********************************************************************
'*函数说明: 准备数据                                                 *
'*参    数: mAccID : 账户号                                          *
'*          mRecordset : 记录集结果                                  *
'*返回值  : True - 成功                                              *
'*********************************************************************
Private Function PrepareData(mAccID As String, mRecordset As UfRecordset) As Boolean
   Dim sqlItem As String
   Dim sqlQc As String
   Dim rsQc As New UfRecordset
      
   If iDataSource = 0 Then    '资金系统
      sqlItem = Nbzh_sql(mAccID)
      
      '求期初余额+发生额
      sqlQc = "SELECT [mb] FROM FD_AccDef WHERE [cAccID]='" & mAccID & "'"
      Set rsQc = dbsZJ.OpenRecordset(sqlQc, dbOpenSnapshot)
      dzdMb = IIf(IsNull(rsQc![Mb]), 0, rsQc![Mb])
      dzdMb = dzdMb + GetZhYe(mAccID, datFrom)
      'dzdMb_f = IIf(IsNull(rsQc![Mb]), 0, rsQc![Mb]) 'cuidong 对账单+外币 2001.12.04  账户定义中的期初余额
      dzdMb_f = 0                                     'cuidong 对账单+外币 2001.12.04  账户定义中的期初余额
      dzdMb_f = dzdMb_f + GetZhYe_F(mAccID, datFrom) 'cuidong 对账单+外币 2001.12.04
   Else                          '账务系统
      dzdMb = Cal_Wbzh(sqlItem, mAccID)
      dzdMb_f = Cal_Wbzh(sqlItem, mAccID, True)        'cuidong 对账单+外币 2001.12.04
   End If
   On Error GoTo ExitSub
   Set mRecordset = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
   PrepareData = True
   Exit Function
ExitSub:
   PrepareData = False
End Function

'********************************************************************
'*函数说明: 从总账账户取数                                            *
'*参    数: sqlX : SQL 语句                                          *
'*                                                                   *
'*返回值  : 期初余额                                                  *
'*********************************************************************
Private Function Cal_Wbzh(sqlX As String, dqjszh As String, Optional ByVal bMoney_F As Boolean = False) As Double
   Dim sqlCale    As String
   Dim strUnion   As String
   Dim rsCale     As New UfRecordset
   Dim sqlItem    As String
   Dim rsItem     As New UfRecordset
   Dim bPropty    As Boolean
   Dim mQc        As Double
   Dim lngZhPrp   As Long
   
   sqlItem = "SELECT * FROM FD_AccSet WHERE [cAccID] = '" & dqjszh & "'"
   Set rsItem = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
   strUnion = "": sqlX = ""
   With rsItem
   While Not .EOF
      lngZhPrp = GetZhDir(dqjszh, ![cCode])
      ZhDir = lngZhPrp
      bPropty = GetKmPropty(![cCode])
      If IsNull(![cdeptcode]) And IsNull(![cPersonCode]) And IsNull(![cCusCode]) And IsNull(![cSupCode]) And IsNull(![cItem_id]) And IsNull(![citem_class]) Then
'         mQc = mQc + lngZhPrp * GetKmQC(![cCode], bPropty)          'cuidong 对账单+外币 2001.12.04
         mQc = mQc + lngZhPrp * GetKmQC(![cCode], bPropty, bMoney_F) 'cuidong 对账单+外币 2001.12.04
      Else
'         mQc = mQc + lngZhPrp * GetKmQC_Fz(![cCode], bPropty, ![cdeptcode], ![cPersonCode], ![cCusCode], ![cSupCode], ![cItem_id], ![citem_class])          'cuidong 对账单+外币 2001.12.04
         mQc = mQc + lngZhPrp * GetKmQC_Fz(![cCode], bPropty, ![cdeptcode], ![cPersonCode], ![cCusCode], ![cSupCode], ![cItem_id], ![citem_class], bMoney_F) 'cuidong 对账单+外币 2001.12.04
      End If
''''''      sqlCale = "SELECT Sum([md]-[mc]) AS todayMb " & _
''''''         "FROM GL_accVouch " & _
''''''         "WHERE [ccode] LIKE '" & ![cCode] & "%' AND iperiod >= 1 And iperiod <=12 AND " & _
''''''         "IIf(" & IsNull(!cdeptcode) & ", True, [cdept_id] LIKE '" & !cdeptcode & "%') AND " & _
''''''         "IIf(" & IsNull(!cPersonCode) & ", True, [cperson_id] = '" & !cPersonCode & "') AND " & _
''''''         "IIf(" & IsNull(!cCusCode) & ", True, [ccus_id] = '" & !cCusCode & "') AND " & _
''''''         "IIf(" & IsNull(!cSupCode) & ", True, [csup_id] = '" & !cSupCode & "') AND " & _
''''''         "IIf(" & IsNull(!cItem_id) & ", True, [citem_id] = '" & !cItem_id & "') AND " & _
''''''         "IIf(" & IsNull(!citem_class) & ", True, [citem_class] = '" & !citem_class & "') " & _
''''''         "AND [iflag] IS NULL AND [dbill_date]<#" & FormatDate(datFrom) & "#"
      If bMoney_F Then                                     'cuidong 对账单+外币 2001.12.04
         sqlCale = "SELECT Sum([md_f]-[mc_f]) AS todayMb " 'cuidong 对账单+外币 2001.12.04
      Else                                                 'cuidong 对账单+外币 2001.12.04
         sqlCale = "SELECT Sum([md]-[mc]) AS todayMb "
      End If                                               'cuidong 对账单+外币 2001.12.04
      sqlCale = sqlCale & _
         "FROM GL_accVouch " & _
         "WHERE [ccode] LIKE '" & ![cCode] & "%' AND iperiod >= 1 And iperiod <=12 AND " & _
         IIf(IsNull(!cdeptcode), " 1=1 ", " [cdept_id] LIKE '" & !cdeptcode & "%'") + " AND " & _
         IIf(IsNull(!cPersonCode), " 1=1 ", "[cperson_id] = '" & !cPersonCode & "'") + " AND " & _
         IIf(IsNull(!cCusCode), " 1=1 ", "[ccus_id] = '" & !cCusCode & "'") + " AND " & _
         IIf(IsNull(!cSupCode), " 1=1 ", "[csup_id] = '" & !cSupCode & "'") + " AND " & _
         IIf(IsNull(!cItem_id), " 1=1 ", "[citem_id] = '" & !cItem_id & "'") + " AND " & _
         IIf(IsNull(!citem_class), " 1=1 ", "[citem_class] = '" & !citem_class & "'") & _
         "AND [iflag] IS NULL AND [dbill_date]<'" & FormatDate(datFrom) & "'"

      Set rsCale = dbsZJ.OpenRecordset(sqlCale, dbOpenSnapshot)
      mQc = mQc + IIf(IsNull(rsCale![todayMb]), 0, lngZhPrp * rsCale![todayMb])
      
'''''      sqlX = sqlX & strUnion & "SELECT [csign] AS Fieldx, " & _
'''''         "[iperiod] AS Fieldy, [ibook] AS fColor, " & _
'''''         "Year([dbill_date]) AS Field0, " & _
'''''         "Month([dbill_date]) AS Field1, " & _
'''''         "Day([dbill_date]) AS Field2, " & _
'''''         "[ino_id] AS Field3, " & _
'''''         "[cdigest] AS Field4, " & _
'''''         "[md] AS Field5, " & _
'''''         "[mc] AS Field6, " & _
'''''         "IIf(" & bPropty & ",'借','贷') AS Field7 " & _
'''''         "FROM GL_accvouch " & _
'''''         "WHERE [ccode] LIKE '" & ![cCode] & "%' AND iperiod >= 1 And iperiod <=12 AND " & _
'''''         "IIf(" & IsNull(!cdeptcode) & ", True, [cdept_id] LIKE '" & !cdeptcode & "%') AND " & _
'''''         "IIf(" & IsNull(!cPersonCode) & ", True, [cperson_id] = '" & !cPersonCode & "') AND " & _
'''''         "IIf(" & IsNull(!cCusCode) & ", True, [ccus_id] = '" & !cCusCode & "') AND " & _
'''''         "IIf(" & IsNull(!cSupCode) & ", True, [csup_id] = '" & !cSupCode & "') AND " & _
'''''         "IIf(" & IsNull(!cItem_id) & ", True, [citem_id] = '" & !cItem_id & "') AND " & _
'''''         "IIf(" & IsNull(!citem_class) & ", True, [citem_class] = '" & !citem_class & "') " & _
'''''         "AND [iflag] IS NULL AND [dbill_date] >= #" & FormatDate(datFrom) & "# AND [dbill_date] <= #" & _
'''''         FormatDate(datTo) & "#"
' sqlX = sqlX & strUnion & "SELECT [csign] AS Fieldx, " & _
         "[iperiod] AS Fieldy, [ibook] AS fColor, " & _
         "Year([dbill_date]) AS Field0, " & _
         "Month([dbill_date]) AS Field1, " & _
         "Day([dbill_date]) AS Field2, " & _
         "[ino_id] AS Field3, " & _
         "[cdigest] AS Field4, " & _
         "[md] AS Field5, " & _
         "[mc] AS Field6, " & _
         IIf(bPropty, " '借' ", " '贷' ") + " AS Field7 " & _
         "FROM GL_accvouch " & _
         "WHERE [ccode] LIKE '" & ![cCode] & "%' AND iperiod >= 1 And iperiod <=12 AND " & _