시리얼번호 재입력시에 12자리, 16자리 인식하도록 수정
This commit is contained in:
parent
b32997eb5b
commit
b243a07355
@ -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
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user