16자리 시리얼번호 바코드 스캔 시 입력모드 자동으로 전환되도록 수정

MAXIMUM_Product_Program/MainForm.vb

@@ -14,6 +14,9 @@ Public Class MainForm
     Private TDSNHead1 As String = "DIT"
     Private TDSNHead2 As String = "J"
 
+    Const oldSearchLength As Int16 = 12
+    Const newSearchLength As Int16 = 16
+
     Private DBCmd As String
     Private tmpCmdMessage As String
     Private rxMessage, cmdMessage As String
@@ -117,7 +120,7 @@ Public Class MainForm
 
                 Select Case NowMode
                     Case ModeList.Prod_Input
-                        If InStr(txbPVSN.Text, "[START]") > 0 Or txbPVSN.Text.Length = 12 Then
+                        If InStr(txbPVSN.Text, "[START]") > 0 Or txbPVSN.Text.Length = oldSearchLength Or txbPVSN.Text.Length = newSearchLength Then
                             btnEnter_Click(sender, e)
                         End If
                     Case ModeList.TDRecycle
@@ -818,10 +821,6 @@ FailFunc:
             TraySerialSetting()
 
         Else
-
-            Const oldSearchLength As Int16 = 12
-            Const newSearchLength As Int16 = 16
-
             If SearchData.Length <> oldSearchLength And SearchData.Length <> newSearchLength Then
                 MsgBox("잘못된 제품 코드입니다. 확인하여 주십시오.", vbExclamation)
                 GoTo FailFunc