금일 측정 수량 오류시 Reset 버튼 기능 추가 #5

New Issue

kje97 · 2025-07-18T11:59:40+09:00

kje97 commented

2025-07-18 11:59:40 +09:00

1. 검사 모드별 수량 카운트 DB(jomtTesterDB.jomtMES_PD1Tbl), 컬럼명

모드	검사 구분	DB 컬럼명(UI 화면)
MAXIMUM	생산 1 (HF측정/정보입력)	PD1_MaxHFTotalCnt(측정수량),PD1_MaxHFOkCnt(합격수량), PD1_MaxHFNgCnt(불량수량)
	생산 2 (RF/MC/EP)	PD1_MaxRFTotalCnt(측정수량), PD1_MaxRFOkCnt(합격수량), PD1_MaxRFNgCnt(불량수량)
ALOTO	생산 3 (HF/EP)	PD1_AltoCnt(측정수량), PD1_AltoOkCnt(합격수량), PD1_AltoNgCnt(불량수량)
EFFECT	생산 5 (HF측정/정보입력)	PD1_EffectCnt(측정수량), PD1_EffectOkCnt(합격수량), PD1_EffectNgCnt(불량수량)

2. UI

금일 측정 수량(GroupBox): gbRunCount
측정 수량: txbDayCount
합격 수량: txbOkCount
불량 수량: txbNgCount

3. todayCountSet()

모드	검사 구분	라디오버튼 이름	SELECT DB테이블
MAXIMUM	생산 1 (HF측정/정보입력)	rdbHF	jomtMES_PD1Tbl
	생산 2 (RF/MC/EP)	rdbRFMCEP	jomtMES_PD1Tbl
ALOTO	생산 3 (HF/EP)	rdbAltoPD	jomtMES_PD1Tbl
EFFECT	생산 5 (HF측정/정보입력)	rdbEFPD	jomtMES_PD1Tbl

참고: iqcCntTableNow = jomtMES_IQCTbl 수입검사 진행시 사용

4. 검사 실행 함수 btnRun_Click()

모드	라디오버튼 이름	검사 실행 함수	카운트 업데이트 함수 CountChanage()
MAXIMUM	rdbHF	hfFunction()	HIFUReCount()
	rdbRFMCEP	rfFunction()	RFReCount()
ALOTO	rdbAltoPD	AltoFunctionPD()	RFReCount()
EFFECT	rdbEFPD	hfFunction()	HIFUReCount()

Private Sub HIFUReCount()
    If dupDATA = 0 Then
        txbDayCount.Text = Val(txbDayCount.Text) + 1
        If processNum = TestStepList.HF_NewSuc Or processNum = TestStepList.HF_ReSuc Then
            txbOkCount.Text = Val(txbOkCount.Text) + 1
        Else
            txbNgCount.Text = Val(txbNgCount.Text) + 1
        End If
    Else
        If TDDataSet(TD_Data.TestStep) = TestStepList.HF_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.HF_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

5. 카운트 업데이트 CountUpdate()

모드	검사 구분	라디오버튼 이름	UPDATE DB테이블
MAXIMUM	생산 1 (HF측정/정보입력)	rdbHF	jomtMES_PD1Tbl
	생산 2 (RF/MC/EP)	rdbRFMCEP	jomtMES_PD1Tbl
ALOTO	생산 3 (HF/EP)	rdbAltoPD	jomtMES_PD1Tbl
EFFECT	생산 5 (HF측정/정보입력)	rdbEFPD	jomtMES_PD1Tbl

## 1. 검사 모드별 수량 카운트 DB(jomtTesterDB.jomtMES_PD1Tbl), 컬럼명 | 모드| 검사 구분| DB 컬럼명(UI 화면) | | -------- | -------- | -------- | | MAXIMUM | 생산 1 (HF측정/정보입력) | PD1_MaxHFTotalCnt(측정수량),PD1_MaxHFOkCnt(합격수량), PD1_MaxHFNgCnt(불량수량) | | | 생산 2 (RF/MC/EP) | PD1_MaxRFTotalCnt(측정수량), PD1_MaxRFOkCnt(합격수량), PD1_MaxRFNgCnt(불량수량) | | ALOTO | 생산 3 (HF/EP) | PD1_AltoCnt(측정수량), PD1_AltoOkCnt(합격수량), PD1_AltoNgCnt(불량수량) | | EFFECT | 생산 5 (HF측정/정보입력) | PD1_EffectCnt(측정수량), PD1_EffectOkCnt(합격수량), PD1_EffectNgCnt(불량수량) | ## 2. UI <img width="557" alt="image.png" src="attachments/e5ec11b5-9c99-41df-9c88-6ae3ba8c8276"> 금일 측정 수량(GroupBox): gbRunCount 측정 수량: txbDayCount 합격 수량: txbOkCount 불량 수량: txbNgCount ## 3. todayCountSet() | 모드| 검사 구분| 라디오버튼 이름 | SELECT DB테이블 | | -------- | -------- | -------- |-------- | | MAXIMUM| 생산 1 (HF측정/정보입력) | rdbHF | jomtMES_PD1Tbl | || 생산 2 (RF/MC/EP) | rdbRFMCEP | jomtMES_PD1Tbl | | ALOTO | 생산 3 (HF/EP) |rdbAltoPD | jomtMES_PD1Tbl | | EFFECT | 생산 5 (HF측정/정보입력) | rdbEFPD | jomtMES_PD1Tbl | *참고: iqcCntTableNow = jomtMES_IQCTbl 수입검사 진행시 사용* ## 4. 검사 실행 함수 btnRun_Click() | 모드| 라디오버튼 이름 | 검사 실행 함수 | 카운트 업데이트 함수 CountChanage()| | -------- | -------- |-------- |-------- | | MAXIMUM| rdbHF | hfFunction() | HIFUReCount()| || rdbRFMCEP |rfFunction() | RFReCount() | | ALOTO |rdbAltoPD | AltoFunctionPD() | RFReCount()| | EFFECT | rdbEFPD | hfFunction() | HIFUReCount()| ```vbnet Private Sub HIFUReCount() If dupDATA = 0 Then txbDayCount.Text = Val(txbDayCount.Text) + 1 If processNum = TestStepList.HF_NewSuc Or processNum = TestStepList.HF_ReSuc Then txbOkCount.Text = Val(txbOkCount.Text) + 1 Else txbNgCount.Text = Val(txbNgCount.Text) + 1 End If Else If TDDataSet(TD_Data.TestStep) = TestStepList.HF_NewFail Or TDDataSet(TD_Data.TestStep) = TestStepList.HF_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 ``` ## 5. 카운트 업데이트 CountUpdate() | 모드| 검사 구분| 라디오버튼 이름 | UPDATE DB테이블 | | -------- | -------- | -------- |-------- | | MAXIMUM| 생산 1 (HF측정/정보입력) | rdbHF | jomtMES_PD1Tbl | || 생산 2 (RF/MC/EP) | rdbRFMCEP | jomtMES_PD1Tbl | | ALOTO | 생산 3 (HF/EP) |rdbAltoPD | jomtMES_PD1Tbl | | EFFECT | 생산 5 (HF측정/정보입력) | rdbEFPD | jomtMES_PD1Tbl |

image.png

22 KiB

Sign in to join this conversation.

1 Participants

Notifications

Due Date

No due date set.

Dependencies

No dependencies set.

Reference: jionmt-sw/prod-ProductFunctionTester#5