Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r1328 -r1334
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1328)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1334)
@@ -102,6 +102,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHandelsregisterNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefHandelsregisterNr()
+]]></Implementation>
+</Method>
+
 <Method name="GeefIndexSleutel">
 <FormalSpec>Sleutel:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -251,6 +257,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmail">
+<FormalSpec>Email:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ValidMail = ##class(TECH.Mail).Check(Email,1)
+	If ('ValidMail){
+		Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ParameterInvalid(),"Het email adres "_Email_" is niet geldig. "_Feedback)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Do ..Klant.ZetEmail(Email)
+]]></Implementation>
+</Method>
+
+<Method name="ZetHandelsregisterNr">
+<FormalSpec>HandelsregisterNr:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Klant.ZetHandelsregisterNr(HandelsregisterNr)
+]]></Implementation>
+</Method>
+
 <Method name="ZetInitialenLaatsteWijziging">
 <FormalSpec>InitialenNaam:%String</FormalSpec>
 <Private>1</Private>
@@ -270,19 +295,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetEmail">
-<FormalSpec>Email:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set ValidMail = ##class(TECH.Mail).Check(Email,1)
-	If ('ValidMail){
-		Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
-		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ParameterInvalid(),"Het email adres "_Email_" is niet geldig. "_Feedback)
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	Do ..Klant.ZetEmail(Email)
-]]></Implementation>
-</Method>
-
 <Method name="ZetTijdstipLaatsteWijziging">
 <FormalSpec>Tijdstip:%Date</FormalSpec>
 <Private>1</Private>
@@ -301,5 +313,14 @@
 <Implementation><![CDATA[	Do ..Klant.ZetURL(URL)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakPersoon">
+<FormalSpec>dtoPersoon:DOM.common.dto.Persoon</FormalSpec>
+<ReturnType>DOM.common.Persoon</ReturnType>
+<Implementation><![CDATA[
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Quit KlantAPI.MaakPersoon(..Klant.GeefNummer(),dtoPersoon)
+]]></Implementation>
+</Method>
 </Class>
 </Export>