Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatchServiceAgent.vb
===================================================================
diff -u -r1745 -r1747
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatchServiceAgent.vb	(.../ActiviteitPerBatchServiceAgent.vb)	(revision 1745)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatchServiceAgent.vb	(.../ActiviteitPerBatchServiceAgent.vb)	(revision 1747)
@@ -10,7 +10,7 @@
         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, My.Application.Info.AssemblyName, System.Net.Dns.GetHostName())
+                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
@@ -22,7 +22,7 @@
 
         Public Sub PauseActionsFromApp() Implements IActiviteitPerBatchServiceAgent.PauseActionsFromApp
             Try
-                SoapClient().PauzeerActiesVanApp(My.Application.Info.AssemblyName, System.Net.Dns.GetHostName())
+                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