Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r1850 -r1859
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1850)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1859)
@@ -156,22 +156,35 @@
 	Set Node = "L"_$$$LeftPadding(LijnNr,3," ")
 	Set HeeftData = $Data(^KKL(..GeefKlantIndexKKL(),Node))
 	Set:HeeftData IsBezoekAdres = ("B" = $Piece(^KKL(..GeefKlantIndexKKL(),Node),"\",12))
-	While ('IsBezoekAdres && HeeftData && (LijnNr <= 999)){
+	
+	While ('IsBezoekAdres && HeeftData && (LijnNr <= 999)){		
 		Set AdresGegevens = ^KKL(..GeefKlantIndexKKL(),Node)	
 		Set LijnNr = LijnNr + 1
 		Set Node = "L"_$$$LeftPadding(LijnNr,3," ")	
 		Set HeeftData = $Data(^KKL(..GeefKlantIndexKKL(),Node))
 		Set:HeeftData IsBezoekAdres = ("B" = $Piece(^KKL(..GeefKlantIndexKKL(),Node),"\",12))
 	}
 	If IsBezoekAdres {
-		Set AdresNode = ^KKL(..GeefKlantIndexKKL(),Node)
-		Set Adres = ##class(DOM.common.impl.Adres).%New()
-		Set Adres.Naam = $Piece(AdresNode,"\",2)
-		Set Adres.Straat =  $Piece(AdresNode,"\",5)
-		Set Adres.Postcode =  $Piece(AdresNode,"\",6)
-		Set Adres.Woonplaats =  $Piece(AdresNode,"\",7)
-		Set Adres.LandNr = $Piece(AdresNode,"\",8)
-		Set Adres.Taal = $Piece(AdresNode,"\",9)
+		
+		Set Data = ^KKL(..GeefKlantIndexKKL(),Node)
+		/// Nagaan of het adres gelinkt is, of rechtstreeks is ingevuld.
+		Set KlantNr = $Piece(Data,"\",19)
+		If ($Data(KlantNr) && (KlantNr '= ".")) {
+			Set GerefereerdeKlant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(KlantNr)
+			If $IsObject(GerefereerdeKlant){
+				Set Adres = GerefereerdeKlant.GeefAdres()
+			}
+		}
+		If ('$IsObject(Adres)){
+			Set AdresNode = ^KKL(..GeefKlantIndexKKL(),Node)
+			Set Adres = ##class(DOM.common.impl.Adres).%New()
+			Set Adres.Naam = $Piece(AdresNode,"\",2)
+			Set Adres.Straat =  $Piece(AdresNode,"\",5)
+			Set Adres.Postcode =  $Piece(AdresNode,"\",6)
+			Set Adres.Woonplaats =  $Piece(AdresNode,"\",7)
+			Set Adres.LandNr = $Piece(AdresNode,"\",8)
+			Set Adres.Taal = $Piece(AdresNode,"\",9)
+		}
 	}	
 	Quit Adres
 ]]></Implementation>