jionmt-sw/prod-ProductFunctionTester
5
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

fix: 카운트 로직 재수정

Browse Source
This commit is contained in:
kje97 2025-06-26 11:22:59 +09:00
parent 0fb6973e93
commit 807e56c508
1 changed files with 7 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
ProductFunctionTester/Main_Form.vb
View File

@ -5361,29 +5361,6 @@ ProcessEnd:
txbOkCount.Text = Val(txbOkCount.Text) + 1 txbOkCount.Text = Val(txbOkCount.Text) + 1
End Sub 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() Private Sub RFReCount()
If dupDATA = 0 Then If dupDATA = 0 Then
txbDayCount.Text = Val(txbDayCount.Text) + 1 txbDayCount.Text = Val(txbDayCount.Text) + 1
@ -5393,32 +5370,15 @@ ProcessEnd:
txbNgCount.Text = Val(txbNgCount.Text) + 1 txbNgCount.Text = Val(txbNgCount.Text) + 1
End If End If
Else Else
' formType에 따라 다른 로직 적용 If TDDataSet(TD_Data.TestStep) = TestStepList.Rf_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.RF_ReFail Then
If formType = formTypeList.altoPD Then If processNum = TestStepList.RF_NewSuc Or processNum = TestStepList.Rf_ReSuc Then
' Alto PD의 경우 Alto 관련 TestStep 사용 txbOkCount.Text = Val(txbOkCount.Text) + 1
If TDDataSet(TD_Data.TestStep) = TestStepList.Rf_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.RF_ReFail Then txbNgCount.Text = Val(txbNgCount.Text) - 1
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
Else Else
' 일반 RF의 경우 RF 관련 TestStep 사용 If processNum = TestStepList.Rf_NewFail Or processNum = TestStepList.RF_ReFail Then
If TDDataSet(TD_Data.TestStep) = TestStepList.Rf_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.RF_ReFail Then txbOkCount.Text = Val(txbOkCount.Text) - 1
If processNum = TestStepList.RF_NewSuc Or processNum = TestStepList.Rf_ReSuc Then txbNgCount.Text = Val(txbNgCount.Text) + 1
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
End If End If
End If End If
End If End If