From fbbd9bbe347a54b5c30d8218b73c6a48efa1b86a Mon Sep 17 00:00:00 2001 From: jiwonRepair Date: Thu, 31 Jul 2025 17:44:21 +0900 Subject: [PATCH] fix : BeforeTrayData fucntion fix ( BeforeData > 0 ) --- MAXIMUM_Product_Program/MainForm.vb | 4 ++-- 업데이트 내역.txt | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb index 2278f73..ad9fd72 100644 --- a/MAXIMUM_Product_Program/MainForm.vb +++ b/MAXIMUM_Product_Program/MainForm.vb @@ -560,7 +560,7 @@ Public Class MainForm Private Sub FormSetting() Const ProgramName As String = "Product Program Ver_" - Const VersionNum As String = "1.1.10" + Const VersionNum As String = "1.1.11" Me.Text = ProgramName & VersionNum Me.Size = New Size(1920, 1050) @@ -3176,7 +3176,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 > "False" Then + If BeforeData > "0" Then Return True ''있을 경우 Else Return False '' 없을 경우 diff --git a/업데이트 내역.txt b/업데이트 내역.txt index 141a66e..7ff4c6b 100644 --- a/업데이트 내역.txt +++ b/업데이트 내역.txt @@ -1 +1,2 @@ 1. program ver 1.1.10 +2. BeforeTrayData fucntion fix ( BeforeData > "0" ) \ No newline at end of file