Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r1334 -r1841
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1334)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1841)
@@ -147,6 +147,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBezoekAdres">
+<ReturnType>DOM.common.Adres</ReturnType>
+<Implementation><![CDATA[
+	Set Adres = ""
+	
+	Set IsBezoekAdres = 0
+	Set LijnNr = 1
+	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)){
+		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)
+	}	
+	Quit Adres
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestelGedrag">
 <ReturnType>DOM.CRM.enu.BestelGedrag</ReturnType>
 <Implementation><![CDATA[	Quit $piece(..BetalingsGegevens1,"\",18)