diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb index fc65793..ed7890f 100644 --- a/MAXIMUM_Product_Program/MainForm.vb +++ b/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