Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r1859 -r2165
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1859)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 2165)
@@ -333,6 +333,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDealer">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..GeefActiviteit() = "DEALER")
+]]></Implementation>
+</Method>
+
+<Method name="IsCommercieelActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Actief = 1
+	Set Data = $Piece(..BetalingsGegevens2,"\",10)
+	Set:(Data = "") Actief = 1
+	Set:(Data = 1) Actief = 0
+	
+	Quit Actief
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /************