feat: RF모드 불합격 시에도 카운트 및 저장 로직 추가
- ProcessEnd에서 RF_PostReg(), dbRFSave(), CountChanage() 호출
This commit is contained in:
parent
cc12d34496
commit
efa2aab3cc
@ -4666,6 +4666,7 @@ ErrorEnd:
|
|||||||
End Try
|
End Try
|
||||||
|
|
||||||
RunSuccess:
|
RunSuccess:
|
||||||
|
txbWindow.AppendText("=== 합격 데이터 저장 시작 ===" & vbCrLf)
|
||||||
If RF_PostReg() Then
|
If RF_PostReg() Then
|
||||||
|
|
||||||
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
txbWindow.AppendText("PostgreSQL Data Save : OK" & vbCrLf)
|
||||||
@ -4710,9 +4711,47 @@ RunSuccess:
|
|||||||
txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
|
txbWindow.AppendText("PostgreSQL Data Save : FAIL" & vbCrLf)
|
||||||
FailMain()
|
FailMain()
|
||||||
End If
|
End If
|
||||||
|
txbWindow.AppendText("=== 합격 데이터 저장 완료 ===" & vbCrLf)
|
||||||
ProcessEnd:
|
ProcessEnd:
|
||||||
Jig_End()
|
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:
|
NormalEnd:
|
||||||
myscope.IO.Clear()
|
myscope.IO.Clear()
|
||||||
'txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
'txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user