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>