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

Re-adding from old branch

Browse Source
This commit is contained in:
Infineon\Ouellette
2024-11-19 15:51:39 -07:00
committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent ef1744c8b1
commit 3a2ff00722
14 changed files with 2821 additions and 1783 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
LSL2/STPROC/NDW_VIEW_LOT_EVENTS.txt
View File

@ -5,6 +5,7 @@ Compile function NDW_VIEW_LOT_EVENTS(CtrlEntId, Event, @PARAMS)
Declare function Get_Property, Lot_Services, Database_Services
Declare subroutine Set_Property
$Insert APP_INSERTS
$Insert LOT_EQUATES
$Insert LOT_OPERATION_EQUATES
$Insert LOT_EVENT_EQUATES
@ -61,8 +62,9 @@ GetLot:
If RowExists('LOT', LotIdText) then
ThisLotId = LotIdText
ThisLotRec = Database_Services('ReadDataRow', 'LOT', ThisLotId)
ThisLotCurrOperationID = Lot_Services('GetLotCurrOperation', ThisLotId)
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$)
//Lot Operation Status'
LotOperationsInSequence = Lot_Services('GetLotOperationSequence', ThisLotId)
@ -87,12 +89,14 @@ GetLot:
LotEventTableData<1, ThisEventSequence> = OConv(LotEventRec<LOT_EVENT_EVENT_DATETIME$>, 'DT')
LotEventTableData<2, ThisEventSequence> = LotEventRec<LOT_EVENT_LOT_EVENT_TYPE$>
LotEventTableData<3, ThisEventSequence> = LotEventRec<LOT_EVENT_EVENT_OPERATOR_ID$>
LotEventTableData<4, ThisEventSequence> = LotEventRec<LOT_EVENT_EVENT_OPERATION_ID$>
ThisLotEventOperationName = Field(LotEventRec<LOT_EVENT_EVENT_OPERATION_ID$>, '*', 2)
LotEventTableData<4, ThisEventSequence> = ThisLotEventOperationName
LotEventTableData<5, ThisEventSequence> = LotEventRec<LOT_EVENT_EVENT_NOTE$>
Next LotEvent
//Fill form
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)
Set_Property(@Window : '.EDT_LOT_EVENTS', 'ARRAY', LotEventTableData)
end else
@ -100,3 +104,4 @@ GetLot:
end
return