fix : DBQueryScalar(DBCmd) modify 0 to False
This commit is contained in:
parent
1b81964399
commit
46ce8de7e8
@ -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
|
||||||
|
@ -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 점검 코드 삭제
|
Loading…
x
Reference in New Issue
Block a user