From 0ff58bc86598485f72ca8b6157061ee72bb8999b Mon Sep 17 00:00:00 2001
From: ssy99 <ssy99@jionmeditech.com>
Date: Wed, 7 May 2025 15:20:48 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20=EC=83=B7=20=EC=88=98=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 | 49 +++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb
index a76de8c..8b4f8b1 100644
--- a/Product_Manager/MainForm.vb
+++ b/Product_Manager/MainForm.vb
@@ -2714,6 +2714,31 @@ 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
+
+                DBCmd = "UPDATE " & UseCartridgeTbl & " SET " &
+                        "Ct_Remain_ShotCnt = '" & txbShot.Text & "' " &
+                        "Ct_Max_ShotCnt = '" & txbMaxShot.Text & "' " &
+                        "WHERE PV_SN = '" & TDNameStr & "'"
+
+                DBCommand(DBCmd)
+            End If
+
             txbShotBox.Text = "SUCCESS"
             txbShotBox.BackColor = Color.Green
             GoTo End_Finish
@@ -2743,6 +2768,30 @@ 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
+
+                DBCmd = "UPDATE " & UseCartridgeTbl & " SET " &
+                        "Ct_Remain_ShotCnt = '" & txbShot.Text & "' " &
+                        "WHERE PV_SN = '" & TDNameStr & "'"
+
+                DBCommand(DBCmd)
+            End If
+
             txbShotBox.Text = "SUCCESS"
             txbShotBox.BackColor = Color.Green
             GoTo End_Finish