From fb3bbdf43df14e81ef2a449d0c7bec3afee150ec Mon Sep 17 00:00:00 2001 From: hyelinjung Date: Tue, 24 Feb 2026 17:52:46 +0900 Subject: [PATCH] =?UTF-8?q?1.=20=EB=B3=B4=EA=B8=89=ED=98=95=20=EC=B2=B4?= =?UTF-8?q?=ED=97=98=EB=8B=A8=20=EC=B6=94=EA=B0=80=EB=A1=9C=20key=EC=97=90?= =?UTF-8?q?=20=EC=A4=91=EB=B3=B5=2088=EC=BD=94=EB=93=9C=20=EC=9E=85?= =?UTF-8?q?=EB=A0=A5=EB=90=98=EB=8A=94=20=EC=98=A4=EB=A5=98,=20=EC=A4=91?= =?UTF-8?q?=EB=B3=B5=20=EC=A0=9C=EA=B1=B0=ED=95=B4=20=ED=95=B4=EA=B2=B0=20?= =?UTF-8?q?2.=20db=20=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8=20=EA=B8=B0?= =?UTF-8?q?=EC=A4=80=20=EB=B3=B4=EA=B8=89=ED=98=95=20orderDB=EC=9D=98=20ge?= =?UTF-8?q?nuine=5Fdate=EA=B0=80=20null=EC=9D=B8=20=EB=8D=B0=EC=9D=B4?= =?UTF-8?q?=ED=84=B0=EB=8A=94=20=EB=AA=A8=EB=91=90=20=EC=97=85=EB=8D=B0?= =?UTF-8?q?=EC=9D=B4=ED=8A=B8(=EC=9D=B4=EC=A0=84=EC=97=90=EB=8A=94=20?= =?UTF-8?q?=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8=20=EC=9D=B4=EC=A0=84?= =?UTF-8?q?=EC=97=90=20genuine=5Fdate=EA=B0=80=20null=EC=9D=B8=EA=B2=BD?= =?UTF-8?q?=EC=9A=B0=EB=8A=94=20=EA=B3=84=EC=86=8D=20null=EB=A1=9C=20?= =?UTF-8?q?=EB=82=A8=EC=9D=8C)=203.=20=EB=B2=84=EC=A0=84=201.1.6?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Authentication Register Program/mainform.vb | 2 +- .../mySQLModule.vb | 27 ++++++++++--------- 2 files changed, 15 insertions(+), 14 deletions(-) diff --git a/Authentication Register Program/mainform.vb b/Authentication Register Program/mainform.vb index b413643..c1aed5a 100644 --- a/Authentication Register Program/mainform.vb +++ b/Authentication Register Program/mainform.vb @@ -5,7 +5,7 @@ Imports MySql.Data.MySqlClient Public Class mainform Private Sub mainform_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Me.Text = "DUALSONIC Authentication Register Program Ver 1.1.5" + Me.Text = "DUALSONIC Authentication Register Program Ver 1.1.6" lowProdListLoad() End Sub diff --git a/Authentication Register Program/mySQLModule.vb b/Authentication Register Program/mySQLModule.vb index eb4ae2b..13828f7 100644 --- a/Authentication Register Program/mySQLModule.vb +++ b/Authentication Register Program/mySQLModule.vb @@ -37,7 +37,7 @@ Module mySQLModule End Function Public Sub lowProdList(dic As Dictionary(Of String, String)) Using Conn As MySqlConnection = GetDBConn() - Dim cmd As New MySqlCommand("SELECT 88_Code, ModelNum, ColorNum FROM jomtTesterDB.jomtProdList WHERE 88_Code IS NOT NULL", Conn) + Dim cmd As New MySqlCommand("SELECT distinct 88_Code, ModelNum, ColorNum FROM jomtTesterDB.jomtProdList WHERE 88_Code IS NOT NULL", Conn) Using reader As MySqlDataReader = cmd.ExecuteReader() While reader.Read @@ -53,7 +53,7 @@ Module mySQLModule Dim getSerialCmd As New MySqlCommand("SELECT Serial_Number,Order_Code FROM jomtOrderDB.jomtOrderTbl WHERE Invoice_Number IS NOT NULL AND Serial_Number IS NOT NULL - AND ((LEFT(Serial_Number,1) < '8' AND LENGTH(Serial_Number) > 11 ) OR Serial_Number in (SELECT 88_Code FROM jomtTesterDB.jomtProdList WHERE 88_Code IS NOT NULL)) + AND ((LEFT(Serial_Number,1) < '8' AND LENGTH(Serial_Number) > 11 ) OR Serial_Number in (SELECT distinct 88_Code FROM jomtTesterDB.jomtProdList WHERE 88_Code IS NOT NULL)) AND genuine_date is null AND Shipment_Date = @date", conn) @@ -336,28 +336,29 @@ Module mySQLModule orderParams.Add("@ord" & i) Next Dim orderInClause As String = String.Join(", ", orderParams) - Dim serialInClause As String - Dim queryOrder As String - If serialFilterList.Count > 0 Then + Dim serialInClause As String = "" + '' 조건 충족 시: Serial_Number IN으로 주문 테이블 업데이트 + If serialFilterList.Count > 0 AndAlso productSnList.Count > 0 Then Dim serialParams As New List(Of String) For i As Integer = 0 To serialFilterList.Count - 1 serialParams.Add("@sno" & i) Next serialInClause = String.Join(", ", serialParams) - queryOrder = "UPDATE jomtOrderDB.jomtOrderTbl SET genuine_date = NOW() WHERE Order_Code IN (" & orderInClause & ") AND ((LEFT(Serial_Number,1) < '8' AND LENGTH(Serial_Number) > 11) OR Serial_Number IN (" & serialInClause & "))" - Else - queryOrder = "UPDATE jomtOrderDB.jomtOrderTbl SET genuine_date = NOW() WHERE Order_Code IN (" & orderInClause & ") AND (LEFT(Serial_Number,1) < '8' AND LENGTH(Serial_Number) > 11)" + Dim queryBySerial As String = "UPDATE jomtOrderDB.jomtOrderTbl SET genuine_date = NOW() WHERE Serial_Number IN (" & serialInClause & ") and genuine_date is null" + Using cmd As New MySqlCommand(queryBySerial, conn) + For i As Integer = 0 To serialFilterList.Count - 1 + cmd.Parameters.AddWithValue("@sno" & i, serialFilterList(i)) + Next + cmd.ExecuteNonQuery() + End Using End If + '' 공통: Order_Code IN + 시리얼 형식 조건으로 주문 테이블 업데이트 + Dim queryOrder As String = "UPDATE jomtOrderDB.jomtOrderTbl SET genuine_date = NOW() WHERE Order_Code IN (" & orderInClause & ") AND (LEFT(Serial_Number,1) < '8' AND LENGTH(Serial_Number) > 11)" Using cmd As New MySqlCommand(queryOrder, conn) For i As Integer = 0 To orderList.Count - 1 cmd.Parameters.AddWithValue("@ord" & i, orderList(i)) Next - If serialFilterList.Count > 0 Then - For i As Integer = 0 To serialFilterList.Count - 1 - cmd.Parameters.AddWithValue("@sno" & i, serialFilterList(i)) - Next - End If cmd.ExecuteNonQuery() End Using End Using