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

Merged PR 15668: Refactored Lot Event

Browse Source 
Refactored Lot Event methods.
1. Moved all lot event methods to a new LOT_EVENT_SERVICES service module.
2. Simplified CreateLotEvent routine
3. Updated all calling stored procedures.
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-04-28 21:02:24 +02:00
parent b2edf6f288
commit 4037b2fa45
13 changed files with 260 additions and 446 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
LSL2/STPROC/NDW_VIEW_LOT_EVENTS.txt
View File

@ -2,7 +2,7 @@ Compile function NDW_VIEW_LOT_EVENTS(CtrlEntId, Event, @PARAMS)
#pragma precomp SRP_PreCompiler
#window NDW_VIEW_LOT
Declare function Get_Property, Lot_Services, Database_Services
Declare function Get_Property, Lot_Services, Database_Services, Lot_Event_Services
Declare subroutine Set_Property
$Insert APP_INSERTS
@ -80,7 +80,7 @@ GetLot:
Next LotOperation
//Lot Event Status'
LotEventsInSequence = Lot_Services('GetLotEventsInSequence', ThisLotId)
LotEventsInSequence = Lot_Event_Services('GetLotEventsInSequence', ThisLotId)
LotEventTableData = ''
For each LotEvent in LotEventsInSequence using @FM
LotEventRec = Database_Services('ReadDataRow', 'LOT_EVENT', LotEvent)
@ -111,3 +111,4 @@ ResetForm:
Set_Property(@Window : '.EDT_LOT_OPERATIONS', 'ARRAY', '')
Set_Property(@Window : '.EDT_LOT_EVENTS', 'ARRAY', '')
return