fix: HIFU 테스트 ProcessEnd, NgEnd 순서 변경
This commit is contained in:
parent
6ca3c7826c
commit
5bc2a13c72
@ -4062,6 +4062,7 @@ startFail:
|
||||
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub AltoFunctionPD()
|
||||
StartTime = MeasureTimeAll(MeasStart)
|
||||
|
||||
@ -5058,9 +5059,6 @@ RunSuccess:
|
||||
|
||||
End If
|
||||
txbWindow.AppendText("=== 합격 데이터 저장 완료 ===" & vbCrLf)
|
||||
ProcessEnd:
|
||||
Jig_End()
|
||||
GoTo NormalEnd
|
||||
NgEnd:
|
||||
txbWindow.AppendText("=== 불합격 데이터 저장 시작 ===" & vbCrLf)
|
||||
If HIFU_PostReg() Then
|
||||
@ -5081,15 +5079,8 @@ NgEnd:
|
||||
FailMain()
|
||||
|
||||
Else
|
||||
|
||||
txbWindow.AppendText("CSV Data Save : OK" & vbCrLf)
|
||||
|
||||
If TestError = False Then
|
||||
FailMain()
|
||||
Else
|
||||
SuccessMain()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
@ -5110,7 +5101,7 @@ NgEnd:
|
||||
|
||||
End If
|
||||
txbWindow.AppendText("=== 불합격 데이터 저장 완료 ===" & vbCrLf)
|
||||
|
||||
ProcessEnd:
|
||||
Jig_End()
|
||||
NormalEnd:
|
||||
txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)
|
||||
|
Loading…
x
Reference in New Issue
Block a user