fix: string to number comparison

This commit is contained in:
jiwonRepair 2025-07-25 11:10:07 +09:00
parent 29e6e56846
commit 9d5901c3ac
2 changed files with 3 additions and 4 deletions

View File

@ -1465,7 +1465,7 @@ FinishFunc:
Private Function CreateSerialCompare(SerialNum As String) As Boolean Private Function CreateSerialCompare(SerialNum As String) As Boolean
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'" DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
Dim CompareData As String = DBQueryScalar(DBCmd) Dim CompareData As String = DBQueryScalar(DBCmd)
If CompareData > 0 Then If CompareData > "False" Then
Return False Return False
End If End If
@ -3156,7 +3156,7 @@ FailLoad:
Private Function BeforeTrayData(NowYear As Int16, NowMonth As Int16) As Boolean 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 & "'" 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) Dim BeforeData As String = DBQueryScalar(DBCmd)
If BeforeData > 0 Then If BeforeData > "False" Then
Return True ''있을 경우 Return True ''있을 경우
Else Else
Return False '' 없을 경우 Return False '' 없을 경우

View File

@ -1,2 +1 @@
1. 샷정보 확인 중 통신 연결 문제 발생 시 메세지 박스 중복 출현 가능 하도록 수정 1. 문자열과 숫자 타입 비교 코드 수정
2. program version 1.1.7