Index: DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml
===================================================================
diff -u -r29059 -r38756
--- DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 29059)
+++ DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 38756)
@@ -3,7 +3,7 @@
 <Class name="DOM.PARTIJ.impl.LegacyPartijAPI">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PARTIJ.LegacyPartijAPI,%RegisteredObject</Super>
+<Super>DOM.PARTIJ.LegacyPartijAPI,TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="GeefKlantNummerVoorPartijID">
@@ -20,6 +20,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsKlantPartijID">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$StartsWithVar(KlantNummer, "K||")
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverancierNummerVoorPartijID">
 <FormalSpec>PartijID:DOM.common.PartijID</FormalSpec>
 <ReturnType>%String</ReturnType>