From 42ea52d3416930c4f1510f6f8e8094c5306d0db4 Mon Sep 17 00:00:00 2001 From: KwakJooYoung Date: Thu, 2 Oct 2025 13:40:11 +0900 Subject: [PATCH] =?UTF-8?q?Main=5FProduct=5FSN,=20Main=5FFACE=5FSN,=20Main?= =?UTF-8?q?=5FEYE=5FSN=20=EC=8B=9C=EB=A6=AC=EC=96=BC=20=EC=97=B0=EA=B2=B0?= =?UTF-8?q?=20=EB=AC=B8=EC=9E=90=EB=A5=BC=20/=20=EB=A1=9C=20=EC=B2=98?= =?UTF-8?q?=EB=A6=AC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SalesPacking_MES_API_Project/mainForm.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/SalesPacking_MES_API_Project/mainForm.vb b/SalesPacking_MES_API_Project/mainForm.vb index ba01350..9206d82 100644 --- a/SalesPacking_MES_API_Project/mainForm.vb +++ b/SalesPacking_MES_API_Project/mainForm.vb @@ -7,7 +7,7 @@ Imports Newtonsoft.Json.Linq Public Class mainForm Public projectName As String = "DUALSONIC SalesPacking MES Program Ver." - Public projectVer As String = "1.2.0" + Public projectVer As String = "1.2.1" Private apiItemOutURL As String = "item-outflows/page" @@ -2957,29 +2957,29 @@ Public Class mainForm If setSerial = Nothing Then setSerial = prodInSerial(prodDB.luxset) Else - setSerial = setSerial & "," & prodInSerial(prodDB.luxset) + setSerial = setSerial & "/" & prodInSerial(prodDB.luxset) End If End If End If If setSerial <> Nothing Then - Dim slashCount As Int16 = UBound(Split(setSerial, ",")) + Dim slashCount As Int16 = UBound(Split(setSerial, "/")) fullCode = setSerial For i = 0 To slashCount If i = slashCount Then searchCode = Mid(fullCode, 1, fullCode.Length) Else - searchCode = Mid(fullCode, 1, InStr(fullCode, ",") - 1) - fullCode = Mid(fullCode, InStr(fullCode, ",") + 1, fullCode.Length) + searchCode = Mid(fullCode, 1, InStr(fullCode, "/") - 1) + fullCode = Mid(fullCode, InStr(fullCode, "/") + 1, fullCode.Length) End If DBCmd = "SELECT FaceCart_SN,EyeCart_SN FROM " & applyProdDB & " WHERE Product_SN = '" & searchCode & "'" If DBQueryReader(DBCmd) Then If faceSerial <> Nothing And eyeSerial <> Nothing Then - faceSerial = faceSerial & "," & sqlDataQuery(0) - eyeSerial = eyeSerial & "," & sqlDataQuery(1) + faceSerial = faceSerial & "/" & sqlDataQuery(0) + eyeSerial = eyeSerial & "/" & sqlDataQuery(1) Else faceSerial = sqlDataQuery(0) eyeSerial = sqlDataQuery(1)