Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u -r51411 -r53675
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 51411)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 53675)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PersonalityService">
+<Type>DOM.common.PersonalityService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OfferteKopieerder:APPS.VKP.Offerte.OfferteKopieerder,ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,KlantDataBepaler:DOM.VKP.KlantDataBepaler,WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService</FormalSpec>
 <Private>1</Private>
@@ -40,6 +45,7 @@
 	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
 	Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(DOM.VKP.impl.KlantDataBepaler).%New())
 	Set ..VerzendingMogelijkheidRepo = ##class(APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
+	Set ..PersonalityService = ##class(DOM.common.impl.PersonalityService).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -82,11 +88,9 @@
 <FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein())
-	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Seefelder())
-	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleNL())
-	
-	Do ..ExterneVerkoopService.StelInStandaardLeveradres(LeverancierOfferte)
+	If $$$Not(..PersonalityService.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(KlantBestelling.GeefPersonalityID())) {
+		Do ..ExterneVerkoopService.StelInStandaardLeveradres(LeverancierOfferte)
+	}
 ]]></Implementation>
 </Method>
 
Index: APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml
===================================================================
diff -u -r53672 -r53675
--- APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 53672)
+++ APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 53675)
@@ -3,6 +3,22 @@
 <Class name="APPS.VKP.Offerte.impl.KlantBestellingAanLeverancierOfferteKoppelaar">
 <Super>TECH.RegisteredObject,APPS.VKP.Offerte.KlantBestellingAanLeverancierOfferteKoppelaar</Super>
 
+<Property name="PersonalityService">
+<Type>DOM.common.PersonalityService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PersonalityService = ##class(DOM.common.impl.PersonalityService).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="KoppelAanOfferteVanHandel">
 <FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Implementation><![CDATA[
@@ -21,7 +37,7 @@
 			Do LeverancierOfferte.ZetWensLeverDatum(KlantBestelling.GeefWensLeverDatum())
 			Do LeverancierOfferte.ZetVerzendingItem(KlantBestelling.GeefVerzendingItem())
 		
-			If ..IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(KlantBestelling) {
+			If ..PersonalityService.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(KlantBestelling.GeefPersonalityID()) {
 				Do LeverancierOfferte.ZetLeverAdres(KlantBestelling.GeefLeverAdres())
 			}
 		}
@@ -34,17 +50,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel">
-<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein()) $$$True
-	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Seefelder()) $$$True
-	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleNL()) $$$True
-	Quit $$$False
-]]></Implementation>
-</Method>
-
 <Method name="GeefOfferteVanHandel">
 <FormalSpec>LeverancierOfferte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder/Kopieer/Test.cls.xml
===================================================================
diff -u -r51412 -r53675
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder/Kopieer/Test.cls.xml	(.../Test.cls.xml)	(revision 51412)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder/Kopieer/Test.cls.xml	(.../Test.cls.xml)	(revision 53675)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder.Kopieer.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaard gedrag">
+<Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
 	#dim Bestelling As vhTest.Mock.APPS.VKP.Offerte = ..GeefOfferte(##class(DOM.common.DaroPersonality).Instance())
 	#dim TijdelijkeOfferte As vhTest.Mock.APPS.VKP.Offerte = ..GeefOfferte(##class(DOM.common.VanHoeckePersonality).Instance())