jionmt-sw/shpmt-PackingCodeRemover
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

시리얼번호가 없는 패킹 정보 삭제 오류 수정

Browse Source
This commit is contained in:
KwakJooYoung 2025-12-16 13:30:53 +09:00
parent 4b4a09dc4a
commit bb517b087a
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
MySqlModule.vb
View File

@ -1,5 +1,6 @@
Imports MySql.Data ' 데이터베이스 연동을 위한 네임스페이스 추가 Imports MySql.Data ' 데이터베이스 연동을 위한 네임스페이스 추가
Imports MySql.Data.MySqlClient ' MYSQL Server용 네임스페이스 추가 Imports MySql.Data.MySqlClient
Imports MySqlConnector ' MYSQL Server용 네임스페이스 추가
Module MySqlModule Module MySqlModule
Private Const ServerIP As String = "192.168.0.250" Private Const ServerIP As String = "192.168.0.250"
Private Const DataBaseName As String = "jomtTesterDB" Private Const DataBaseName As String = "jomtTesterDB"

2
frmMySqlTest.Designer.vb generated
View File

@ -344,7 +344,7 @@ Partial Class frmMySqlTest
Me.Controls.Add(Me.btnReadDB) Me.Controls.Add(Me.btnReadDB)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMySqlTest" Me.Name = "frmMySqlTest"
Me.Text = "PackingCodeRemover V2.0.0" Me.Text = "PackingCodeRemover V2.0.1"
Me.gb_pack.ResumeLayout(False) Me.gb_pack.ResumeLayout(False)
Me.gb_state.ResumeLayout(False) Me.gb_state.ResumeLayout(False)
Me.gb_state.PerformLayout() Me.gb_state.PerformLayout()

7
frmMySqlTest.vb
View File

@ -441,7 +441,7 @@ Public Class frmMySqlTest
Private Sub delete_packingCode() Private Sub delete_packingCode()
Dim msg_cnt As Int16 Dim msg_cnt As Int16
Dim serial_data As String Dim serial_data As String = Nothing
msg_cnt = MsgBox("해당 패킹 및 전표 데이터를 삭제하시겠습니까?", vbExclamation + vbOKCancel) msg_cnt = MsgBox("해당 패킹 및 전표 데이터를 삭제하시겠습니까?", vbExclamation + vbOKCancel)
If msg_cnt = 1 Then If msg_cnt = 1 Then
@ -695,11 +695,16 @@ Public Class frmMySqlTest
Private Function pack_delete(serial As String) As Boolean Private Function pack_delete(serial As String) As Boolean
If serial <> Nothing Then
dbcmd = "UPDATE " & sales_db & dbcmd = "UPDATE " & sales_db &
" SET PackingCode = 'null_" & txb_pack_code.Text & "' " SET PackingCode = 'null_" & txb_pack_code.Text & "'
, " & command_serial & " = NULL , " & command_serial & " = NULL
, note = '" & serial & "' , note = '" & serial & "'
WHERE PackingCode = '" & txb_pack_code.Text & "'" 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 If DBCommand(dbcmd) Then
Return True Return True
End If End If