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