From ac895bb01d9f9fb3c8f30afd3e2cf147d3f740d8 Mon Sep 17 00:00:00 2001 From: KwakJooYoung Date: Tue, 23 Sep 2025 11:20:29 +0900 Subject: [PATCH] =?UTF-8?q?=EB=AC=B8=EC=A0=9C=EC=A0=90=20:=20=EA=B0=99?= =?UTF-8?q?=EC=9D=80=20prodCode=EC=9D=98=20=EC=A3=BC=EB=AC=B8=EC=83=81?= =?UTF-8?q?=ED=92=88=EC=9D=84=20=EB=93=B1=EB=A1=9D=ED=95=98=EB=A9=B4=20?= =?UTF-8?q?=EB=A7=88=EC=A7=80=EB=A7=89=EC=9C=BC=EB=A1=9C=20=EB=93=B1?= =?UTF-8?q?=EB=A1=9D=ED=95=9C=20=EC=83=81=ED=92=88=EC=9D=98=20=EC=A0=95?= =?UTF-8?q?=EB=B3=B4=EB=A7=8C=20=ED=8C=A8=ED=82=B9=EC=B9=B4=EC=9A=B4?= =?UTF-8?q?=EB=93=9C=20=ED=85=8C=EC=9D=B4=EB=B8=94=EC=97=90=20=EC=A0=80?= =?UTF-8?q?=EC=9E=A5=EB=90=A8=20=EC=9B=90=EC=9D=B8=20:=20prodCode=20?= =?UTF-8?q?=EC=A0=95=EB=B3=B4=EB=A5=BC=20=EA=B8=B0=EC=A4=80=EC=9C=BC?= =?UTF-8?q?=EB=A1=9C=20=EA=B7=B8=EB=83=A5=20=EC=93=B0=EA=B8=B0=20=EC=B2=98?= =?UTF-8?q?=EB=A6=AC=EB=90=98=EC=96=B4,=20=EC=9D=B4=EC=A0=84=20=EC=A0=95?= =?UTF-8?q?=EB=B3=B4=EB=A5=BC=20overwrite=ED=95=98=EC=98=80=EC=9D=8C=20?= =?UTF-8?q?=ED=95=B4=EA=B2=B0=20:=20prodCode=20=EC=A0=95=EB=B3=B4=EA=B0=80?= =?UTF-8?q?=20=EC=9E=88=EB=8A=94=20=EA=B2=BD=EC=9A=B0=20=EC=B6=94=EA=B0=80?= =?UTF-8?q?=EB=90=98=EB=8A=94=20=EC=A0=95=EB=B3=B4=EC=97=90=20=EB=8C=80?= =?UTF-8?q?=ED=95=B4=20=EC=B6=94=EA=B0=80=ED=95=98=EB=8F=84=EB=A1=9D=20?= =?UTF-8?q?=EC=B2=98=EB=A6=AC=ED=95=A8.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SalesPacking_MES_API_Project/mySQLAddress.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/SalesPacking_MES_API_Project/mySQLAddress.vb b/SalesPacking_MES_API_Project/mySQLAddress.vb index c65420e..21ded80 100644 --- a/SalesPacking_MES_API_Project/mySQLAddress.vb +++ b/SalesPacking_MES_API_Project/mySQLAddress.vb @@ -199,15 +199,19 @@ Public Function packingCountset(dbType As Int16, prodCode As Int16, ckCount As Int16, serial As String) If dbType = dbCode.prodDBcode Then If prodCode >= prodDB.proset And prodCode <= prodDB_max_index Then - prodInCount(prodCode) = ckCount - prodInSerial(prodCode) = serial + prodInCount(prodCode) += ckCount + If prodInSerial(prodCode) = Nothing Then + prodInSerial(prodCode) = serial + Else + prodInSerial(prodCode) = prodInSerial(prodCode) & "/" & serial + End If Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) Return True End If Else If prodCode >= comDB.mask5 And prodCode <= comDB_max_index Then - comInCount(prodCode) = ckCount + comInCount(prodCode) += ckCount Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) Return True