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

Merged PR 13912: Changed LOT_OPERATION key generation to be a unique GUID rather than LOTNAME-...

Browse Source 
Changed LOT_OPERATION key generation to be a unique GUID rather than LOTNAME-OPERATIONID. This will allow us to have multiples of a specified operation. Useful for rework.

Related work items: #137429, #247316
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO) 2025-03-27 23:23:15 +01:00
parent f8c96150f5
commit 19908620e2
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
LSL2/STPROC/LOT_SERVICES.txt
View File

@ -406,8 +406,6 @@ Service GenerateInitialLotOperationRecords(LotId)
If ThisLotOperations NE '' then
for each ProdOperationKey in ThisLotOperations using @FM
OperationRec = Database_Services('ReadDataRow', 'PRODUCT_OPERATION', ProdOperationKey)
//NewOperationRecID =
Next operation
end else
ErrorMessage = 'No Operations found for ' : ProdId
@ -459,7 +457,7 @@ Service CreateInitialLotOperationRecords(LotId)
OperationID = ProdOperationRec<PRODUCT_OPERATION_OPERATION_ID$>
OperationSequence = ProdOperationRec<PRODUCT_OPERATION_OPERATION_SEQUENCE$>
LotOperationRecID = LotId : '*' : OperationID
LotOperationRecID = Rti_Createguid()
If Not(RowExists('LOT_OPERATION', LotOperationRecID)) then
LotOperationRec = ''
LotOperationRec<LOT_OPERATION_LOT_ID$> = LotId
@ -565,7 +563,6 @@ Service AddLotOperationIntoSequence(LotId, NewOperationId, NewSequence, Rework)
If LotId NE '' then
If NewSequence NE '' AND Num(NewSequence) then
//Get Current Operations in sequence
//CurrSequence = Lot_Services('GetLotOperationSequence', LotId)
LotCurrOperation = Lot_Services('GetLotCurrOperationId', LotId)
CurrOperationSequence = Xlate('LOT_OPERATION', LotCurrOperation, LOT_OPERATION_OPERATION_SEQUENCE$, 'X')
If CurrOperationSequence LE NewSequence then
@ -587,7 +584,7 @@ Service AddLotOperationIntoSequence(LotId, NewOperationId, NewSequence, Rework)
Until Done
Next Operation
If ErrorMessage EQ '' then
LotOperationRecID = LotId : '*' : NewOperationId
LotOperationRecID = RTI_CreateGUID()
If Not(RowExists('LOT_OPERATION', LotOperationRecID)) then
LotOperationRec = ''
LotOperationRec<LOT_OPERATION_LOT_ID$> = LotId
@ -1424,3 +1421,4 @@ end service