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

Merged PR 29248: Stop Writing Erroneous PACKAGING events

Browse Source 
Related work items: #337599
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-10-27 15:44:15 +00:00
parent 521233b0b4
commit 0eed1a83f5
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/PACKAGING_SERVICES.txt
View File

@ -157,12 +157,15 @@ Service CompletePackaging(CassetteID, OperatorID, BaggerIdentifier)
//Handle NG lot functions.
If LotId NE '' then
NewPackRecId = Packaging_Services('CreatePackagingRecord', LotId, UserID, ToolID)
CurrOperationId = Lot_Services('GetLotCurrOperationId', LotId)
If CurrOperationId NE '' then
Packaging_Services('AddPackToLotOperation', CurrOperationId, NewPackRecId, UserID)
NewPackRecId = Packaging_Services('CreatePackagingRecord', LotId, UserID, ToolID)
If Error_Services('NoError') then
Lot_Services('MoveOutLot', LotId, UserId)
Packaging_Services('AddPackToLotOperation', CurrOperationId, NewPackRecId, UserID)
If Error_Services('NoError') then
Lot_Services('MoveOutLot', LotId, UserId)
end
end
end
@ -765,3 +768,4 @@ Service AddPackToLotOperation(LotOperationId, PackagingId, UserId)
end service