If e.KeyCode = Keys.Enter Then
Dim sl As Integer = Val(e.Sender.Text)
Dim bm As String = e.Form.Controls("材料编码1").text
If sl > 0 AndAlso bm > "" Then
Dim t As Table = e.Form.Controls("出库").Table
If t.DataTable.HasChanges Then
t.DataTable.save
End If
If DataTables("出入库明细").SQLGetValues("供应商名称", "成品编码='" & bm & "' And 入库类型= '在库'").count > 1 Then
Vars("bm") = bm
Forms("零件库临时窗口").Open
Forms("零件库临时窗口").Controls("成品编码1").text = Tables("零件库领料单_出库").current("成品编码")
Dim Filter1 As String
With Forms("零件库临时窗口").Controls("成品编码1")
If .Value IsNot Nothing Then
If Filter1 > "" Then
Filter1 = Filter1 & " And "
End If
Filter1 = Filter1 & "成品编码 = '" & .Value & "'"
End If
End With
If Filter1 > "" Then
Forms("零件库临时窗口").controls("Table1").Table.DataTable.LoadPage = 0
Forms("零件库临时窗口").controls("Table1").Table.DataTable.LoadFilter = "[入库类型] = '在库' and " & IIf(filter1 > "", filter1, "1=1")
Forms("零件库临时窗口").controls("Table1").Table.DataTable.Load
End If
End If
Dim filter As String = "成品编码='" & bm & "'And 入库类型= '在库' and 可出数量 > 0 "
If vars("供应商名称") > "" Then
filter = filter & " and 供应商名称='" & vars("供应商名称") & "'"
End If
Dim drs As List(Of DataRow) = DataTables("出入库明细").sqlSelect(filter, 10, "采购订单号 desc")
For Each dr As DataRow In drs
Dim dr1 As DataRow = t.DataTable.find("成品编码='" & bm & "' and 出库数量 is null")
If dr1 Is Nothing Then
dr1 = t.DataTable.addnew
dr1("成品编码") = dr("成品编码")
dr1("成品描述") = dr("成品描述")
End If
dr1("采购订单号") = dr("采购订单号")
dr1("供应商名称") = dr("供应商名称")
If dr("可出数量") >= sl Then
dr1("出库数量") = sl
dr("可出数量") = dr("可出数量") - sl
Exit For
Else
dr1("出库数量") = dr("可出数量")
sl = sl - dr("可出数量")
dr("可出数量") = 0
End If
Next
DataTables("出入库明细").SQLUpdate(drs)
End If
End If
加好友 
发短信
Post By：2022/12/14 13:49:00 [只看该作者]
此主题相关图片如下：1.png