systemready = false Dim dt1 As DataTable=DataTables("批发表") Dim dt2 As DataTable=DataTables("入库表") Dim dt3 As DataTable=DataTables("收缴表") dt1.LoadFilter = "month(单据日期) in (4,5,6)" dt2.LoadFilter = "month(单据日期) in (4,5,6)" dt1.load dt2.load If dt1.datacols.contains("月份") = False Then dt1.DataCols.add("月份", Gettype(Integer)) If dt2.datacols.contains("月份") = False Then dt2.DataCols.add("月份", Gettype(Integer)) For Each dr As DataRow In dt1.Select("") Dim d As Date = dr("单据日期") If d = Nothing Then dr("月份") = Nothing Else dr("月份") = d.Month End If Next For Each dr As DataRow In dt1.Select("") Dim d As Date = dr("单据日期") If d = Nothing Then dr("月份") = nothing Else dr("月份") = d.Month end if Next For Each dr As DataRow In DataTables("合同表").Select("") '第二季度应返数量 Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" ) Dim YFSL2 As Double = dt1.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" ) Dim YFSL3 As Double = dt2.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" ) Dim YFSL4 As Double = dt2.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" ) dr("第二季度应返数量") = YFSL1 + YFSL2+ YFSL3+ YFSL4 '第二季度应返金额 Dim YFJE1 As Double = dt1.Compute("sum(返利应返金额)", "返利编号 = '" & dr("财务编号") &"' And 月份 In (4,5,6)" ) Dim YFJE2 As Double = dt1.Compute("sum(高开应返金额)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" ) Dim YFJE3 As Double = dt2.Compute("sum(返利应返金额)", "返利编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" ) Dim YFJE4 As Double = dt2.Compute("sum(高开应返金额)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" ) dr("第二季度应返金额") = YFJE1 + YFJE2+ YFJE3+ YFJE4 '第二季度已返数量 dr("第二季度已返数量") = dt3.Compute("sum(收缴数量)", "财务编号 = '" & dr("财务编号") & "' and 返利季度='第2季度'" ) '第二季度已返金额 dr("第二季度已返金额") = dt3.Compute("sum(收缴金额)", "财务编号 = '" & dr("财务编号") & "' and 返利季度='第2季度'" ) '以下代码是计算第二季度计提数量 dr("第二季度计提数量") = dr("第二季度应返数量") +dr("第一季度计提数量") -dr("第二季度已返数量") '以下代码是计算第二季度计提金额 dr("第二季度计提金额") = dr("第二季度应返金额") +dr("第一季度计提金额") -dr("第二季度已返金额") Next systemready = true
|