Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r46643 -r51172
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 46643)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 51172)
@@ -13,20 +13,56 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI,PartijApi:DOM.PARTIJ.PartijAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..LegacyPartijApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerzendWijze">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
-	if Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke() {
-		quit ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
-	} else {
-		if Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke() {
-			quit ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
-		} else {
+	If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke() {
+		Quit ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
+	} Else {
+		#dim Klant As DOM.VKP.VanHoeckeKlant
+		#dim Partij As DOM.PARTIJ.Partij
+		If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleNL(){
+			Set Partij = ..PartijApi.GeefPartij("K||2671")
+			Quit ##class(APPS.VKP.VerzendWijze).%New(2671,"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+		} ElseIf Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke() {
+			Quit ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
+		} Else {
 			#dim Hein As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant("K||7833")
-			#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij("K||7833")
-			quit ##class(APPS.VKP.VerzendWijze).%New(7833,Hein.GeefVerzendingWijze(),Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			Set Partij = ..PartijApi.GeefPartij("K||7833")
+			Quit ##class(APPS.VKP.VerzendWijze).%New(7833,Hein.GeefVerzendingWijze(),Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 		}
+
 	}
 ]]></Implementation>
 </Method>
@@ -58,9 +94,9 @@
 <Private>1</Private>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
-	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(KlantID)
-	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantID)
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantID)
+	#dim KlantNr As %String = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID)
 	
 	Set VerzendWijze =##class(APPS.VKP.VerzendWijze).%New(KlantNr,Klant.GeefVerzendingWijze(),Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 	Quit VerzendWijze