jionmt-sw/shpmt-OrderPackingProcessor
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 10 Wiki Activity

Main_Product_SN, Main_FACE_SN, Main_EYE_SN 시리얼 연결 문자를 / 로 처리

Browse Source
This commit is contained in:
KwakJooYoung 2025-10-02 13:40:11 +09:00
parent 3009b8ba40
commit 42ea52d341
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
SalesPacking_MES_API_Project/mainForm.vb
View File

@ -7,7 +7,7 @@ Imports Newtonsoft.Json.Linq
Public Class mainForm Public Class mainForm
Public projectName As String = "DUALSONIC SalesPacking MES Program Ver." 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" Private apiItemOutURL As String = "item-outflows/page"
@ -2957,29 +2957,29 @@ Public Class mainForm
If setSerial = Nothing Then If setSerial = Nothing Then
setSerial = prodInSerial(prodDB.luxset) setSerial = prodInSerial(prodDB.luxset)
Else Else
setSerial = setSerial & "," & prodInSerial(prodDB.luxset) setSerial = setSerial & "/" & prodInSerial(prodDB.luxset)
End If End If
End If End If
End If End If
If setSerial <> Nothing Then If setSerial <> Nothing Then
Dim slashCount As Int16 = UBound(Split(setSerial, ",")) Dim slashCount As Int16 = UBound(Split(setSerial, "/"))
fullCode = setSerial fullCode = setSerial
For i = 0 To slashCount For i = 0 To slashCount
If i = slashCount Then If i = slashCount Then
searchCode = Mid(fullCode, 1, fullCode.Length) searchCode = Mid(fullCode, 1, fullCode.Length)
Else Else
searchCode = Mid(fullCode, 1, InStr(fullCode, ",") - 1) searchCode = Mid(fullCode, 1, InStr(fullCode, "/") - 1)
fullCode = Mid(fullCode, InStr(fullCode, ",") + 1, fullCode.Length) fullCode = Mid(fullCode, InStr(fullCode, "/") + 1, fullCode.Length)
End If End If
DBCmd = "SELECT FaceCart_SN,EyeCart_SN FROM " & applyProdDB & " WHERE Product_SN = '" & searchCode & "'" DBCmd = "SELECT FaceCart_SN,EyeCart_SN FROM " & applyProdDB & " WHERE Product_SN = '" & searchCode & "'"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
If faceSerial <> Nothing And eyeSerial <> Nothing Then If faceSerial <> Nothing And eyeSerial <> Nothing Then
faceSerial = faceSerial & "," & sqlDataQuery(0) faceSerial = faceSerial & "/" & sqlDataQuery(0)
eyeSerial = eyeSerial & "," & sqlDataQuery(1) eyeSerial = eyeSerial & "/" & sqlDataQuery(1)
Else Else
faceSerial = sqlDataQuery(0) faceSerial = sqlDataQuery(0)
eyeSerial = sqlDataQuery(1) eyeSerial = sqlDataQuery(1)