Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r62170 -r63827
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 62170)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 63827)
@@ -179,6 +179,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Winkelkar voor klant van HäfeleSE">
+<Implementation><![CDATA[
+	Set HDEVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	Do HDEVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","SE","680 51").DanReturn("DA4")
+	
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleSE())
+		
+	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,HDEVerzendwijzeBepalerMock)
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Zweeds()
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
+
+	Do HDEVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DA4")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar voor klant van HäfeleFI">
+<Implementation><![CDATA[
+	Set HDEVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	Do HDEVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","FI","11101").DanReturn("DA4")
+	
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleFI())
+		
+	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,HDEVerzendwijzeBepalerMock)
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Fins()
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
+
+	Do HDEVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DA4")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Winkelkar voor JBarth (niet HäfeleNL)">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).JBarth())