Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r46607 -r46621
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 46607)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 46621)
@@ -21,41 +21,67 @@
 </Method>
 
 <Method name="IsKlantBij">
-<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonality:DOM.common.Personality</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit:(KlantPersonality.GeefID() = LeverancierPersonalty.GeefID()) $$$False
+	Quit:(KlantPersonality.GeefID() = LeverancierPersonality.GeefID()) $$$False
 	Quit:$$$Not($Length(KlantPersonality.GeefLeverancierData().PersonalityId)) $$$False
 
 	#dim IsKlantBij As %Boolean = $$$False
 	
 	If 'IsKlantBij && $Length(KlantPersonality.GeefLeverancierData().PersonalityId) {
-		set IsKlantBij = ( KlantPersonality.GeefLeverancierData().PersonalityId = LeverancierPersonalty.GeefID() )
+		set IsKlantBij = ( KlantPersonality.GeefLeverancierData().PersonalityId = LeverancierPersonality.GeefID() )
 	}
 	
 	Quit IsKlantBij
 ]]></Implementation>
 </Method>
 
 <Method name="IsOnrechtstreeksKlantBij">
-<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonality:DOM.common.Personality</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit:(KlantPersonality.GeefID() = LeverancierPersonalty.GeefID()) $$$False
+	Quit:(KlantPersonality.GeefID() = LeverancierPersonality.GeefID()) $$$False
 	Quit:$$$Not($Length(KlantPersonality.GeefLeverancierData().PersonalityId)) $$$False
 	
-	Quit:..IsKlantBij(KlantPersonality,LeverancierPersonalty) $$$False
+	Quit:..IsKlantBij(KlantPersonality,LeverancierPersonality) $$$False
 	
 	#dim IsOnrechtstreeksKlantBij As %Boolean = $$$False
 	Set KlantPersonality = ..PersonalityRepo.GeefViaID(KlantPersonality.GeefLeverancierData().PersonalityId)
-	while 'IsOnrechtstreeksKlantBij && $Length(KlantPersonality.GeefLeverancierData().PersonalityId) {
-		set IsOnrechtstreeksKlantBij = ( KlantPersonality.GeefLeverancierData().PersonalityId = LeverancierPersonalty.GeefID() )
+	while $$$Not(IsOnrechtstreeksKlantBij) && $Length(KlantPersonality.GeefLeverancierData().PersonalityId) {
+		set IsOnrechtstreeksKlantBij = ( KlantPersonality.GeefLeverancierData().PersonalityId = LeverancierPersonality.GeefID() )
 		set KlantPersonality = ..PersonalityRepo.GeefViaID(KlantPersonality.GeefLeverancierData().PersonalityId)
 	}
 	
 	quit IsOnrechtstreeksKlantBij
 ]]></Implementation>
 </Method>
+
+<Method name="IsGeldigKlantId">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(Personality.GeefID()=##class(DOM.common.enu.Personality).VanHoecke()) ##class(TECH.StringUtils).StartsWith(KlantId,"K||")
+	
+	Quit:(Personality.GeefID()=##class(DOM.common.enu.Personality).VanHoeckeVoorHalux()) ##class(TECH.StringUtils).StartsWith(KlantId,"K||")
+	
+	Quit ##class(TECH.StringUtils).StartsWith(KlantId,Personality.GeefPrefix())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantCodeViaKlantId">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).StripFirstPart(KlantId,Personality.GeefPrefix())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantIdViaKlantCode">
+<FormalSpec>Personality:DOM.common.Personality,KlantCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Personality.GeefPrefix()_KlantCode
+]]></Implementation>
+</Method>
 </Class>