MAXIMUM_Product_Program/MainForm.vb

@@ -1,9 +1,8 @@
 Imports System.IO
 Imports System.IO.Ports
-Imports System.Math
 Imports System.Text
 Imports System.Threading
-Imports Microsoft.VisualBasic.ApplicationServices
+Imports System.Math
 
 Public Class MainForm
     Private Const TDMaxLength As Int16 = 10
@@ -560,7 +559,7 @@ Public Class MainForm
 
     Private Sub FormSetting()
         Const ProgramName As String = "Product Program Ver_"
-        Const VersionNum As String = "1.1.12"
+        Const VersionNum As String = "1.1.6"
 
         Me.Text = ProgramName & VersionNum
         Me.Size = New Size(1920, 1050)
@@ -890,7 +889,7 @@ FailFunc:
             DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyNonTDDB & " WHERE Product_SN = '" & SerialNum & "'"
         End If
 
-        Dim UseCheck As Integer = DBQueryScalar(DBCmd)
+        Dim UseCheck As String = DBQueryScalar(DBCmd)
 
         If UseCheck = 0 Then
             Return True
@@ -950,7 +949,6 @@ FailFunc:
 
 
     Private Sub ProdInputFunc(sender As Object, e As EventArgs, SearchData As String)
-        Dim userID As String = ""
 
         StepReset()
         ValueReset()
@@ -1261,7 +1259,7 @@ FinishFunc:
 
                     If ProdRegData(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text) Then
                         If ShotReg(0) Then
-                            If ShotSearch() = "0" Then 'If ShotSearch() = "False" Then 'hjw test
+                            If ShotSearch() = "False" Then 'If ShotSearch() = 0 Then
                                 If DBProdReg(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text, 0) Then
                                     If TraySuccess() Then
 
@@ -1284,7 +1282,7 @@ FinishFunc:
                                 End If
                             Else
                                 MsgBox("샷 수 정보 확인 실패 !", vbCritical)
-                                MsgBox("통신 포트 연결을 확인하세요", vbExclamation, "포트 연결 확인")
+                                MsgBox("통신 포트 연결을 확인하세요", vbCritical)
                                 GoTo LoadFail
                             End If
                         Else
@@ -1466,7 +1464,7 @@ FinishFunc:
 
     Private Function CreateSerialCompare(SerialNum As String) As Boolean
         DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
-        Dim CompareData As Integer = DBQueryScalar(DBCmd)
+        Dim CompareData As String = DBQueryScalar(DBCmd)
         If CompareData > 0 Then
             Return False
         End If
@@ -3157,7 +3155,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 Integer = DBQueryScalar(DBCmd)
+        Dim BeforeData As String = DBQueryScalar(DBCmd)
         If BeforeData > 0 Then
             Return True  ''있을 경우
         Else

MAXIMUM_Product_Program/mySQLModule.vb

@@ -65,7 +65,7 @@ Module mySQLModule
             Return True
 
         Catch ex As Exception
-            MsgBox("MySQL Command Error:" + vbCrLf + Err.Description + "debug : " + cmdStr)
+            MsgBox("MySQL Command Error:" + vbCrLf + Err.Description)
             DBClose()
             Return False
         End Try

업데이트 내역.txt

@@ -1,6 +1,11 @@
-1. program ver 1.1.12
+1. "작업 시간을 초과화였습니다." 에러 수정
-2. DBQueryScalar(DBCmd) 의 값이 count인 경우 integer로 받도록 수정
+ 1) 재현경로:
-	- "False" 를 0으로 변경
+   - "정보 입력중" 상태에서 통신 포트 연결이 끊어질 경우
-	-  Dim CtMaxResult As String = DBQueryScalar(DBCmd)
+
-	-  If CtMaxResult = "False" Then
+ 2) 에러 발생 사유:
-3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제
+   - 문자열을 경우 정수 값과 비교 하면 처리 되지 않은 예외 발생
+
+ 3) 수정 내용:
+   - If ShotSearch() = 0 Then ->  If ShotSearch() = "False"
+
+2. program version 1.1.6