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)