From efa2aab3cc0c85b0e3eb64053cb66998e58007bb Mon Sep 17 00:00:00 2001
From: kje97 <kje97@jionmeditech.com>
Date: Thu, 3 Jul 2025 13:40:46 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20RF=EB=AA=A8=EB=93=9C=20=EB=B6=88?=
 =?UTF-8?q?=ED=95=A9=EA=B2=A9=20=EC=8B=9C=EC=97=90=EB=8F=84=20=EC=B9=B4?=
 =?UTF-8?q?=EC=9A=B4=ED=8A=B8=20=EB=B0=8F=20=EC=A0=80=EC=9E=A5=20=EB=A1=9C?=
 =?UTF-8?q?=EC=A7=81=20=EC=B6=94=EA=B0=80?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

- ProcessEnd에서 RF_PostReg(), dbRFSave(), CountChanage() 호출
---
 ProductFunctionTester/Main_Form.vb | 41 +++++++++++++++++++++++++++++-
 1 file changed, 40 insertions(+), 1 deletion(-)

diff --git a/ProductFunctionTester/Main_Form.vb b/ProductFunctionTester/Main_Form.vb
index e446448..61afb45 100644
--- a/ProductFunctionTester/Main_Form.vb
+++ b/ProductFunctionTester/Main_Form.vb
@@ -4666,6 +4666,7 @@ ErrorEnd:
         End Try
 
 RunSuccess:
+        txbWindow.AppendText("=== 합격 데이터 저장 시작 ===" & vbCrLf)
         If RF_PostReg() Then
 
             txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
@@ -4710,9 +4711,47 @@ RunSuccess:
             txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
             FailMain()
         End If
-
+        txbWindow.AppendText("=== 합격 데이터 저장 완료 ===" & vbCrLf)
 ProcessEnd:
         Jig_End()
+        txbWindow.AppendText("=== 불합격 데이터 저장 시작 ===" & vbCrLf)
+        ' 불합격 시에도 전체 데이터 저장 로직 실행
+        If RF_PostReg() Then
+            txbWindow.AppendText("PostgreSQL Data Save (NG) : OK" & vbCrLf)
+
+            If dbRFSave() Then
+                txbWindow.AppendText("DB Data Save (NG) : OK" & vbCrLf)
+
+                If CountChanage() Then
+                    txbWindow.AppendText("Run Count Change Save (NG) : OK" & vbCrLf)
+                    Dim csvData As String = "" & TestData.Test_Serial & "," & NowDate & "," & NowTime & "," & TestData.Test_Firmware & "," & TestData.Test_RFVRMS(0) & "," & TestData.Test_RFFreq(0) & "," & TestData.Test_RFVRMS(1) & "," & TestData.Test_RFFreq(1) & "," & TestData.Test_RFVRMS(2) & "," & TestData.Test_RFFreq(2) & "," & TestData.Test_MCWidth(0) & "," & TestData.Test_MCVpp(0) & "," & TestData.Test_MCFreq(0) & "," & TestData.Test_MCWidth(1) & "," & TestData.Test_MCVpp(1) & "," & TestData.Test_MCFreq(1) & "," & TestData.Test_EPVpp(0) & "," & TestData.Test_EPFreq(0) & "," & TestData.Test_EPPWidth(0) & "," & TestData.Test_EPNWidth(0) & "," & TestData.Test_EPVpp(1) & "," & TestData.Test_EPFreq(1) & "," & TestData.Test_EPPWidth(1) & "," & TestData.Test_EPNWidth(1) & "," & TestData.Test_EPVpp(2) & "," & TestData.Test_EPFreq(2) & "," & TestData.Test_EPPWidth(2) & "," & TestData.Test_EPNWidth(2) & "," & TestError & ""
+
+                    If Save_Csv(csvData) Then
+                        txbWindow.AppendText("CSV Data Save (NG) : FAIL" & vbCrLf)
+                        FailMain()
+                    Else
+                        txbWindow.AppendText("CSV Data Save (NG) : OK" & vbCrLf)
+                        If TestError = False Then
+                            FailMain()
+                        Else
+                            SuccessMain()
+                        End If
+                    End If
+                Else
+                    txbWindow.AppendText("Run Count Change Save (NG) : FAIL" & vbCrLf)
+                    FailMain()
+                End If
+            Else
+                txbWindow.AppendText("DB Data Save (NG) : FAIL" & vbCrLf)
+                FailMain()
+            End If
+        Else
+            txbWindow.AppendText("PostgreSQL Data Save (NG) : FAIL" & vbCrLf)
+            FailMain()
+        End If
+
+        txbWindow.AppendText("=== 불합격 데이터 저장 완료 ===" & vbCrLf)
+
 NormalEnd:
         myscope.IO.Clear()
         'txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)