Index: APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml
===================================================================
diff -u -r45861 -r47444
--- APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 45861)
+++ APPS/VKP/Offerte/impl/KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml	(.../KlantBestellingAanLeverancierOfferteKoppelaar.cls.xml)	(revision 47444)
@@ -11,6 +11,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="KoppelLeverancierOfferteAanKlantBestelling">
+<FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[
+	Do KlantBestelling.ZetLeverancierOfferteId(LeverancierOfferte.GeefID())
+	Do LeverancierOfferte.ZetKlantBestellingId(KlantBestelling.GeefID())
+	
+	Do ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferteBewaarder().Bewaar(LeverancierOfferte)
+	Do ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferteBewaarder().Bewaar(KlantBestelling)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOfferteVanHandel">
 <FormalSpec>LeverancierOfferte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>