Changes to add progress percentage to WIP Status.
This commit is contained in:
committed by
Infineon\Mitchem
parent
63979bb757
commit
36f600c0c6
@ -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
|
||||
|
Reference in New Issue
Block a user