Imports ProductiePitching.ServiceAgents Imports ProductiePitching.ServiceAgents.Implementations Public Class WorkItemManager Implements IWorkItemManager Private ReadOnly _activiteitPerBatchServiceAgent As IActiviteitPerBatchServiceAgent Public Sub New() _ActiviteitPerBatchServiceAgent = New ActiviteitPerBatchServiceAgent End Sub ''' Public Function GiveWorkItems(workPostIndex As Integer, employees As List(Of IEmployee)) As ICollection(Of IWorkItem) Implements IWorkItemManager.GiveWorkItems Return CacheMapper.GetData(workPostIndex, employees) End Function Public Sub StartActivity(activity As IActivity, employee As IEmployee) Implements IWorkItemManager.StartActivity activity.StartActivity(employee) _ActiviteitPerBatchServiceAgent.SetActivityState(activity, employee) End Sub Public Sub FinishActivity(activity As IActivity) Implements IWorkItemManager.FinishActivity activity.FinishActivity() _ActiviteitPerBatchServiceAgent.SetActivityState(activity) End Sub Public Sub StopActivity(activity As IActivity) Implements IWorkItemManager.StopActivity activity.StopActivity() _ActiviteitPerBatchServiceAgent.SetActivityState(activity) End Sub Public Sub PauseActivities() Implements IWorkItemManager.PauseActivities _activiteitPerBatchServiceAgent.PauseActionsFromApp() End Sub End Class