jionmt-sw/prod-SerialAssigner
4
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 11 Wiki Activity

ver2.0.2 : 16자리 시리얼번호 수동 입력 시 Ct_SN 오류 수정

Browse Source
This commit is contained in:
KwakJooYoung 2025-11-28 10:02:04 +09:00
parent 035a352293
commit cfd582b003
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
MAXIMUM_Product_Program/MainForm.vb
View File

@ -401,7 +401,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.1" Const VersionNum As String = "2.0.2"
Me.Text = ProgramName & VersionNum Me.Text = ProgramName & VersionNum
Me.Size = New Size(1920, 1050) Me.Size = New Size(1920, 1050)
@ -1108,9 +1108,13 @@ FinishFunc:
txbPDNum.Text = SerialNum txbPDNum.Text = SerialNum
Else Else
SerialNum = txbPDNum.Text SerialNum = txbPDNum.Text
If SerialNum.Length = oldSearchLength Then '12자리 시리얼번호
Dim FrontSetSerial As String = Mid(SerialNum, 7, 3) Dim FrontSetSerial As String = Mid(SerialNum, 7, 3)
Dim BackSetSerial As String = Mid(SerialNum, 10, 3) Dim BackSetSerial As String = Mid(SerialNum, 10, 3)
ProdCode = BackSetSerial & FrontSetSerial ProdCode = BackSetSerial & FrontSetSerial
ElseIf SerialNum.Length = newSearchLength Then '16자리 시리얼번호
ProdCode = Mid(SerialNum, 8, 6)
End If
End If End If
PrintFunc() PrintFunc()