diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 6e8db83..7f5533a 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -1622,6 +1622,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_Abroad = '" & txbAbroad.Text.Trim() & "', " & + "Ct_Agency = '" & txbAgency.Text.Trim() & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbAreaBox.Text = "SUCCESS" txbAreaBox.BackColor = Color.Green GoTo End_Finish