ver2.0.2 : 16자리 시리얼번호 수동 입력 시 Ct_SN 오류 수정
This commit is contained in:
parent
035a352293
commit
cfd582b003
@ -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()
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user