Imports System.ServiceModel
Imports ProductiePitching
Imports ProductiePitching.configs

Namespace ServiceAgents.Implementations

    Public Class ActiviteitPerBatchServiceAgent
        Implements IActiviteitPerBatchServiceAgent

        Private Sub SetActivityState(activity As IActivity, employee As IEmployee) Implements IActiviteitPerBatchServiceAgent.SetActivityState
            Try
                Dim stateLetter = ActivityStateEnumMapper.GetLetterFromActivityState(activity.Status)
                SoapClient().RegistreerActieByKey(activity.Id, stateLetter, employee.Initials, ConfigsLoader.AppName, System.Net.Dns.GetHostName())
            Catch ex As Exception
                Throw New Exception($"Can't reach the Caché webservice: {vbNewLine}{ex.Message}")
            End Try
        End Sub

        Private Sub SetActivityState(activity As IActivity) Implements IActiviteitPerBatchServiceAgent.SetActivityState
            SetActivityState(activity, activity.CurrentEmployee)
        End Sub

        Public Sub PauseActionsFromApp() Implements IActiviteitPerBatchServiceAgent.PauseActionsFromApp
            Try
                SoapClient().PauzeerActiesVanApp(ConfigsLoader.AppName, System.Net.Dns.GetHostName())
            Catch ex As Exception
                Throw New Exception($"Can't reach the Caché webservice: {vbNewLine}{ex.Message}")
            End Try
        End Sub

        Private Function SoapClient() As ActiviteitPerBatchClient
            Dim binding = New BasicHttpBinding()
            Dim address = New EndpointAddress(ConfigsLoader.CacheWebserviceUrl.Value)
            Dim activiteitPerBatchClient = New ActiviteitPerBatchClient(binding, address)
            Return activiteitPerBatchClient
        End Function

        Public Function GeefDataSetVoorQuery(QueryNaam As String) As DataSet Implements IActiviteitPerBatchServiceAgent.GeefDataSetVoorQuery
            Try
                Return SoapClient().GeefDataSetVoorQuery(ConfigsLoader.AppName, System.Net.Dns.GetHostName(), QueryNaam)
            Catch ex As Exception
                Throw New Exception($"Can't reach the Caché webservice: {vbNewLine}{ex.Message}")
            End Try
        End Function

        Public Function GeefWerknemers() As DataSet Implements IActiviteitPerBatchServiceAgent.GeefWerknemers
            Try
                Return SoapClient().GeefWerknemers(ConfigsLoader.AppName, System.Net.Dns.GetHostName())
            Catch ex As Exception
                Throw New Exception($"Can't reach the Caché webservice: {vbNewLine}{ex.Message}")
            End Try
        End Function

    End Class
End NameSpace