If e.DataCol.name = "出入库日期"
If e.DataRow.IsNull("出入库日期") Then
e.DataRow("已出库天数") = Nothing
Else
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出入库日期"))
e.DataRow("已出库天数") = Math.Round(tp.TotalDays / 1,0)
End If
End If
If e.DataCol.name = "入库数量" OrElse e.DataCol.name = "出库数量"
If e.DataRow("批号") = ""
Else
Dim re As Boolean = False
For Each dr As DataRow In DataTables("批号表").DataRows
If dr("批号") = e.DataRow("批号") And dr("物料编号") = e.DataRow("物料编号") Then
dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量") + dr("库存数量") - e.OldValue
dr("批号变动记录") = Date.now & " " & User.Name
dr("库存数量变动记录") = Date.now & " " & User.Name
re = True
Exit For
Else
Continue For
End If
Next
If re =False
Dim dr As DataRow
dr = DataTables("批号表").AddNew()
dr("批号") = e.DataRow("批号")
dr("物料编号") = e.DataRow("物料编号")
dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量")
dr("批号变动记录") = Date.now & " " & User.Name
dr("库存数量变动记录") = Date.now & " " & User.Name
End If
End If
End If
Select Case e.DataCol.Name
Case "物料编号","入库数量","出库数量"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[出入库日期] <= #" & mr("出入库日期") & "# And [物料编号] = '" & mr("物料编号") & "'", "出入库日期,出入原因 desc,出入库单号")
If dr("_Identify") = mr("_Identify") Then
mr("余数") = mr("入库数量") + mr("出库数量")
dr = mr
End If
drs = e.DataTable.Select("[出入库日期] >= #" & dr("出入库日期") & "# And [物料编号] = '" & dr("物料编号") & "'", "出入库日期,出入原因 desc,出入库单号")
For i As Integer = 1 To drs.Count - 1
drs(i)("余数") = drs(i-1)("余数") + drs(i)("入库数量") + drs(i)("出库数量")
Next
If e.DataCol.Name = "物料编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[出入库日期] <= #" & mr("出入库日期") & "# And [物料编号] = '" & e.OldValue & "'", "出入库日期,出入原因 desc,出入库单号")
If dr Is Nothing Then
dr = e.DataTable.Find("[物料编号] = '" & e.OldValue & "'", "出入库日期,出入原因 desc,出入库单号")
If dr IsNot Nothing Then
dr("余数") = dr("入库数量") + dr("出库数量")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[出入库日期] >= #" & dr("出入库日期") & "# And [物料编号] = '" & dr("物料编号") & "'", "出入库日期,出入原因 desc,出入库单号")
For i As Integer = 1 To drs.Count - 1
drs(i)("余数") = drs(i-1)("余数") + drs(i)("入库数量") + drs(i)("出库数量")
Next
End If
End If
Case "物料编号","指令单号"
Dim dr As DataRow =e.DataRow
dr("变更记录") = e.oldvalue & "更改为" & e.newvalue & " " & Date.Now() & User.name
End Select
加好友 
发短信
Post By：2017/8/23 17:26:00 [显示全部帖子]
