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

Merged PR 29040: Added a text field to display the current lot's prod ID. Currently only appli...

Browse Source 
Added a text field to display the current lot's prod ID. Currently only applicable if the lot is a TW type
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-10-23 00:49:59 +00:00
parent 79cde8e098
commit f93eac3e5d
2 changed files with 1966 additions and 1641 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3596
LSL2/OIWIN/NDW_VIEW_LOT.json
View File

File diff suppressed because it is too large Load Diff

11
LSL2/STPROC/NDW_VIEW_LOT_EVENTS.txt
View File

@ -9,6 +9,7 @@ $Insert APP_INSERTS
$Insert LOT_EQUATES
$Insert LOT_OPERATION_EQUATES
$Insert LOT_EVENT_EQUATES
$Insert TEST_WAFER_PROD_EQUATES
GoToEvent Event for CtrlEntId else
// Event not implemented
@ -50,6 +51,7 @@ SetupFormControls:
return
GetLot:
//Get Lot
LotIdText = Get_Property(@Window : '.EDL_LOT_ID', 'TEXT')
If LotIdText[1, 2] EQ '1T' then
@ -59,6 +61,13 @@ GetLot:
If RowExists('LOT', LotIdText) then
ThisLotId = LotIdText
ThisLotRec = Database_Services('ReadDataRow', 'LOT', ThisLotId)
ThisLotType = ThisLotRec<LOT_TYPE$>
ThisLotCurrProdId = ThisLotRec<LOT_PROD_ID$>
If ThisLotType EQ 'TW' then
ThisLotCurrProdName = Xlate('TEST_WAFER_PROD', ThisLotCurrProdId, TEST_WAFER_PROD_PART_NAME$, 'X')
end else
ThisLotCurrProdName = ''
end
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$)
@ -94,6 +103,7 @@ GetLot:
Next LotEvent
//Fill form
Set_Property(@Window : '.EDL_PROD_NAME', 'TEXT', ThisLotCurrProdName)
Set_Property(@Window : '.EDL_CURR_OPERATION', 'TEXT', ThisLotCurrOperationName)
Set_Property(@Window : '.EDL_CURR_WAFER_QTY', 'TEXT', ThisLotCurrWaferQty)
Set_Property(@Window : '.EDT_LOT_OPERATIONS', 'ARRAY', LotOperationTableData)
@ -112,3 +122,4 @@ ResetForm:
Set_Property(@Window : '.EDT_LOT_EVENTS', 'ARRAY', '')
return