diff --git a/OrderPackingProcessor/mainForm.vb b/OrderPackingProcessor/mainForm.vb index 9930df7..8ec2e2d 100644 --- a/OrderPackingProcessor/mainForm.vb +++ b/OrderPackingProcessor/mainForm.vb @@ -8,7 +8,7 @@ Imports Newtonsoft.Json.Linq Public Class mainForm Public projectName As String = "OrderPackingProcessor Ver." - Public projectVer As String = "3.0.3" + Public projectVer As String = "3.0.4" Private apiItemOutURL As String = "item-outflows/page" @@ -3457,6 +3457,7 @@ Public Class mainForm If oybtn.Checked Then Return False End If + DBCmd = "SELECT COUNT(PackingCode) FROM " & applySalesDB & " WHERE PackingCode = '" & choiceNum & "'" If Val(DBQueryScalar(DBCmd)) > 0 Then @@ -3680,7 +3681,9 @@ Public Class mainForm If prodArray(itemCode.serialNum, i) = Nothing Then prodArray(itemCode.serialNum, i) = playCode Else - prodArray(itemCode.serialNum, i) = prodArray(itemCode.serialNum, i) & "/" & playCode + If Not olivYoungList.Any(Function(v) v.Value = playCode) Then + prodArray(itemCode.serialNum, i) = prodArray(itemCode.serialNum, i) & "/" & playCode + End If End If prodArray(itemCode.type, i) = regType