From 46ce8de7e857b02b2b51d939c8573a65064369ab Mon Sep 17 00:00:00 2001
From: jiwonRepair <ahrns1@naver.com>
Date: Tue, 5 Aug 2025 10:07:36 +0900
Subject: [PATCH] fix : DBQueryScalar(DBCmd) modify 0 to False

---
 MAXIMUM_Product_Program/MainForm.vb | 4 ++--
 업데이트 내역.txt             | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb
index f9ce618..1488bbd 100644
--- a/MAXIMUM_Product_Program/MainForm.vb
+++ b/MAXIMUM_Product_Program/MainForm.vb
@@ -1467,7 +1467,7 @@ FinishFunc:
     Private Function CreateSerialCompare(SerialNum As String) As Boolean
         DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
         Dim CompareData As Integer = DBQueryScalar(DBCmd)
-        If CompareData > "False" Then
+        If CompareData > 0 Then
             Return False
         End If
 
@@ -2906,7 +2906,7 @@ FailLoad:
 
         Dim CtMaxResult As Integer = DBQueryScalar(DBCmd)
 
-        If CtMaxResult = "False" Then
+        If CtMaxResult = 0 Then
             MsgBox("최대값을 불러올 수 없습니다.", vbCritical)
             Return "NULL"
         End If
diff --git a/업데이트 내역.txt b/업데이트 내역.txt
index 661ddf9..15f4bfd 100644
--- a/업데이트 내역.txt	
+++ b/업데이트 내역.txt	
@@ -1,3 +1,4 @@
 1. program ver 1.1.12
 2. DBQueryScalar(DBCmd) 의 값이 count인 경우 integer로 받도록 수정
-3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제
\ No newline at end of file
+	- "False" 를 0으로 변경
+3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제