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/LABELING_SERVICES.txt
View File

@ -3,7 +3,7 @@ Compile function Labeling_Services(@Service, @Params)
Declare Function Database_Services, Environment_Services, Set_Printer, Direct_Print, Printer_Select, Error_Services
Declare Function Logging_Services, Datetime
Declare subroutine Error_Services, Labeling_Services, Lot_Services, SRP_Set_Clipboard
Declare subroutine Error_Services, Labeling_Services, Lot_Event_Services, SRP_Set_Clipboard
$insert LOGICAL
$Insert LOT_EQUATES
@ -330,7 +330,7 @@ Service PrintTestWaferLotLabel(LotId, Username, PrinterId)
ErrorMessage = 'Error printing label for lot ' : LotId : '. LotId was null or did not exist in database.'
end
If ErrorMessage EQ '' then
Lot_Services('CreateLotEvent', LotId, 'TW', Datetime(), 'COMMENT', 'Lot Labels Printed', '', 0, 0, '', Username)
Lot_Event_Services('CreateLotEvent', LotId, Datetime(), 'COMMENT', 'Lot Labels Printed', '', Username)
end else
Error_Services('Add', ErrorMessage)
end
@ -461,3 +461,4 @@ Service GetReturnToFabLabelZPL(RTFId)
end service