From 035a352293c45400c6dffe6d3e3ed164630bbf9e Mon Sep 17 00:00:00 2001 From: KwakJooYoung Date: Wed, 26 Nov 2025 11:51:23 +0900 Subject: [PATCH] =?UTF-8?q?16=EC=9E=90=EB=A6=AC=20=EC=8B=9C=EB=A6=AC?= =?UTF-8?q?=EC=96=BC=EB=B2=88=ED=98=B8=20=EB=B0=94=EC=BD=94=EB=93=9C=20?= =?UTF-8?q?=EC=8A=A4=EC=BA=94=20=EC=8B=9C=20=EC=9E=85=EB=A0=A5=EB=AA=A8?= =?UTF-8?q?=EB=93=9C=20=EC=9E=90=EB=8F=99=EC=9C=BC=EB=A1=9C=20=EC=A0=84?= =?UTF-8?q?=ED=99=98=EB=90=98=EB=8F=84=EB=A1=9D=20=EC=88=98=EC=A0=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- MAXIMUM_Product_Program/MainForm.vb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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