From cfd582b0036feac3e0b91dd69a81d82e11562e43 Mon Sep 17 00:00:00 2001 From: KwakJooYoung Date: Fri, 28 Nov 2025 10:02:04 +0900 Subject: [PATCH] =?UTF-8?q?ver2.0.2=20:=2016=EC=9E=90=EB=A6=AC=20=EC=8B=9C?= =?UTF-8?q?=EB=A6=AC=EC=96=BC=EB=B2=88=ED=98=B8=20=EC=88=98=EB=8F=99=20?= =?UTF-8?q?=EC=9E=85=EB=A0=A5=20=EC=8B=9C=20Ct=5FSN=20=EC=98=A4=EB=A5=98?= =?UTF-8?q?=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 | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb index ed7890f..b8b3ac3 100644 --- a/MAXIMUM_Product_Program/MainForm.vb +++ b/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 - Dim FrontSetSerial As String = Mid(SerialNum, 7, 3) - Dim BackSetSerial As String = Mid(SerialNum, 10, 3) - ProdCode = BackSetSerial & FrontSetSerial + 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()