Product_Manager/MainForm.vb

@@ -1611,6 +1611,7 @@ End_Finish:
 
     Private Sub MAXIMUM_AreaWriteFunc()
         Dim StageCnt As Int16 = ErrorList.NonError
+
         Try
             If AreaWriteStart() Then
                 StageCnt = ErrorList.DataError
@@ -1619,6 +1620,7 @@ End_Finish:
 
             Dim ResultData As String = ReadInfo()
 
+
             If ResultData = Str(ErrorList.SendError) Or ResultData = Str(ErrorList.ReceiveError) Then
                 StageCnt = ResultData
                 GoTo FAIL_Finish
@@ -1637,6 +1639,38 @@ 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
+
+
+                Dim dataBase = UseCartridgeTbl
+
+                If SelectModel.Equals(ModelList.ALTO) Then
+                    dataBase = NonCartridgeTbl
+                End If
+
+                DBCmd = "UPDATE " & dataBase & " 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