Index: Stat/OmzetKlantProductMaand.cls.xml
===================================================================
diff -u -r1618 -r1841
--- Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1618)
+++ Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1841)
@@ -298,7 +298,28 @@
 	}
 	
 	Set Klant=##class(Derde.Klant.Klant).%OpenId(KLNr)
-	Set LevAdr=$$DEFAULT^LEVADR(KLNr)
+	Set KlantObject = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(KLNr)
+	Set Adres = ""
+	If $IsObject(KlantObject){
+		Set Adres = KlantObject.GeefBezoekAdres()
+	}
+	
+	/// Indien er een bezoekadres is opgegeven, dit weergeven.
+	/// Anders het leveradres opzoeken via Default^LEVADR
+	Set Straat = ""
+	Set Postcode = ""
+	Set Gemeente = ""
+	If $IsObject(Adres){
+		Set Straat = Adres.GeefStraat()
+		Set Postcode = Adres.GeefPostcode()
+		Set Gemeente = Adres.GeefGemeente()
+	}Else{
+		Set LevAdr=$$DEFAULT^LEVADR(KLNr)	
+		Set Straat = $P(LevAdr,"\",5)
+		Set Postcode  = $P(LevAdr,"\",6)
+		Set Gemeente = $P(LevAdr,"\",7)
+	}	
+	
 	Set (OmzetHuidigList,OmzetVorigList,MargeVorigList,MargeHuidigList)=""
 	Set (IOmzetHuidigList,IOmzetVorigList,IVorigList,IHuidigList)="" ///Indicator 
 	Set Vervallen=$P($$WAARDIG^KREDIET(KLNr,"D"),D,6) ; Aantal dagen vervallen fakturen
@@ -316,7 +337,7 @@
 	Set Kwalitatief=$LG(Kwalitatief,1)_" "_$LG(Kwalitatief,2)
 	Set Taal = $P(^KKL(%VOKLId,0),"\",9)
 	Set CatalogusInfo = ..GeefCatalogusInfo(KLNr)
-	Set Row=$LB(KLNr,Klant.Naam,Klant.Telefoon1,$P(LevAdr,"\",5),$P(LevAdr,"\",6),$P(LevAdr,"\",7),Taal,Klant.Sektor,Klant.Aktiviteit,Kwantitatief,Kwalitatief,Klant.CommNonActief,Vervallen,AantalBezoeken,LaatsteBezoek,AantalKlachtenJr,AantalKlachtenMnd,Klant.Prijsklasse,HeeftUtz,Trend)
+	Set Row=$LB(KLNr,Klant.Naam,Klant.Telefoon1,Straat,Postcode,Gemeente,Taal,Klant.Sektor,Klant.Aktiviteit,Kwantitatief,Kwalitatief,Klant.CommNonActief,Vervallen,AantalBezoeken,LaatsteBezoek,AantalKlachtenJr,AantalKlachtenMnd,Klant.Prijsklasse,HeeftUtz,Trend)
 	
 	Set IOmzetVorigList = ""
 	Set IOmzetHuidigList = ""
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)
Index: DOM/CRM/Klant.cls.xml
===================================================================
diff -u -r1334 -r1841
--- DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1334)
+++ DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1841)
@@ -35,6 +35,11 @@
 <ReturnType>DOM.common.Adres</ReturnType>
 </Method>
 
+<Method name="GeefBezoekAdres">
+<Abstract>1</Abstract>
+<ReturnType>DOM.common.Adres</ReturnType>
+</Method>
+
 <Method name="GeefActiviteit">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r1334 -r1841
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1334)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1841)
@@ -70,6 +70,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBezoekAdres">
+<ReturnType>DOM.common.Adres</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefBezoekAdres()
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestelGedrag">
 <ReturnType>DOM.CRM.enu.BestelGedrag</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefBestelGedrag()