Index: APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml
===================================================================
diff -u -r32752 -r32767
--- APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml	(.../OfferteDocumentReferentiesBepaler.cls.xml)	(revision 32752)
+++ APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml	(.../OfferteDocumentReferentiesBepaler.cls.xml)	(revision 32767)
@@ -42,6 +42,12 @@
 	If Order.GeefOorsprong() = ##class(BL.Flow.Offerte.enu.Oorsprong).UniShop() {
 		#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(Order.GeefEDINummer())
 		Do OfferteLijst.Insert(Offerte)
+		
+		While(..OfferteService.HeeftOfferteVanVH(Offerte)) {
+			#dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte)
+			Do OfferteLijst.InsertAt(GekoppeldeOfferte,1)   ; Vooraan toevoegen, want OfferteVanVH moet uiteindelijk als eerste staan 
+			Set Offerte = GekoppeldeOfferte
+		}
 	}
 	Quit ##class(TECH.ListIterator).%New(OfferteLijst)
 ]]></Implementation>