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

Merged PR 14215: Lot Last Event Datetime

Browse Source 
Added field to lot table to store most recent event id. Maintained column by writing to it upon successful creation of a lot event. Added the most recent event dtm to the json object for lot records. Added related text view in NDW_VIEW_LOT form and method to read that data and populate the field.

Related work items: #249625
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-04-01 19:27:10 +02:00
parent 999e11b1b8
commit c477b8df58
4 changed files with 1904 additions and 1606 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
LSL2/STPROC/NDW_VIEW_LOT_EVENTS.txt
View File

@ -39,17 +39,14 @@ end event
//-----------------------------------------------------------------------------
SetupFormControls:
LabelFont = Get_Property(@Window : '.LBL_LOT_ID', 'FONT')
LabelFont<1,1,2> = -20
LabelFont<1,1,6> = 10
Set_Property(@Window : '.LBL_LOT_ID', 'FONT', LabelFont)
Set_Property(@Window : '.LBL_CURR_OPERATION', 'FONT', LabelFont)
EditLineFont = Get_Property(@Window : '.EDL_LOT_ID', 'FONT')
EditLineFont<1,1,2> = -20
EditLineFont<1,1,6> = 10
Set_Property(@Window : '.EDL_LOT_ID', 'FONT', EditLineFont)
Set_Property(@Window : '.EDL_LOT_ID', 'FONT', EditLineFont)
Set_Property(@Window : '.LBL_LOT_ID', 'FONT', EditLineFont)
Set_Property(@Window : '.EDL_CURR_OPERATION', 'FONT', EditLineFont)
return
GetLot:
@ -65,6 +62,8 @@ GetLot:
ThisLotCurrOperationID = Lot_Services('GetLotCurrOperationId', ThisLotId)
ThisLotCurrOperationName = Xlate('LOT_OPERATION', ThisLotCurrOperationId, LOT_OPERATION_OPERATION_ID$, 'X')
ThisLotCurrWaferQty = Database_Services('ReadDataColumn', 'LOT', ThisLotId, LOT_WAFER_QTY$, True$, 0, False$)
ThisLotMostRecentEventId = ThisLotRec<LOT_MOST_RECENT_LOT_EVENT_ID$>
ThisLotMostRecentEventDtm = XLATE('LOT_EVENT', ThisLotMostRecentEventId, LOT_EVENT_EVENT_DATETIME$, 'X')
//Lot Operation Status'
LotOperationsInSequence = Lot_Services('GetLotOperationSequence', ThisLotId)
@ -99,6 +98,7 @@ GetLot:
Set_Property(@Window : '.EDL_CURR_WAFER_QTY', 'TEXT', ThisLotCurrWaferQty)
Set_Property(@Window : '.EDT_LOT_OPERATIONS', 'ARRAY', LotOperationTableData)
Set_Property(@Window : '.EDT_LOT_EVENTS', 'ARRAY', LotEventTableData)
Set_Property(@Window : '.EDL_MOST_RECENT_EVENT_DTM', 'TEXT', OConv(ThisLotMostRecentEventDtm, 'DT'))
end else
//Error: Lot did not exist
end
@ -107,8 +107,7 @@ return
ResetForm:
Set_Property(@Window : '.EDL_CURR_OPERATION', 'TEXT', '')
Set_Property(@Window : '.EDL_CURR_WAFER_QTY', 'TEXT', '')
Set_Property(@Window : '.EDL_MOST_RECENT_EVENT_DTM', 'TEXT', '')
Set_Property(@Window : '.EDT_LOT_OPERATIONS', 'ARRAY', '')
Set_Property(@Window : '.EDT_LOT_EVENTS', 'ARRAY', '')
return