From 59aa189abd954fc6b97a9f10d0049ee08953610e Mon Sep 17 00:00:00 2001
From: jiwonRepair <ahrns1@naver.com>
Date: Tue, 5 Aug 2025 10:20:18 +0900
Subject: [PATCH] fix : CtMaxResult As String, If CtMaxResult = False

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

diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb
index 1488bbd..81211ba 100644
--- a/MAXIMUM_Product_Program/MainForm.vb
+++ b/MAXIMUM_Product_Program/MainForm.vb
@@ -2904,9 +2904,9 @@ FailLoad:
             DBCmd = "SELECT IFNULL(max(Ct_SN),0) FROM " & ApplyNonTDDB & " WHERE Ct_Manufacture_Year = '" & NowYear & "' AND Ct_Manufacture_Month = '" & NowMonth & "' AND Ct_SN LIKE '" & ClassCode & ColorCode & "%' AND Ct_Model = '" & txbPDModel.Text & "' AND Ct_SN > 100000 AND (Ct_Type = '" & txbPDType.Text & "' OR Ct_Type = 'SET')"
         End If
 
-        Dim CtMaxResult As Integer = DBQueryScalar(DBCmd)
+        Dim CtMaxResult As String = DBQueryScalar(DBCmd)
 
-        If CtMaxResult = 0 Then
+        If CtMaxResult = "False" Then
             MsgBox("최대값을 불러올 수 없습니다.", vbCritical)
             Return "NULL"
         End If
diff --git a/업데이트 내역.txt b/업데이트 내역.txt
index 15f4bfd..f35ee37 100644
--- a/업데이트 내역.txt	
+++ b/업데이트 내역.txt	
@@ -1,4 +1,6 @@
 1. program ver 1.1.12
 2. DBQueryScalar(DBCmd) 의 값이 count인 경우 integer로 받도록 수정
 	- "False" 를 0으로 변경
+	-  Dim CtMaxResult As String = DBQueryScalar(DBCmd)
+	-  If CtMaxResult = "False" Then
 3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제