diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index a7b392f..9525c17 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -2363,6 +2363,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_Motor_Lv = '" & txbMotor.Text & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbMtBox.Text = "SUCCESS" txbMtBox.BackColor = Color.Green GoTo End_Finish