Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r37022 -r37023
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 37022)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 37023)
@@ -66,8 +66,8 @@
 	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefOfferteBewaarder").DanReturn(OfferteBewaarderDummy)
 	
 	
-	#dim VerzendingMogelijkheidDummy As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid).%New()
-	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
+	Set VerzendingMogelijkheidDummy = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid).%New()
+	Set VerzendingMogelijkheidRepositoryMock = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
 
 	#dim OptieKeuze As %Integer = 0
@@ -86,18 +86,18 @@
 	#dim OfferteID As %String = 3
 	#dim VerzendingMogelijkheidID As %String = 1
 	
-	#dim DummyException As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New("OfferteID bestaat niet.")
+	Set DummyException = ##class(TECH.Exceptions.GeneralErrorException).%New("OfferteID bestaat niet.")
 	
 	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefOfferte",OfferteID).DanException(DummyException)
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("OfferteID bestaat niet.")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 	
-	#dim VerzendingMogelijkheidDummy As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid).%New()
-	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
+	Set VerzendingMogelijkheidDummy = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid).%New()
+	Set VerzendingMogelijkheidRepositoryMock = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	#dim Service As WS.EC.Unishop.InternationaleZending.Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
+	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
 	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,"")
 ]]></Implementation>
 </Method>
@@ -124,8 +124,8 @@
 	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefOfferte",OfferteID).DanReturn(VerkoopOfferteDummy)
 	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefOfferteBewaarder").DanReturn(OfferteBewaarderDummy)
 	
-	#dim VerzendingMogelijkheidDummy As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid).%New()
-	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
+	Set VerzendingMogelijkheidDummy = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid).%New()
+	Set VerzendingMogelijkheidRepositoryMock = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
 
 	#dim OptieKeuze As %Integer = 0
@@ -143,7 +143,7 @@
 	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
 	
-	#dim StapelingBepalerSpy As vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
+	Set StapelingBepalerSpy = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
 	Do StapelingBepalerSpy.VerwachtMethodCall("Bereken",$$$ElkeWaarde)
 	
 	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, , , , , StapelingBepalerSpy)
@@ -164,7 +164,7 @@
 	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
 	
-	#dim StapelingBepalerSpy As vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
+	Set StapelingBepalerSpy = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
 	Do StapelingBepalerSpy.IndienMethodCall("Bereken", $$$ElkeWaarde).DanDoeNiks()
 	
 	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, , , , , StapelingBepalerSpy)