Reviewed-on: #5
This commit is contained in:
commit
33ac7b37f0
@ -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