Index: APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml
===================================================================
diff -u -r51602 -r51645
--- APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 51602)
+++ APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 51645)
@@ -16,6 +16,13 @@
 <Implementation><![CDATA[
 	Do KlantBestelling.ZetLeverancierOfferteId(LeverancierOfferte.GeefID())
 	Do LeverancierOfferte.ZetKlantBestellingId(KlantBestelling.GeefID())
+	try {
+		Do LeverancierOfferte.ZetLeverAdres(KlantBestelling.GeefLeverAdres())
+		Do LeverancierOfferte.ZetWensLeverDatum(KlantBestelling.GeefWensLeverDatum())
+		Do LeverancierOfferte.ZetVerzendingItem(KlantBestelling.GeefVerzendingItem())
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferteBewaarder().Bewaar(LeverancierOfferte)
 	Do ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferteBewaarder().Bewaar(KlantBestelling)
@@ -27,7 +34,7 @@
 <ReturnType>APPS.VKP.Offerte</ReturnType>
 <Implementation><![CDATA[
 	#dim GekoppeldeOfferte As APPS.VKP.Offerte
-	If LeverancierOfferte.IsVhisie4() {
+	If (LeverancierOfferte.IsVhisie4()) && ($$$HasLength(LeverancierOfferte.GeefKlantBestellingId())) {
 		Set GekoppeldeOfferte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(LeverancierOfferte.GeefKlantBestellingId())
 	} Else {
 		Set GekoppeldeOfferte = LeverancierOfferte.OfferteVanHandel