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

27
LSL2/STPROC/WM_IN_SERVICES.txt
View File

@ -54,7 +54,7 @@ $Insert DICT_EQUATES
$Insert WM_IN_EQUATES
Declare function PSN_Services, SRP_Rotate_Array, Datetime, Database_Services, Environment_Services, Logging_Services
Declare subroutine Database_Services, Set_Status, obj_Wo_Mat_Log, Logging_Services, Extract_Si_Keys
Declare subroutine Database_Services, Set_Status, obj_Wo_Mat_Log, Logging_Services, Extract_Si_Keys, Btree.Extract
GoToService
@ -368,3 +368,28 @@ Service VerifyWOMatWMIKeyIndex(WMIKey)
end service
Service GetWMInKeys(WOLogId)
ErrorMsg = ''
WMInKeys = ''
If WOLogId NE '' then
Open 'DICT.WM_IN' to hWmInDict then
SearchString = ''
SearchString := 'WO_NO':@VM:WOLogId:@FM
Btree.Extract(SearchString, 'WM_IN', hWmInDict, WMInKeys, 0, 0)
end else
ErrorMsg = 'Error opening WM_IN dictionary.'
end
end else
ErrorMsg = 'WOLogId was null'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
Response = WMInKeys
end service