Index: DOM/CRM/enu/KlantNiveau.cls.xml
===================================================================
diff -u
--- DOM/CRM/enu/KlantNiveau.cls.xml	(revision 0)
+++ DOM/CRM/enu/KlantNiveau.cls.xml	(revision 2528)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.CRM.enu.KlantNiveau">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;Industrie;Handel;KS;Architect;Consument;Niet actief</Default>
+</Parameter>
+
+<Method name="Industrie">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit "Industrie"
+]]></Implementation>
+</Method>
+
+<Method name="Handel">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit "Handel"
+]]></Implementation>
+</Method>
+
+<Method name="KS">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit "KS"
+]]></Implementation>
+</Method>
+
+<Method name="Architect">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit "Architect"
+]]></Implementation>
+</Method>
+
+<Method name="Consument">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit "Consument"
+]]></Implementation>
+</Method>
+
+<Method name="NietActief">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit "Niet actief"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r1850 -r2528
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1850)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 2528)
@@ -335,6 +335,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantNiveau">
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.CRM.enu.KlantNiveau).KS()
+]]></Implementation>
+</Method>
+
 <Method name="Opmerkingen2Gewijzigd">
 <Implementation><![CDATA[
 	Set ..Opmerkingen2Dirty = 1
Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r2165 -r2528
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 2165)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 2528)
@@ -213,6 +213,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantNiveau">
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefKlantNiveau()
+]]></Implementation>
+</Method>
+
 <Method name="GeefURL">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefURL()
Index: DOM/CRM/Klant.cls.xml
===================================================================
diff -u -r2165 -r2528
--- DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 2165)
+++ DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 2528)
@@ -168,11 +168,14 @@
 <ReturnType>TECH.Iterator</ReturnType>
 </Method>
 
+<Method name="GeefKlantNiveau">
+<Abstract>1</Abstract>
+<ReturnType>DOM.CRM.enu.KlantNiveau</ReturnType>
+</Method>
+
 <Method name="GeefKlantIndexKKL">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	
-]]></Implementation>
 </Method>
 
 <Method name="ZetActiefStatus">