ver2.0.2 : 16자리 시리얼번호 수동 입력 시 Ct_SN 오류 수정

MAXIMUM_Product_Program/MainForm.vb

@@ -401,7 +401,7 @@ Public Class MainForm
 
     Private Sub FormSetting()
         Const ProgramName As String = "Product Program Ver_"
-        Const VersionNum As String = "2.0.1"
+        Const VersionNum As String = "2.0.2"
 
         Me.Text = ProgramName & VersionNum
         Me.Size = New Size(1920, 1050)
@@ -1108,9 +1108,13 @@ FinishFunc:
                         txbPDNum.Text = SerialNum
                     Else
                         SerialNum = txbPDNum.Text
+                        If SerialNum.Length = oldSearchLength Then      '12자리 시리얼번호
                             Dim FrontSetSerial As String = Mid(SerialNum, 7, 3)
                             Dim BackSetSerial As String = Mid(SerialNum, 10, 3)
                             ProdCode = BackSetSerial & FrontSetSerial
+                        ElseIf SerialNum.Length = newSearchLength Then  '16자리 시리얼번호
+                            ProdCode = Mid(SerialNum, 8, 6)
+                        End If
                     End If
 
                     PrintFunc()