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

Merged PR 24620: WO Hierarchy Record Gathering

Browse Source 
Created methods to get all record found in the hierarchy of WO's

Related work items: #313450
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-08-28 18:08:06 +00:00
parent a196bffd41
commit c30bb96972
4 changed files with 333 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
LSL2/STPROC/WM_OUT_SERVICES.txt
View File

@ -62,7 +62,7 @@ Declare function Database_Services, SRP_JSON, Error_Services, Clean_Insp_Servi
Declare function PSN_Services, SRP_Rotate_Array, Datetime, Return_To_Fab_Services, Environment_Services
Declare function Logging_Services
Declare subroutine Database_Services, SRP_JSON, Error_Services, Extract_Si_Keys, Set_Status, obj_wo_mat_log
Declare subroutine Logging_Services
Declare subroutine Logging_Services, Btree.Extract
GoToService
@ -645,3 +645,29 @@ Service VerifyWOMatWMOKeyIndex(WMOKey)
end service
Service GetWMOutKeys(WOLogId)
ErrorMsg = ''
WMOutKeys = ''
If WOLogId NE '' then
Open 'DICT.WM_OUT' to hWmOutDict then
SearchString = ''
SearchString := 'WO_NO':@VM:WOLogId:@FM
Btree.Extract(SearchString, 'WM_OUT', hWmOutDict, WMOutKeys, 0, 0)
end else
ErrorMsg = 'Error opening WM_OUT dictionary.'
end
end else
ErrorMsg = 'WOLogId was null'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
Response = WMOutKeys
end service