Reviewed-on: #5
This commit is contained in:
commit
33ac7b37f0
@ -2689,8 +2689,14 @@ End_Finish:
|
||||
nudDvYear.Text = Mid(BackCode, 1, 2)
|
||||
nudDvMonth.Text = Mid(BackCode, 3, 2)
|
||||
|
||||
txbDvNumber.Text = FrontCode & BackCode
|
||||
nudDvSerial.Text = Mid(BackCode, 5, 3) & Mid(BackCode, 8, 3)
|
||||
Dim front As String = BackCode.Substring(0, 4)
|
||||
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))
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user