시리얼번호 재입력시에 12자리, 16자리 인식하도록 수정

This commit is contained in:
KwakJooYoung 2025-11-26 11:04:29 +09:00
parent b32997eb5b
commit b243a07355

View File

@ -398,7 +398,7 @@ Public Class MainForm
Private Sub FormSetting() Private Sub FormSetting()
Const ProgramName As String = "Product Program Ver_" Const ProgramName As String = "Product Program Ver_"
Const VersionNum As String = "2.0.0" Const VersionNum As String = "2.0.1"
Me.Text = ProgramName & VersionNum Me.Text = ProgramName & VersionNum
Me.Size = New Size(1920, 1050) Me.Size = New Size(1920, 1050)
@ -819,9 +819,10 @@ FailFunc:
Else Else
Const SearchLength As Int16 = 12 Const oldSearchLength As Int16 = 12
Const newSearchLength As Int16 = 16
If SearchData.Length <> SearchLength Then If SearchData.Length <> oldSearchLength And SearchData.Length <> newSearchLength Then
MsgBox("잘못된 제품 코드입니다. 확인하여 주십시오.", vbExclamation) MsgBox("잘못된 제품 코드입니다. 확인하여 주십시오.", vbExclamation)
GoTo FailFunc GoTo FailFunc
End If End If