Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r36317 -r37385
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 36317)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 37385)
@@ -296,8 +296,11 @@
 	If ($$$Not($isObject(..LeverAdres))) {
 		Set ..LeverAdres = ##class(DOM.common.impl.VH.Adres).%New()
 	} 
-
-	Set ..LeverAdres.LeverAdresID = LeverAdres.GeefID()
+	If LeverAdres.%Extends("DOM.common.impl.VH.Adres") {
+		Set ..LeverAdres.LeverAdresID = LeverAdres.GeefLeverAdresID()
+	} ElseIf LeverAdres.%Extends("DOM.VKP.LeverAdres") {
+		Set ..LeverAdres.LeverAdresID = LeverAdres.GeefID()
+	}
 	Set ..LeverAdres.Aanspreking = LeverAdres.GeefAanspreking()
 	Set ..LeverAdres.Gemeente = LeverAdres.GeefGemeente()
 	Set ..LeverAdres.LandNr = LeverAdres.GeefLand().GeefID()