From d510ba1d5094387bd1f2b201bb2c3c700059509e Mon Sep 17 00:00:00 2001 From: hyelinjung Date: Mon, 26 Jan 2026 09:10:07 +0900 Subject: [PATCH] =?UTF-8?q?1.=EB=B2=84=EC=A0=843.0.4=202.=EC=98=AC?= =?UTF-8?q?=EB=A6=AC=EB=B8=8C=EC=98=81=EC=9D=BC=20=EA=B2=BD=EC=9A=B0=20ord?= =?UTF-8?q?er=20=ED=85=8C=EC=9D=B4=EB=B8=94=20=EC=8B=9C=EB=A6=AC=EC=96=BC?= =?UTF-8?q?=20=EB=84=98=EB=B2=84=2088=EB=B0=94=EC=BD=94=EB=93=9C=EB=A1=9C?= =?UTF-8?q?=20=EC=A4=91=EB=B3=B5=20=EC=A0=81=EC=9A=A9=20=EC=95=88=ED=95=A8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OrderPackingProcessor/mainForm.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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