Index: DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u -r46607 -r51519
--- DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 46607)
+++ DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 51519)
@@ -6,6 +6,44 @@
 <Parameter name="DataClassName">
 <Default>DOM.common.impl.Personality</Default>
 </Parameter>
+
+<Method name="GeefViaKlantNummer">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	
+	#dim PersonalityIterator As TECH.Iterator = ..ZoekAlle()
+	#dim GevondenPersonality As DOM.common.impl.Personality = ""
+	
+	While PersonalityIterator.HasNext() {
+		#dim Personality As DOM.common.impl.Personality = PersonalityIterator.Next()
+		Set:(Personality.Klant.Nummer=KlantNummer) GevondenPersonality = Personality
+	}
+
+	If $$$Not($IsObject(GevondenPersonality)) {
+		Do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data in '"_SqlTableName_"' gevonden voor 'Klant.Nummer' met waarde '"_$$$LCVT(KlantNummer)_"'")
+	}
+	
+	Quit GevondenPersonality
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaKlantNummer">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim PersonalityIterator As TECH.Iterator = ..ZoekAlle()
+	#dim GevondenPersonality As DOM.common.impl.Personality = ""
+	
+	While PersonalityIterator.HasNext() {
+		#dim Personality As DOM.common.impl.Personality = PersonalityIterator.Next()
+		Set:(Personality.Klant.Nummer=KlantNummer) GevondenPersonality = Personality
+	}
+	
+	Quit $IsObject(GevondenPersonality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u -r46826 -r51519
--- vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 46826)
+++ vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 51519)
@@ -14,11 +14,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatViaKlantNummer">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="Bewaar">
 <FormalSpec>Data:TECH.Persistent</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="Dupliceer">
+<FormalSpec>Data:TECH.Persistent,Deep:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaKlantNummer">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZoekAlle">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ""
Index: vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u -r46826 -r51519
--- vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 46826)
+++ vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 51519)
@@ -15,19 +15,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatViaKlantNummer">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaKlantNummer",KlantNummer)
+]]></Implementation>
+</Method>
+
 <Method name="Bewaar">
 <FormalSpec>Data:TECH.Persistent</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
 ]]></Implementation>
 </Method>
 
+<Method name="Dupliceer">
+<FormalSpec>Data:TECH.Persistent,Deep:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Dupliceer",Data,Deep)
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaKlantNummer">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaKlantNummer",KlantNummer)
+]]></Implementation>
+</Method>
+
 <Method name="Maak">
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak")