phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Found most likely root cause of WO_MAT records getting cleared at 1UNLOAD.

Browse Source
This commit is contained in:
Infineon\Ouellette
2025-08-15 16:24:37 -07:00
committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent 0a2d53d173
commit ba2faa8c9f
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
LSL2/STPROC/RDS_UNLOAD_EVENTS.txt
View File

@ -281,6 +281,7 @@ Event PUB_SIGN.CLICK()
If Len(ReactorType) GE 3 and ReactorType[1, 3] _EQC 'HTR' then If Len(ReactorType) GE 3 and ReactorType[1, 3] _EQC 'HTR' then
If ( (WONo NE '') and (CassNo NE '') ) then If ( (WONo NE '') and (CassNo NE '') ) then
WoMatKey = WONo:'*':CassNo WoMatKey = WONo:'*':CassNo
WoMatRecord = Database_Services('ReadDataRow', 'WO_MAT', WoMatKey)
If RowExists('WO_MAT', WOMatKey) then If RowExists('WO_MAT', WOMatKey) then
IsLastCassetteInWo = WO_MAT_Services('CassetteIsLastInWo', WoMatKey) IsLastCassetteInWo = WO_MAT_Services('CassetteIsLastInWo', WoMatKey)
If Error_Services('NoError') then If Error_Services('NoError') then
@ -295,7 +296,6 @@ Event PUB_SIGN.CLICK()
NextEventIsBlock = Schedule_Services('NextEventIsBlock', Reactor) NextEventIsBlock = Schedule_Services('NextEventIsBlock', Reactor)
end end
If NextEventScheduled EQ False$ or NextEventHasSamePsn EQ False$ or NextEventIsBlock EQ True$ then If NextEventScheduled EQ False$ or NextEventHasSamePsn EQ False$ or NextEventIsBlock EQ True$ then
WoMatRecord = Database_Services('ReadDataRow', 'WO_MAT', WoMatKey)
If Error_Services('NoError') then If Error_Services('NoError') then
If WOMatRecord NE '' then If WOMatRecord NE '' then
WoMatRecord<WO_MAT_LAST_CASSETTE_TEST_WAFER_ACK_REQ$> = True$ WoMatRecord<WO_MAT_LAST_CASSETTE_TEST_WAFER_ACK_REQ$> = True$
@ -316,8 +316,14 @@ Event PUB_SIGN.CLICK()
If TWLogResult NE True$ then If TWLogResult NE True$ then
ErrMsg = 'Unload blocked! You must run a test wafer before signing the unload' ErrMsg = 'Unload blocked! You must run a test wafer before signing the unload'
end end
If ErrMsg NE '' then
Database_Services('WriteDataRow', 'WO_MAT', WoMatKey, WoMatRecord, True$, False$, False$)
If Error_Services('HasError') then
ErrMsg = Error_Services('GetMessage')
end
end
end end
end end
end else end else
ErrMsg = 'WO_MAT record for ':WOMatKey:' is null!' ErrMsg = 'WO_MAT record for ':WOMatKey:' is null!'
end end
@ -325,7 +331,6 @@ Event PUB_SIGN.CLICK()
ErrMsg = Error_Services('GetMessage') ErrMsg = Error_Services('GetMessage')
end end
end end
Database_Services('WriteDataRow', 'WO_MAT', WoMatKey, WoMatRecord, True$, False$, False$)
end end
end end
end else end else
@ -468,3 +473,4 @@ Setup_OLE_Controls:
return return