From 9d5901c3ac3f86375523cbd945b26e90ca99f9fc Mon Sep 17 00:00:00 2001
From: jiwonRepair <ahrns1@naver.com>
Date: Fri, 25 Jul 2025 11:10:07 +0900
Subject: [PATCH] fix: string to number comparison

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

diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb
index bc502c2..4451990 100644
--- a/MAXIMUM_Product_Program/MainForm.vb
+++ b/MAXIMUM_Product_Program/MainForm.vb
@@ -1465,7 +1465,7 @@ FinishFunc:
     Private Function CreateSerialCompare(SerialNum As String) As Boolean
         DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
         Dim CompareData As String = DBQueryScalar(DBCmd)
-        If CompareData > 0 Then
+        If CompareData > "False" Then
             Return False
         End If
 
@@ -3156,7 +3156,7 @@ FailLoad:
     Private Function BeforeTrayData(NowYear As Int16, NowMonth As Int16) As Boolean
         DBCmd = "SELECT COUNT(UserID) FROM " & InfoRegStateDB & " WHERE UserID= '" & IDName & "' AND ModelNum = '" & ModelCode & "' AND TypeNum = '" & TypeCode & "' AND ColorNum = '" & ColorCode & "' AND UsageNum = '" & ClassCode & "' AND CreateYear = '" & NowYear & "' AND CreateMonth = '" & NowMonth & "'"
         Dim BeforeData As String = DBQueryScalar(DBCmd)
-        If BeforeData > 0 Then
+        If BeforeData > "False" Then
             Return True  ''있을 경우
         Else
             Return False  '' 없을 경우
diff --git a/업데이트 내역.txt b/업데이트 내역.txt
index 73551ae..47c8e94 100644
--- a/업데이트 내역.txt	
+++ b/업데이트 내역.txt	
@@ -1,2 +1 @@
-1. 샷정보 확인 중 통신 연결 문제 발생 시 메세지 박스 중복 출현 가능 하도록 수정
-2. program version 1.1.7
+1. 문자열과 숫자 타입 비교 코드 수정
\ No newline at end of file