Index: vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml
===================================================================
diff -u -r38756 -r54711
--- vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 38756)
+++ vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 54711)
@@ -47,6 +47,30 @@
 <Implementation><![CDATA[	do $$$AssertTrue(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().IsKlantPartijID("K||1000"))
 ]]></Implementation>
 </Method>
+
+<Method name="Test: VerwijderPrefixVanHandelKlantId voor Personality gelijk aan VanHoecke">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId("K||1000", ##class(DOM.common.enu.Personality).VanHoecke()),"1000")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwijderPrefixVanHandelKlantId voor Personality gelijk aan VanHoecke met foute input -&gt; exceptie">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("HandelKlantId 'abc1000' heeft niet de juiste prefix voor Personality 'Van Hoecke nv' (K||)")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Do ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId("abc1000", ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwijderPrefixVanHandelKlantId voor Personality verschillend van VanHoecke">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId("SFS_123456", ##class(DOM.common.enu.Personality).SFS()),"123456")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VoegPrefixToeAanHandelKlantId voegt de prefix toe">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VoegPrefixToeAanHandelKlantId("123456", ##class(DOM.common.enu.Personality).SFS()),"SFS_123456")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml
===================================================================
diff -u -r38756 -r54711
--- DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 38756)
+++ DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 54711)
@@ -6,6 +6,24 @@
 <Super>DOM.PARTIJ.LegacyPartijAPI,TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
+<Property name="CommonApi">
+<Type>DOM.common.CommonAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..CommonApi = ##class(DOM.common.impl.CommonAPI).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantNummerVoorPartijID">
 <FormalSpec>PartijID:DOM.common.PartijID</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -49,6 +67,28 @@
 	quit $get(^KL1(LeverancierNr))
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderPrefixVanHandelKlantId">
+<FormalSpec>HandelKlantId:%String,PersonalityId:DOM.common.enu.Personality=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality = ..CommonApi.GeefPersonality(PersonalityId)
+	If $$$Not($$$StartsWithVar(HandelKlantId, Personality.GeefPrefix())){
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("HandelKlantId '"_HandelKlantId_"' heeft niet de juiste prefix voor Personality '"_Personality.GeefNaam()_"' ("_Personality.GeefPrefix()_")")
+	} Else {
+		Quit ##class(TECH.StringUtils).Replace(HandelKlantId, Personality.GeefPrefix(), "")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegPrefixToeAanHandelKlantId">
+<FormalSpec>HandelKlantId:%String,PersonalityId:DOM.common.enu.Personality=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality = ..CommonApi.GeefPersonality(PersonalityId)
+	Quit Personality.GeefPrefix()_HandelKlantId
+]]></Implementation>
+</Method>
 </Class>