Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestVolgnummerVerpakkingEenheid.cls.xml
===================================================================
diff -u -r40948 -r41207
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestVolgnummerVerpakkingEenheid.cls.xml	(.../TestVolgnummerVerpakkingEenheid.cls.xml)	(revision 40948)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestVolgnummerVerpakkingEenheid.cls.xml	(.../TestVolgnummerVerpakkingEenheid.cls.xml)	(revision 41207)
@@ -17,7 +17,8 @@
 
 <Method name="Test Verpakkingeenheid die de 2e van 3 is">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 60
@@ -42,7 +43,8 @@
 
 <Method name="Test LeveringInfo met aantal 2 voor verpakkingeenheden">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 60
@@ -72,7 +74,8 @@
 
 <Method name="Test LeveringInfo Met 2 verpakkingEenheden met elk aantal 2">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 60
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightCashOnDelivery.cls.xml
===================================================================
diff -u -r40367 -r41207
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightCashOnDelivery.cls.xml	(.../TestLeveringMetFreightCashOnDelivery.cls.xml)	(revision 40367)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightCashOnDelivery.cls.xml	(.../TestLeveringMetFreightCashOnDelivery.cls.xml)	(revision 41207)
@@ -10,7 +10,8 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 500
@@ -40,7 +41,8 @@
 
 <Method name="TestMultiPallet">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 633
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetLanggoed.cls.xml
===================================================================
diff -u -r40367 -r41207
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetLanggoed.cls.xml	(.../TestLeveringMetLanggoed.cls.xml)	(revision 40367)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetLanggoed.cls.xml	(.../TestLeveringMetLanggoed.cls.xml)	(revision 41207)
@@ -10,7 +10,8 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
@@ -39,7 +40,8 @@
 
 <Method name="TestLanggoedEnPalletten">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 85.25
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml
===================================================================
diff -u -r40367 -r41207
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml	(.../TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml)	(revision 40367)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml	(.../TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml)	(revision 41207)
@@ -5,7 +5,8 @@
 
 <Method name="TestCODEnkelOpEersteVerzendwijzeType">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 500
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetPallet.cls.xml
===================================================================
diff -u -r40367 -r41207
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetPallet.cls.xml	(.../TestLeveringMetPallet.cls.xml)	(revision 40367)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetPallet.cls.xml	(.../TestLeveringMetPallet.cls.xml)	(revision 41207)
@@ -10,7 +10,8 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 60
@@ -52,7 +53,8 @@
 
 <Method name="TestGrootGewicht">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set CommunicatieServiceLocatorMock = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.CommunicatieServiceMock).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New(CommunicatieServiceLocatorMock)
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.AantalVerpakkingEenhedenTotaal = 1