Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r966 -r994
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 966)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 994)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:44:35">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-05 11:25:29">
 <Class name="DOM.CRM.impl.KlantImpl">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.Klant,%RegisteredObject</Super>
-<TimeChanged>62174,60360.613078</TimeChanged>
+<TimeChanged>62186,41134.299221</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Klant">
@@ -59,6 +59,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefActiviteit">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefActiviteit()
+]]></Implementation>
+</Method>
+
 <Method name="GeefAdres">
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefAdres()
@@ -104,6 +110,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeveringVoorwaarde">
+<ReturnType>DOM.CRM.enu.LeveringVoorwaarde</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefLeveringVoorwaarde()
+]]></Implementation>
+</Method>
+
 <Method name="GeefNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefNaam()
@@ -116,12 +128,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOpmerking1">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefOpmerking1()
+]]></Implementation>
+</Method>
+
 <Method name="GeefOpmerking12">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefOpmerking12()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPersonen">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Personen = ##class(%ListOfObjects).%New()
+	Set KlantNummer = ..GeefNummer()
+	Set VolgNummer = ""
+	Set VolgNummer = $Order(^PERS("K",KlantNummer,VolgNummer))
+	While (VolgNummer '= "")
+	{
+		Set Persoon = ##class(DOM.CRM.impl.DataM.DataMPersoon).%New(KlantNummer,VolgNummer)
+		Do Persoon.Open()
+		Do Personen.Insert(Persoon)
+		Set VolgNummer = $Order(^PERS("K",KlantNummer,VolgNummer))
+	}
+	Quit Personen
+]]></Implementation>
+</Method>
+
 <Method name="GeefRegio">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefRegio()
@@ -180,6 +216,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsConsument">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.IsConsument()
+]]></Implementation>
+</Method>
+
 <Method name="ZetActiefStatus">
 <FormalSpec>Status:DOM.CRM.enu.ActiefStatus</FormalSpec>
 <Implementation><![CDATA[	Do ..Klant.ZetActiefStatus(Status)
@@ -205,6 +247,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLeveringVoorwaarde">
+<FormalSpec>LeveringVoorwaarde:DOM.CRM.enu.LeveringVoorwaarde</FormalSpec>
+<Implementation><![CDATA[	Do ..Klant.ZetLeveringVoorwaarde(LeveringVoorwaarde)
+]]></Implementation>
+</Method>
+
 <Method name="ZetNaam">
 <FormalSpec>Naam:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Klant.ZetNaam(Naam)
@@ -230,5 +278,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2117052107"/>
+<Checksum value="73565543"/>
 </Export>