fix: 시리얼 번호 6자리 포맷 보정
This commit is contained in:
parent
d9a7527a91
commit
b6362d9888
@ -2689,8 +2689,14 @@ End_Finish:
|
|||||||
nudDvYear.Text = Mid(BackCode, 1, 2)
|
nudDvYear.Text = Mid(BackCode, 1, 2)
|
||||||
nudDvMonth.Text = Mid(BackCode, 3, 2)
|
nudDvMonth.Text = Mid(BackCode, 3, 2)
|
||||||
|
|
||||||
txbDvNumber.Text = FrontCode & BackCode
|
Dim front As String = BackCode.Substring(0, 4)
|
||||||
nudDvSerial.Text = Mid(BackCode, 5, 3) & Mid(BackCode, 8, 3)
|
Dim middle As String = BackCode.Substring(4, 3)
|
||||||
|
Dim last As String = BackCode.Substring(7, 3)
|
||||||
|
|
||||||
|
Dim swapped As String = front & last & middle
|
||||||
|
|
||||||
|
txbDvNumber.Text = FrontCode & swapped
|
||||||
|
nudDvSerial.Text = Mid(BackCode, 5, 6)
|
||||||
|
|
||||||
DevModelChecking(Mid(FrontCode, 1, 1))
|
DevModelChecking(Mid(FrontCode, 1, 1))
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user