From 45de258a3937b5d85db00412ab26cd8592454afc Mon Sep 17 00:00:00 2001
From: ssy99 <ssy99@jionmeditech.com>
Date: Wed, 7 May 2025 15:46:03 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20=EC=83=B7=20=EC=88=98=20=EA=B4=80?=
 =?UTF-8?q?=EB=A0=A8=20=EB=A1=9C=EC=A7=81=20ALTO=20=EC=A0=9C=ED=92=88=20?=
 =?UTF-8?q?=EB=B6=84=EB=A6=AC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Product_Manager/MainForm.vb | 76 ++++++++++++++++++++++++++++++++++---
 1 file changed, 71 insertions(+), 5 deletions(-)

diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb
index 3d4a6ed..b836849 100644
--- a/Product_Manager/MainForm.vb
+++ b/Product_Manager/MainForm.vb
@@ -1557,8 +1557,10 @@ End_Finish:
         Select Case SelectModel
             Case ModeList.DUALSONIC
                 DUALSONIC_AreaWriteFunc()
-            Case ModeList.MAXIMUM, ModeList.ALTO, ModeList.EFFECT
+            Case ModeList.MAXIMUM, ModeList.EFFECT
                 MAXIMUM_AreaWriteFunc()
+            Case ModeList.ALTO
+                ALTO_AreaWriteFunc()
             Case Else
                 MsgBox("잘못된 경로입니다.", vbCritical, FormName)
         End Select
@@ -1709,14 +1711,78 @@ End_Finish:
                     GoTo FAIL_Finish
                 End If
 
+                DBCmd = "UPDATE " & UseCartridgeTbl & " SET " &
+                        "Ct_Abroad = '" & txbAbroad.Text.Trim() & "', " &
+                        "Ct_Agency = '" & txbAgency.Text.Trim() & "' " &
+                        "WHERE PV_SN = '" & TDNameStr & "'"
 
-                Dim dataBase = UseCartridgeTbl
+                DBCommand(DBCmd)
+            End If
 
-                If SelectModel.Equals(ModelList.ALTO) Then
-                    dataBase = NonCartridgeTbl
+            txbAreaBox.Text = "SUCCESS"
+            txbAreaBox.BackColor = Color.Green
+            GoTo End_Finish
+
+        Catch ex As Exception
+            MsgBox("입력 진행 도중 에러 발생!" & vbCrLf & ex.Message, vbCritical, FormName)
+            GoTo FAIL_Finish
+        End Try
+
+FAIL_Finish:
+        txbAreaBox.Text = "ERROR" + Str(StageCnt)
+        txbAreaBox.BackColor = Color.Red
+End_Finish:
+        txbAreaBox.Refresh()
+    End Sub
+
+    Private Sub ALTO_AreaWriteFunc()
+        Dim StageCnt As Int16 = ErrorList.NonError
+
+        Try
+            If AreaWriteStart() Then
+                StageCnt = ErrorList.DataError
+                GoTo FAIL_Finish
+            End If
+
+            Dim ResultData As String = ReadInfo()
+
+
+            If ResultData = Str(ErrorList.SendError) Or ResultData = Str(ErrorList.ReceiveError) Then
+                StageCnt = ResultData
+                GoTo FAIL_Finish
+            End If
+
+            Dim Data1 As String = Mid(ResultData, 1, InStr(ResultData, ",") - 1)
+            ResultData = Mid(ResultData, InStr(ResultData, ",") + 1, ResultData.Length)
+            Dim Data2 As String = Mid(ResultData, 1, InStr(ResultData, ",") - 1)
+            ResultData = Mid(ResultData, InStr(ResultData, ",") + 1, ResultData.Length)
+            Dim Data3 As String = Mid(ResultData, 1, InStr(ResultData, ",") - 1)
+
+            ResultData = MAXInfoWrite(Data1, Data2, Data3, txbAbroad.Text, txbAgency.Text)
+
+            If ResultData = ErrorList.SendError Or ResultData = ErrorList.ReceiveError Then
+                StageCnt = ResultData
+                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
 
-                DBCmd = "UPDATE " & dataBase & " SET " &
+                Dim DBExist As Boolean = NonTDNameDBLoad(TDNameStr)
+
+                If DBExist = False Then
+                    MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName)
+                    StageCnt = ErrorList.ReceiveError
+                    GoTo FAIL_Finish
+                End If
+
+                DBCmd = "UPDATE " & NonCartridgeTbl & " SET " &
                         "Ct_Abroad = '" & txbAbroad.Text.Trim() & "', " &
                         "Ct_Agency = '" & txbAgency.Text.Trim() & "' " &
                         "WHERE PV_SN = '" & TDNameStr & "'"