From bb517b087a2363f7303a5f2bc05381e4f78dde05 Mon Sep 17 00:00:00 2001
From: KwakJooYoung <jykwak719@gmail.com>
Date: Tue, 16 Dec 2025 13:30:53 +0900
Subject: [PATCH] =?UTF-8?q?=EC=8B=9C=EB=A6=AC=EC=96=BC=EB=B2=88=ED=98=B8?=
 =?UTF-8?q?=EA=B0=80=20=EC=97=86=EB=8A=94=20=ED=8C=A8=ED=82=B9=20=EC=A0=95?=
 =?UTF-8?q?=EB=B3=B4=20=EC=82=AD=EC=A0=9C=20=EC=98=A4=EB=A5=98=20=EC=88=98?=
 =?UTF-8?q?=EC=A0=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MySqlModule.vb           |  3 ++-
 frmMySqlTest.Designer.vb |  2 +-
 frmMySqlTest.vb          | 11 ++++++++---
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/MySqlModule.vb b/MySqlModule.vb
index b2105f8..53cc704 100644
--- a/MySqlModule.vb
+++ b/MySqlModule.vb
@@ -1,5 +1,6 @@
 Imports MySql.Data  ' 데이터베이스 연동을 위한 네임스페이스 추가
-Imports MySql.Data.MySqlClient  ' MYSQL Server용 네임스페이스 추가
+Imports MySql.Data.MySqlClient
+Imports MySqlConnector  ' MYSQL Server용 네임스페이스 추가
 Module MySqlModule
     Private Const ServerIP As String = "192.168.0.250"
     Private Const DataBaseName As String = "jomtTesterDB"
diff --git a/frmMySqlTest.Designer.vb b/frmMySqlTest.Designer.vb
index e65f407..b680562 100644
--- a/frmMySqlTest.Designer.vb
+++ b/frmMySqlTest.Designer.vb
@@ -344,7 +344,7 @@ Partial Class frmMySqlTest
         Me.Controls.Add(Me.btnReadDB)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmMySqlTest"
-        Me.Text = "PackingCodeRemover V2.0.0"
+        Me.Text = "PackingCodeRemover V2.0.1"
         Me.gb_pack.ResumeLayout(False)
         Me.gb_state.ResumeLayout(False)
         Me.gb_state.PerformLayout()
diff --git a/frmMySqlTest.vb b/frmMySqlTest.vb
index fe28b6c..396d13d 100644
--- a/frmMySqlTest.vb
+++ b/frmMySqlTest.vb
@@ -441,7 +441,7 @@ Public Class frmMySqlTest
 
     Private Sub delete_packingCode()
         Dim msg_cnt As Int16
-        Dim serial_data As String
+        Dim serial_data As String = Nothing
 
         msg_cnt = MsgBox("해당 패킹 및 전표 데이터를 삭제하시겠습니까?", vbExclamation + vbOKCancel)
         If msg_cnt = 1 Then
@@ -695,11 +695,16 @@ Public Class frmMySqlTest
 
     Private Function pack_delete(serial As String) As Boolean
 
-        dbcmd = "UPDATE " & sales_db &
-                  " SET PackingCode = 'null_" & txb_pack_code.Text & "'
+        If serial <> Nothing Then
+            dbcmd = "UPDATE " & sales_db &
+                      " SET PackingCode = 'null_" & txb_pack_code.Text & "'
                       , " & command_serial & " = NULL
                       , note = '" & serial & "' 
                   WHERE PackingCode = '" & txb_pack_code.Text & "'"
+        Else
+            dbcmd = "UPDATE " & sales_db & " SET PackingCode = 'null_" & txb_pack_code.Text & "' WHERE PackingCode = '" & txb_pack_code.Text & "'"
+        End If
+
         If DBCommand(dbcmd) Then
             Return True
         End If