Select Case e.DataCol.name
Case "商品ID", "出库_数量"
If e.newvalue <> e.oldvalue Then '不是重置列
If e.DataRow("出库_数量") IsNot Nothing Then
Dim r As DataRow = e.DataRow
If e.DataCol.name = "出库_数量" AndAlso e.OldValue<> Nothing Then
Dim count As Integer = 0
Dim bhs = r("入库批次号").split(",")
Dim kcs = r("提取数量").split(",")
For i As Integer = 0 To bhs.length-1
Dim fdr As DataRow = DataTables("入库明细").find("入库单编号明细 = '" & bhs(i) & "'")
If fdr IsNot Nothing Then
fdr("出库") -= kcs(i)
End If
Next
End If
Dim sum As Double = DataTables("入库明细").compute("sum(库存)", "商品ID = '" & e.DataRow("商品ID") & "' And 库存状态 = '可出库'")
If sum < r("出库_数量") Then
msgbox("库存不够")
Else
'==================================
Dim count As Integer = 0
Dim cb As Double = 0
Dim drs As List(Of DataRow) = DataTables("入库明细").Select("商品ID = '" & e.DataRow("商品ID") & "' And 库存状态 = '可出库'", "入库日期, _Identify")
Dim s As String = ""
Dim K As String = ""
For i As Integer = 0 To drs.count - 1
Dim dr As DataRow = drs(i)
count += dr("库存")
Dim sy As Integer = count - r("出库_数量")
If sy >= 0 Then
cb += dr("入库_单价") * (dr("库存")-sy)
K &= dr("库存")-sy & ","
dr("出库") = dr("入库_数量") - sy
s &= dr("入库单编号明细") & ","
r("入库批次号") = s.trim(",")
r("提取数量") = K.trim(",")
r("成本") = cb
Exit For
Else
s &= dr("入库单编号明细") & ","
K &= dr("库存") & ","
cb += dr("入库_单价") * dr("库存")
dr("出库") = dr("入库_数量")
dr("库存") = 0
End If
Next
End If
End If
End If
End Select
加好友 
发短信
Post By：2018/8/14 10:32:00 [显示全部帖子]
此主题相关图片如下：图像 046.png
