Index: vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r61243 -r62170
--- vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 61243)
+++ vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 62170)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r61243 -r62170
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 61243)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 62170)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -44,7 +49,7 @@
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..HaefeleDEVerzendwijzeBepaler = $$$Inject(HaefeleDEVerzendwijzeBepaler,##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New())
 	Set ..LegacyPartijApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
-	
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI,##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI())	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -80,6 +85,10 @@
 				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleBE()) && ..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant(){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 			} ElseIf Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleDE(){
 				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r61823 -r62170
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 61823)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 62170)
@@ -48,6 +48,7 @@
 	Set ..VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(..AfhaalKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||4321").DanReturn(..DirecteLeveringKlant)
+	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||4875").DanReturn(..DirecteLeveringKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||12486").DanReturn(..ExpediteurKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||7833").DanReturn(..ExpediteurKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||1736").DanReturn(..OnzeDienstenKlant)
@@ -69,6 +70,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Winkelkar voor klant van HäfeleBE rechtstreekseLevering">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleBE())
+		
+	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	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)
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
+	Do ProjectSettingsAPI.Verifieer()
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Winkelkar voor klant van HäfeleNL">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleNL())