|
Dim t1 As Table = Tables("自购物项基础数据表")
Dim t2 As Table = Tables("自购物项基础数据表.出库")
Dim t3 As Table = Tables("库存报表")
Dim n1 As Integer = t1.Rows.Count
Dim n2 As Integer
For n2 = 0 To n1-1
Tables("自购物项基础数据表").Position = n2
Dim r1 As Row = t1.Current
t3.AddNew
Dim r3 As Row = t3.Current
r3("物项代码") = r1("物项代码")
r3("物项名称") = r1("物项名称")
r3("规格型号") = r1("规格型号及其他参数")
r3("材质") = r1("材质或牌号")
r3("炉批号") = r1("炉批号或产品编号")
r3("单位") = r1("单位ZW")
r3("单价") = r1("单价")
r3("结存数量") = r1("账面结存数量")
r3("结存金额") = r1("账面余额")
Dim rq1 As Date = r1("正式入库日期")
Dim rq11 As Integer = rq1.Month
Dim rq12 As Integer = rq1.Year
Dim rq2 As Date = Date.Now
Dim rq21 As Integer = rq2.Month
Dim rq22 As Integer = rq2.Year
If rq11 = rq21 And rq12 = rq22 Then
r3("期初数量") = 0
r3("期初金额") = 0
r3("入库数量") = r1("数量ZW")
r3("入库金额") = r1("金额")
Dim n4 As Integer = t2.Rows.Count
Dim n41 As Integer
Dim n42 As Double
Dim n43 As Single
If n4>0 Then
For n41 = 0 To n4-1
Dim r2 As Row = t2.Rows(n41)
n42 = n42 + r2("出库数量")
n43 = n43 + r2("金额")
Next
r3("出库数量") = n42
r3("出库金额") = n43
Else
r3("出库数量") = 0
r3("出库金额") = 0
End If
Else
Dim n3 As Integer = t2.Rows.Count
Dim n31 As Integer
Dim n32 As Double
Dim n321 As Double
Dim n33 As Single
Dim n331 As Single
If n3>0 Then
For n31 = 0 To n3-1
Dim r2 As Row = t2.Rows(n31)
Dim rq3 As Date = r2("出库日期")
Dim rq31 As Integer = rq3.Month
Dim rq32 As Integer = rq3.Year
Dim rq4 As Date = Date.Now
Dim rq41 As Integer = rq4.Month
Dim rq42 As Integer = rq4.Year
If rq31 = rq41 And rq32 = rq42 Then
n32 = n32 + r2("出库数量")
n33 = n33 + r2("金额")
End If
Next
r3("期初数量") = r1("账面结存数量") + n32
r3("期初金额") = r1("账面余额") + n33
r3("入库数量") = 0
r3("入库金额") = 0
r3("出库数量") = n32
r3("出库金额") = n33
Else
r3("期初数量") = r1("账面结存数量")
r3("期初金额") = r1("账面余额")
r3("入库数量") = 0
r3("入库金额") = 0
r3("出库数量") = 0
r3("出库金额") = 0
End If
End If
Next
Dim nx As Integer = 1
For Each dr As Row In Tables("库存报表").Rows
dr("序号")=nx
nx=nx+1
Next
Dim nx1 As Integer = Tables("库存报表").Rows.Count
Dim nx2 As Integer
Dim nx3 As Single
Dim nx4 As Single
Dim nx5 As Single
Dim nx6 As Single
For nx2 = 0 To nx1-1
Dim rx As Row = t3.Rows(nx2)
nx3 = nx3 + rx("期初金额")
nx4 = nx4 + rx("入库金额")
nx5 = nx5 + rx("出库金额")
nx6 = nx6 + rx("结存金额")
Next
Tables("库存报表").AddNew
Dim rx1 As Row = t3.Current
rx1("期初金额") = nx3
rx1("入库金额") = nx4
rx1("出库金额") = nx5
rx1("结存金额") = nx6
rx1("炉批号") = "合计"
| 
加好友 
发短信
Post By：2017/1/22 13:22:00 [显示全部帖子]
