If dic2.ContainsKey(dr("PartNo")) Then
If dic2(dr("PartNo")) >= qty Then
dr("QC") = qty
dic2(dr("PartNo")) -= dr("QC")
ElseIf dic2(dr("PartNo")) > 0 Then
dr("QC") = dic2(dr("PartNo"))
dic2(dr("PartNo")) -= dr("QC")
End If
End If
dr("MissingQty") = dr("Stock")+dr("QC") -dr("OrderDemand")
If drr IsNot Nothing
dr("DeamndAfterStock") = drr("FQty") * dr("MissingQty") * -1
End If
Functions.Execute("sumChild",ary(0),qty, ary(0), dr("Date"),ary(2),1,dr("MissingQty"))
Next
函数
Dim pn As String = args(0)
Dim qty As String = args(1)
Dim idx As Integer = args(5)
Dim MissingQty As Integer = args(6)
Dim dic1 = vars("dic1")
Dim dic2 = vars("dic2")
For Each dr As DataRow In DataTables("BOM").Select("FNumber='" & pn & "'")
Dim ndr As DataRow = DataTables("物料需求").AddNew
ndr("PartNo") = dr("PN")
ndr("Date") = args(3)
ndr("批号") = args(4)
ndr("OrderDemand") = dr("FQty") * qty
ndr("层次") = "第" & idx & "层"
ndr("DeamndAfterStock") = dr("FQty") * MissingQty*-1
……
Functions.Execute("sumChild",dr("PN"),ndr("OrderDemand"), args(2), args(3), args(4),idx+1,MissingQty )
Next
加好友 
发短信
Post By：2019/7/13 8:46:00 [显示全部帖子]
