Index: APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml
===================================================================
diff -u -r51765 -r53672
--- APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 51765)
+++ APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 53672)
@@ -18,9 +18,12 @@
 	Do LeverancierOfferte.ZetKlantBestellingId(KlantBestelling.GeefID())
 	Try {
 		If LeverancierOfferte.IsVhisie4() {
-			Do LeverancierOfferte.ZetLeverAdres(KlantBestelling.GeefLeverAdres())
 			Do LeverancierOfferte.ZetWensLeverDatum(KlantBestelling.GeefWensLeverDatum())
 			Do LeverancierOfferte.ZetVerzendingItem(KlantBestelling.GeefVerzendingItem())
+		
+			If ..IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(KlantBestelling) {
+				Do LeverancierOfferte.ZetLeverAdres(KlantBestelling.GeefLeverAdres())
+			}
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -31,6 +34,17 @@
 ]]></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>