From 8eb71fff9d47e1329d084b51de89af1f83ef7716 Mon Sep 17 00:00:00 2001 From: kje97 Date: Mon, 30 Jun 2025 17:20:31 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20=EC=BF=BC=EB=A6=AC=20=EB=AC=B8=EC=97=90?= =?UTF-8?q?=20=EA=B8=88=EC=9D=BC=20=EB=82=A0=EC=A7=9C=20=EC=A1=B0=EA=B1=B4?= =?UTF-8?q?=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ProductFunctionTester/Main_Form.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ProductFunctionTester/Main_Form.vb b/ProductFunctionTester/Main_Form.vb index ffb7460..accdb84 100644 --- a/ProductFunctionTester/Main_Form.vb +++ b/ProductFunctionTester/Main_Form.vb @@ -1906,7 +1906,8 @@ Public Class Main_Form End If For i = 0 To tableName.Length - 1 - DBCmd = "SELECT COUNT(PV_SN) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" + DBCmd = "SELECT COUNT(PV_SN) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" & + " AND DATE(TestDate) = CURDATE()" Dim DupYn As Int16 = DBQueryScalar(DBCmd) If DupYn > 0 Then @@ -4873,8 +4874,8 @@ NormalEnd: GoTo RunSuccess - Else - MsgBox("지그를 연결한 후 동작하여 주십시오.", vbCritical, Program_Name & Program_Version) + Else + MsgBox("지그를 연결한 후 동작하여 주십시오.", vbCritical, Program_Name & Program_Version) FailMain() GoTo NormalEnd End If