시리얼번호 재입력시에 12자리, 16자리 인식하도록 수정

MAXIMUM_Product_Program/MainForm.vb

@@ -398,7 +398,7 @@ Public Class MainForm
 
     Private Sub FormSetting()
         Const ProgramName As String = "Product Program Ver_"
-        Const VersionNum As String = "2.0.0"
+        Const VersionNum As String = "2.0.1"
 
         Me.Text = ProgramName & VersionNum
         Me.Size = New Size(1920, 1050)
@@ -819,9 +819,10 @@ FailFunc:
 
         Else
 
-            Const SearchLength As Int16 = 12
+            Const oldSearchLength As Int16 = 12
+            Const newSearchLength As Int16 = 16
 
-            If SearchData.Length <> SearchLength Then
+            If SearchData.Length <> oldSearchLength And SearchData.Length <> newSearchLength Then
                 MsgBox("잘못된 제품 코드입니다. 확인하여 주십시오.", vbExclamation)
                 GoTo FailFunc
             End If