Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r2528 -r2530
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 2528)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 2530)
@@ -337,7 +337,9 @@
 
 <Method name="GeefKlantNiveau">
 <ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.CRM.enu.KlantNiveau).KS()
+<Implementation><![CDATA[
+	Set Regio = +$Piece(..AlgemeneGegevens,"\",20)
+	Quit $Piece(^RES("KLANT","PI","REGIO","D",Regio),"`",20)
 ]]></Implementation>
 </Method>