From 1b4edfe99604cd1c5285fed256b668ba38f4544e Mon Sep 17 00:00:00 2001
From: ssy99 <ssy99@jionmeditech.com>
Date: Wed, 7 May 2025 11:09:41 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20Maximum,=20Alto,=20Effect=20=EC=A0=9C?=
 =?UTF-8?q?=ED=92=88=20=EC=8B=9C=EB=A6=AC=EC=96=BC=EB=B2=88=ED=98=B8=20?=
 =?UTF-8?q?=EA=B4=80=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8?=
 =?UTF-8?q?=20=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 | 53 ++++++++++++++++++++++++++++++++++---
 1 file changed, 49 insertions(+), 4 deletions(-)

diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb
index e48376c..52646af 100644
--- a/Product_Manager/MainForm.vb
+++ b/Product_Manager/MainForm.vb
@@ -654,12 +654,23 @@ End_Finish:
             End If
 
             txbIfNumber.Text = ModelCode & Mid(SerialValue, 1, 4) & Mid(SerialValue, 8, 3) & Mid(SerialValue, 5, 3)
-            Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3)
 
-            '여기에 Update TD 번호 조건 걸어서 넣기'
-            ' 변수 정리하고 어떤 칼럼인지 정리
-            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 = '" & cartridgeSerial & "', Ct_Model = 'MAXIMUM', Ct_Type = 'SET', Ct_Remain_ShotCnt = 0 WHERE PV_SN = '" & TDNameStr & "'"
+            If ckbDBUse.Checked = True Then
+                Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3)
 
+                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 = '" & cartridgeSerial & "', " &
+                            "Ct_Model = 'MAXIMUM', " &
+                            "Ct_Type = 'SET', " &
+                            "Ct_Remain_ShotCnt = 0 " &
+                            "WHERE PV_SN = '" & TDNameStr & "'"
+
+                DBCommand(DBCmd)
+            End If
 
             txbInfoBox.Text = "SUCCESS"
             txbInfoBox.BackColor = Color.Green
@@ -732,6 +743,23 @@ End_Finish:
 
             txbIfNumber.Text = ModelCode & Mid(SerialValue, 1, 4) & Mid(SerialValue, 8, 3) & Mid(SerialValue, 5, 3)
 
+            If ckbDBUse.Checked = True Then
+                Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3)
+
+
+                Dim DBCmd = "UPDATE " & NonCartridgeTbl & " SET " &
+                            "Product_SN = '" & txbIfNumber.Text & "', " &
+                            "Ct_Manufacture_Name = '" & txbIfCode.Text & "', " &
+                            "Ct_Manufacture_Year = '" & nudIfYear.Value & "', " &
+                            "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " &
+                            "Ct_SN = '" & cartridgeSerial & "', " &
+                            "Ct_Model = 'ALTO', " &
+                            "Ct_Type = 'SET' " &
+                            "WHERE PV_SN = '" & TDNameStr & "'"
+
+                DBCommand(DBCmd)
+            End If
+
             txbInfoBox.Text = "SUCCESS"
             txbInfoBox.BackColor = Color.Green
             GoTo End_Finish
@@ -803,6 +831,23 @@ End_Finish:
 
             txbIfNumber.Text = ModelCode & Mid(SerialValue, 1, 4) & Mid(SerialValue, 8, 3) & Mid(SerialValue, 5, 3)
 
+            If ckbDBUse.Checked = True Then
+                Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3)
+
+                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 = '" & cartridgeSerial & "', " &
+                            "Ct_Model = 'EFFECT', " &
+                            "Ct_Type = 'SET', " &
+                            "Ct_Remain_ShotCnt = 0 " &
+                            "WHERE PV_SN = '" & TDNameStr & "'"
+
+                DBCommand(DBCmd)
+            End If
+
             txbInfoBox.Text = "SUCCESS"
             txbInfoBox.BackColor = Color.Green
             GoTo End_Finish