From 807e56c5086cd1e667a8bf7450004d189d5c9b5a Mon Sep 17 00:00:00 2001
From: kje97 <kje97@jionmeditech.com>
Date: Thu, 26 Jun 2025 11:22:59 +0900
Subject: [PATCH] =?UTF-8?q?fix:=20=EC=B9=B4=EC=9A=B4=ED=8A=B8=20=EB=A1=9C?=
 =?UTF-8?q?=EC=A7=81=20=EC=9E=AC=EC=88=98=EC=A0=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 ProductFunctionTester/Main_Form.vb | 54 ++++--------------------------
 1 file changed, 7 insertions(+), 47 deletions(-)

diff --git a/ProductFunctionTester/Main_Form.vb b/ProductFunctionTester/Main_Form.vb
index ac2418d..ffb7460 100644
--- a/ProductFunctionTester/Main_Form.vb
+++ b/ProductFunctionTester/Main_Form.vb
@@ -5361,29 +5361,6 @@ ProcessEnd:
         txbOkCount.Text = Val(txbOkCount.Text) + 1
     End Sub
 
-    'Private Sub RFReCount()
-    '    If dupDATA = 0 Then
-    '        txbDayCount.Text = Val(txbDayCount.Text) + 1
-    '        If processNum = TestStepList.RF_NewSuc Or processNum = TestStepList.Rf_ReSuc Then
-    '            txbOkCount.Text = Val(txbOkCount.Text) + 1
-    '        Else
-    '            txbNgCount.Text = Val(txbNgCount.Text) + 1
-    '        End If
-    '    Else
-    '        If TDDataSet(TD_Data.TestStep) = TestStepList.Rf_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.RF_ReFail Then
-    '            If processNum = TestStepList.HF_NewSuc Or processNum = TestStepList.HF_ReSuc Then
-    '                txbOkCount.Text = Val(txbOkCount.Text) + 1
-    '                txbNgCount.Text = Val(txbNgCount.Text) - 1
-    '            End If
-    '        Else
-    '            If processNum = TestStepList.HF_NEWFail Or processNum = TestStepList.HF_ReFail Then
-    '                txbOkCount.Text = Val(txbOkCount.Text) - 1
-    '                txbNgCount.Text = Val(txbNgCount.Text) + 1
-    '            End If
-    '        End If
-    '    End If
-    'End Sub
-
     Private Sub RFReCount()
         If dupDATA = 0 Then
             txbDayCount.Text = Val(txbDayCount.Text) + 1
@@ -5393,32 +5370,15 @@ ProcessEnd:
                 txbNgCount.Text = Val(txbNgCount.Text) + 1
             End If
         Else
-            ' formType에 따라 다른 로직 적용
-            If formType = formTypeList.altoPD Then
-                ' Alto PD의 경우 Alto 관련 TestStep 사용
-                If TDDataSet(TD_Data.TestStep) = TestStepList.Rf_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.RF_ReFail Then
-                    If processNum = TestStepList.HF_NewSuc Or processNum = TestStepList.HF_ReSuc Then
-                        txbOkCount.Text = Val(txbOkCount.Text) + 1
-                        txbNgCount.Text = Val(txbNgCount.Text) - 1
-                    End If
-                Else
-                    If processNum = TestStepList.HF_NEWFail Or processNum = TestStepList.HF_ReFail Then
-                        txbOkCount.Text = Val(txbOkCount.Text) - 1
-                        txbNgCount.Text = Val(txbNgCount.Text) + 1
-                    End If
+            If TDDataSet(TD_Data.TestStep) = TestStepList.Rf_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.RF_ReFail Then
+                If processNum = TestStepList.RF_NewSuc Or processNum = TestStepList.Rf_ReSuc Then
+                    txbOkCount.Text = Val(txbOkCount.Text) + 1
+                    txbNgCount.Text = Val(txbNgCount.Text) - 1
                 End If
             Else
-                ' 일반 RF의 경우 RF 관련 TestStep 사용
-                If TDDataSet(TD_Data.TestStep) = TestStepList.Rf_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.RF_ReFail Then
-                    If processNum = TestStepList.RF_NewSuc Or processNum = TestStepList.Rf_ReSuc Then
-                        txbOkCount.Text = Val(txbOkCount.Text) + 1
-                        txbNgCount.Text = Val(txbNgCount.Text) - 1
-                    End If
-                Else
-                    If processNum = TestStepList.Rf_NewFail Or processNum = TestStepList.RF_ReFail Then
-                        txbOkCount.Text = Val(txbOkCount.Text) - 1
-                        txbNgCount.Text = Val(txbNgCount.Text) + 1
-                    End If
+                If processNum = TestStepList.Rf_NewFail Or processNum = TestStepList.RF_ReFail Then
+                    txbOkCount.Text = Val(txbOkCount.Text) - 1
+                    txbNgCount.Text = Val(txbNgCount.Text) + 1
                 End If
             End If
         End If