fix: 쿼리 문에 금일 날짜 조건 추가

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