Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u -r46849 -r46855
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 46849)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 46855)
@@ -52,7 +52,7 @@
 	
 	#dim LeverancierOfferte As APPS.VKP.Offerte = ..MaakOfferte(KlantBestelling)
 
-	Do ..BehoudOorspronkelijkLeveradresIndienHein(LeverancierOfferte, KlantBestelling)
+	Do ..StelInStandaardLeveradre(LeverancierOfferte, KlantBestelling)
 	
 	Do ..PasAanDocumentReferenties(LeverancierOfferte, KlantBestelling)
 	
@@ -78,13 +78,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BehoudOorspronkelijkLeveradresIndienHein">
+<Method name="StelInStandaardLeveradre">
 <FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If $$$Not((KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein()) || (KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Seefelder())) {
-		Do ..ExterneVerkoopService.StelInStandaardLeveradres(LeverancierOfferte)
-	}
+	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein())
+	Quit:(KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Seefelder())
+	
+	Do ..ExterneVerkoopService.StelInStandaardLeveradres(LeverancierOfferte)
 ]]></Implementation>
 </Method>
 
@@ -105,6 +106,7 @@
 	#dim LeverancierWinkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(LeverancierOfferte.GeefWinkelkarID())
 	Do LeverancierWinkelkar.ZetPersonalityID(KlantBestelling.GeefPersonality().GeefLeverancierData().PersonalityId)
 	Do LeverancierWinkelkar.ZetKlantID(KlantBestelling.GeefPersonality().GeefLeverancierData().EigenKlantId)
+	
 	Do ..WinkelkarService.HerberekenPrijs(LeverancierWinkelkar)
 	Do ..WinkelkarService.BewaarWinkelkar(LeverancierWinkelkar)
 	Do LeverancierOfferte.PrijzenWerdenHerberekend()