If e.DataCol.name = "SN" Then
Dim nms() As String = {"生产订单号码","工单行号","物料编码","物料名称","类别说明","产品批次","订单号","订单行号","客户","备注","软件版本","提示"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr1 As DataRow = DataTables("assemblyProduct").Find("deviceCode = '" & e.DataRow("SN") & "'")
If dr1 IsNot Nothing Then
Dim dr2 As DataRow = DataTables("assemblySubWorkOrder").Find("SID = '" & dr1("subWorkOrder") & "'")
If dr2 IsNot Nothing Then
e.DataRow("工单行号") = dr2("LineFlag")
Dim dr3 As DataRow = DataTables("assemblyWorkOrder").Find("Id = '" & dr2("workOrder") & "'")
If dr3 IsNot Nothing Then
e.DataRow("生产订单号码") = dr3("WorkOrderNo")
Dim dr4 As DataRow = DataTables("批量").Find("生产订单号码 = '" & e.DataRow("生产订单号码") & "' and 工单行号 = '" & e.DataRow("工单行号") & "'")
If dr4 IsNot Nothing Then
e.DataRow("物料编码") = dr4("物料编码")
e.DataRow("物料名称") = dr4("物料名称")
e.DataRow("类别说明") = dr4("类别说明")
e.DataRow("产品批次") = dr4("产品批次")
e.DataRow("订单号") = dr4("订单号")
e.DataRow("订单行号") = dr4("订单行号")
e.DataRow("客户") = dr4("客户")
e.DataRow("备注") = dr4("备注")
e.DataRow("软件版本") = dr4("软件版本")
Dim dr As DataRow = DataTables("U8物料数量汇总表").Find("入库单号 = '" & Vars("fckrkdh") & "' And 物料编码 = '" & e.DataRow("物料编码") & "'")
If dr IsNot Nothing Then
Dim fdr As DataRow = DataTables("非插卡收货扫描").Find("SN = '" & e.DataRow("SN") & "' And _Identify <> " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
If fdr("提示") = "收货重复扫描" Or fdr("提示") = "收货完成" Then
e.DataRow("数量") = 0
e.DataRow("提示") = "收货重复扫描"
e.DataRow.locked = True
End If
Else
If dr("比较结果") < 0 Then
msgbox(0)
e.DataRow("库位类别") = dr("库位类别")
e.DataRow("入库单号") = Vars("fckrkdh")
e.DataRow("数量") = 1
e.DataRow("提示") = "收货完成"
e.DataRow("收货完成时间") = Date.now
e.DataRow.locked = True
dr("实扫到数量") = dr("实扫到数量") + 1
msgbox(1)
ElseIf dr("比较结果") = 0 Then
msgbox(2)
e.DataRow("数量") = 0
e.DataRow("提示") = "收货已满"
e.DataRow.locked = True
msgbox(3)
End If
End If
Else
e.DataRow("数量") = 0
e.DataRow("提示") = "非本入库单物料"
e.DataRow.locked = True
End If
End If
End If
End If
Else
e.DataRow("提示") = "序列号不存在"
e.DataRow.locked = True
End If
End If
End If
加好友 
发短信
Post By：2016/1/22 10:54:00 [显示全部帖子]
