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

fix: txbNgCount가 증가하던 로직을 감소하도록 수정 (불량 수량 감소 처리)

Browse Source
This commit is contained in:
kje97 2025-06-24 17:38:28 +09:00
parent 36c8c427b3
commit d00c7a1a2f
1 changed files with 48 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
ProductFunctionTester/Main_Form.vb
View File

@ -78,7 +78,7 @@ Public Class Main_Form
Private StartSwitch As Boolean
Private TDSNHead1 As String = "DIT"
Private TDSNHead2 As String = "J3"
Private TDSNHead2 As String = "J"
Private Const TestType As String = "SET"
Private Const TestModel As String = "MAXIMUM"
@ -5260,6 +5260,29 @@ 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
@ -5269,15 +5292,32 @@ ProcessEnd:
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
' 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
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
' 일반 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
End If
End If
End If