fix : DBQueryScalar(DBCmd) modify 0 to False

This commit is contained in:
jiwonRepair 2025-08-05 10:07:36 +09:00
parent 1b81964399
commit 46ce8de7e8
2 changed files with 4 additions and 3 deletions

View File

@ -1467,7 +1467,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 Integer = DBQueryScalar(DBCmd) Dim CompareData As Integer = DBQueryScalar(DBCmd)
If CompareData > "False" Then If CompareData > 0 Then
Return False Return False
End If End If
@ -2906,7 +2906,7 @@ FailLoad:
Dim CtMaxResult As Integer = DBQueryScalar(DBCmd) Dim CtMaxResult As Integer = DBQueryScalar(DBCmd)
If CtMaxResult = "False" Then If CtMaxResult = 0 Then
MsgBox("최대값을 불러올 수 없습니다.", vbCritical) MsgBox("최대값을 불러올 수 없습니다.", vbCritical)
Return "NULL" Return "NULL"
End If End If

View File

@ -1,3 +1,4 @@
1. program ver 1.1.12 1. program ver 1.1.12
2. DBQueryScalar(DBCmd) 의 값이 count인 경우 integer로 받도록 수정 2. DBQueryScalar(DBCmd) 의 값이 count인 경우 integer로 받도록 수정
- "False" 를 0으로 변경
3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제 3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제