Public Class Activity
    Implements IActivity

    Public Property Id As String Implements IActivity.Id
    Public Property QuantityToProduce As Integer Implements IActivity.QuantityToProduce
    Public Property Label As String Implements IActivity.Label
    Public ReadOnly Property Status As ActivityStateEnum Implements IActivity.Status
        Get
            Return State.ActivityStateEnum()
        End Get
    End Property
    Public Property IsReadOnly As Boolean Implements IActivity.IsReadOnly
    Public Property StartBeforeTimestamp As DateTime Implements IActivity.StartBeforeTimestamp
    Public Property StartAlmostTimeStamp As DateTime Implements IActivity.StartAlmostTimeStamp
    Public Property StartTimeStamp As DateTime Implements IActivity.StartTimeStamp

    Public Property EmployeeInitials As String Implements IActivity.EmployeeInitials

    Public Property WorkItem As IWorkItem Implements IActivity.WorkItem

    Public Property State As ActivityState Implements IActivity.State

    Public ReadOnly Property CurrentEmployee As IEmployee Implements IActivity.CurrentEmployee
        Get
            Return State.GetEmployee()
        End Get
    End Property

    ''' <inheritdoc/>
    Public Sub StartActivity(employee As IEmployee) Implements IActivityActions.StartActivity
        State.StartActivity(employee)
    End Sub

    ''' <inheritdoc/>
    Public Sub StopActivity() Implements IActivityActions.StopActivity
        State.StopActivity()
        CurrentEmployee.CurrentActivity = Nothing
    End Sub

    ''' <inheritdoc/>
    Public Sub FinishActivity() Implements IActivityActions.FinishActivity
        State.FinishActivity()
        CurrentEmployee.CurrentActivity = Nothing
    End Sub
End Class