From b6362d988809c0513ed6f7da1ff147adbac9926e Mon Sep 17 00:00:00 2001 From: ssy99 Date: Thu, 8 May 2025 11:06:47 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20=EC=8B=9C=EB=A6=AC=EC=96=BC=20=EB=B2=88?= =?UTF-8?q?=ED=98=B8=206=EC=9E=90=EB=A6=AC=20=ED=8F=AC=EB=A7=B7=20?= =?UTF-8?q?=EB=B3=B4=EC=A0=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index e48376c..708dfe4 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -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))