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

Changes to add progress percentage to WIP Status.

Browse Source
This commit is contained in:
Infineon\StieberD
2024-12-12 13:24:48 -07:00
committed by Infineon\Mitchem
parent 63979bb757
commit 36f600c0c6
8 changed files with 453 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
LSL2/STPROC/REACTOR_SERVICES.txt
View File

@ -3639,6 +3639,26 @@ Service GetActiveProveInTypes(ReactNo)
end service
Service GetActiveProveInProgresses(ReactNo)
Response = ''
If ReactNo NE '' then
ActiveProveInOrderIds = Reactor_Services('GetActiveProveInOrderIds', ReactNo)
If ActiveProveInOrderIds NE '' then
OrderTypes = Xlate('NICA_ORDERS', ActiveProveInOrderIds, 'ORDER_TYPE', 'X')
OrderCount = Dcount(OrderTypes, @VM)
For I = 1 to OrderCount
OrderType = OrderTypes<I>
ProgressPercentage = Xlate('NICA_ORDERS', ActiveProveInOrderIds<i>, 'PROGRESS_PERCENTAGE', 'X')
Response<-1> = OrderType : '- ' : ProgressPercentage :'% Complete.'
Next I
end
end else
Error_Services('Add', 'Error in ':Service:' service. Null ReactNo passed into service.')
end
end service
Service GetActiveProveInOrderIds(ReactNo)
If ReactNo NE '' then