Index: AXimpl/Utils/KlantIdConverter.cls.xml
===================================================================
diff -u -r50885 -r51147
--- AXimpl/Utils/KlantIdConverter.cls.xml	(.../KlantIdConverter.cls.xml)	(revision 50885)
+++ AXimpl/Utils/KlantIdConverter.cls.xml	(.../KlantIdConverter.cls.xml)	(revision 51147)
@@ -3,6 +3,24 @@
 <Class name="AXimpl.Utils.KlantIdConverter">
 <Super>TECH.Mockable</Super>
 
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.impl.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ConvertToVanHoecke">
 <FormalSpec>KlantId:%String,PersonalityId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -20,12 +38,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If (PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()) {
-		If ##class(TECH.StringUtils).StartsWith(KlantId, "K||") {
-			Set KlantId = ##class(TECH.StringUtils).AlignRight($extract(KlantId, 4, *), 0, 5)
-		} Else {
-			Set KlantId = ##class(TECH.StringUtils).AlignRight(+KlantId, 0, 5)
+		If (..LegacyPartijApi.IsKlantPartijID(KlantId)) {
+			Set KlantId = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantId)
 		}
-
+		
+		Set KlantId = ##class(TECH.StringUtils).AlignRight(+KlantId, 0, 5)
 	}
 	
 	Quit KlantId