도트 검사 함수에서 ldm 모델 db 테이블 따로 작성

MAXIMUM_FUNCTION_PROGRAM/mainForm.vb

@@ -1530,8 +1530,17 @@ DataFail:
     End Function
 
     Private Function prodSerialDot(prodSerial As String) As Boolean
+        Dim table As String
+
+        If LDMUseCompare Then
+            table = ApplyLdmDB
+        Else
+            table = applyCartDB
+        End If
+
         If TDUseCompare = True Or LDMUseCompare = True Then
-            DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & applyCartDB & " WHERE Product_SN = '" & prodSerial & "'"
+
+            DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & table & " WHERE Product_SN = '" & prodSerial & "'"
 
             If DBQueryReader(DBCmd) Then