Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r65203 -r67750
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 65203)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 67750)
@@ -80,7 +80,7 @@
 	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
 	Set ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
 	Do ProjectSettingsAPI.VerwachtMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
-	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,,ProjectSettingsAPI)
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,,,ProjectSettingsAPI)
 	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
 	Do ProjectSettingsAPI.Verifieer()
 	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
@@ -250,15 +250,22 @@
 
 <Method name="Test: Winkelkar voor handelsklant (OPO)">
 <Implementation><![CDATA[
+	Set OPOVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.OPOVerzendwijzeBepaler).%New()
+	Do OPOVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","8280").DanReturn("DO4")
+	
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).OPO())
-		
+	
 	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
 	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
 	
-	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub)
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,,OPOVerzendwijzeBepalerMock)
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Zwitsers()
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
 	
-	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"EX")
+	Do OPOVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DO4")
+	
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).OPO())
 ]]></Implementation>
 </Method>