From cc756e590b154092a515cbef98565b6ac303b962 Mon Sep 17 00:00:00 2001
From: ssy99 <ssy99@jionmeditech.com>
Date: Fri, 9 May 2025 14:02:48 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20=EB=AA=A8=ED=84=B0=20=EB=B0=B1=EB=9E=98?=
 =?UTF-8?q?=EC=89=AC=20=EC=93=B0=EA=B8=B0=20=EA=B8=B0=EB=8A=A5=20=EC=B6=94?=
 =?UTF-8?q?=EA=B0=80?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Product_Manager/MainForm.vb | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb
index bc9226f..a6eb2c7 100644
--- a/Product_Manager/MainForm.vb
+++ b/Product_Manager/MainForm.vb
@@ -2389,6 +2389,25 @@ End_Finish:
                 GoTo FAIL_Finish
             End If
 
+            ''************************************
+            ''*******    txbFront 발신    ********
+            ''************************************
+
+            tmpCmdMessage = "frontsen"
+            cmdMessage = "[sb" & tmpCmdMessage & " " & txbMotor.Text & "]"
+
+            If SendData(cmdMessage) Then
+                StageCnt = ErrorList.SendError
+                GoTo FAIL_Finish
+            End If
+
+            Dim DataResult As String = PollingReceiveData(1500)
+
+            If DataResult = "False" Then
+                StageCnt = ErrorList.ReceiveError
+                GoTo FAIL_Finish
+            End If
+
             txbMtBox.Text = "SUCCESS"
             txbMtBox.BackColor = Color.Green
             GoTo End_Finish
@@ -4157,8 +4176,8 @@ End_Finish:
             txbMesDate.Text = sqlDataQuery(12)
 
             Return True
-    Else
-    Return False
+        Else
+            Return False
     End If
     End Function