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