From 367abad21a3d22b1771f9726bdaea95c45b4e7f1 Mon Sep 17 00:00:00 2001
From: ssy99 <ssy99@jionmeditech.com>
Date: Wed, 7 May 2025 14:48:06 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20Dualsonic=20=EC=A0=9C=ED=92=88=20?=
 =?UTF-8?q?=EC=8B=9C=EB=A6=AC=EC=96=BC=EB=B2=88=ED=98=B8=20=EA=B4=80?=
 =?UTF-8?q?=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8=20?=
 =?UTF-8?q?=EA=B8=B0=EB=8A=A5=20=EC=B6=94=EA=B0=80?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Product_Manager/MainForm.vb | 39 ++++++++++++++++++++++++++++++++-----
 1 file changed, 34 insertions(+), 5 deletions(-)

diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb
index 9525c17..6e8db83 100644
--- a/Product_Manager/MainForm.vb
+++ b/Product_Manager/MainForm.vb
@@ -462,8 +462,8 @@ End_Finish:
                 GoTo FAIL_Finish
             End If
 
-            Dim ModelCode As Int16 = ModelSetting()
-            Dim TypeCode As Int16 = TypeSetting()
+            Dim ModelCode As ModelList = ModelSetting()
+            Dim TypeCode As TypeList = TypeSetting()
 
             If ModelCode = ModelList.MAX_Model Or TypeCode = TypeList.MAXType Then
                 MsgBox("존재하지 않는 모델 및 타입 코드입니다. 체크된 내용을 확인하여 주십시오.", vbCritical, FormName)
@@ -561,11 +561,10 @@ End_Finish:
                 GoTo FAIL_Finish
             End If
 
-            SerialValue = ModelCode & TypeCode & nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3)
-            txbIfNumber.Text = SerialValue
+            txbIfNumber.Text = CInt(ModelCode) & CInt(TypeCode) & nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3)
 
             tmpCmdMessage = "cartsn"
-            cmdMessage = "[sb" & tmpCmdMessage & " " & SerialValue & "]"
+            cmdMessage = "[sb" & tmpCmdMessage & " " & txbIfNumber.Text & "]"
 
             If SendData(cmdMessage) Then
                 StageCnt = ErrorList.SendError
@@ -579,6 +578,36 @@ End_Finish:
                 GoTo FAIL_Finish
             End If
 
+            If ckbDBUse.Checked = True Then
+                Dim TDNameStr = TDNameLoad()
+
+                If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then
+                    MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName)
+                    StageCnt = TDNameStr
+                    GoTo FAIL_Finish
+                End If
+
+                Dim DBExist As Boolean = TDNameDBLoad(TDNameStr)
+
+                If DBExist = False Then
+                    MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName)
+                    StageCnt = ErrorList.ReceiveError
+                    GoTo FAIL_Finish
+                End If
+
+                Dim DBCmd = "UPDATE " & UseCartridgeTbl & " SET " &
+                            "Product_SN = '" & txbIfNumber.Text & "', " &
+                            "Ct_Manufacture_Name = '" & txbIfCode.Text & "', " &
+                            "Ct_Manufacture_Year = '" & nudIfYear.Value & "', " &
+                            "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " &
+                            "Ct_SN = '" & SerialValue & "', " &
+                            "Ct_Model = '" & ModelCode.ToString & "', " &
+                            "Ct_Type = '" & TypeCode.ToString & "', " &
+                            "WHERE PV_SN = '" & TDNameStr & "'"
+
+                DBCommand(DBCmd)
+            End If
+
             If DataResult <> "success" Then
                 StageCnt = ErrorList.ResultError
                 GoTo FAIL_Finish