Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r50219 -r50232
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 50219)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 50232)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantIdConverter">
+<Type>AXimpl.Utils.KlantIdConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,Vhisie4KlantInfoOphaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler</FormalSpec>
 <Private>1</Private>
@@ -28,7 +33,7 @@
 	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..Vhisie4KlantInfoOphaler = $$$Inject(Vhisie4KlantInfoOphaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New())
-
+	Set ..KlantIdConverter = ##class(AXimpl.Utils.KlantIdConverter).%New()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,7 +49,7 @@
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 	
-	#dim VanHoeckeKlantID As %String = ##class(AXimpl.Utils.KlantIdConverter).%New().ConvertToVanHoecke(KlantID, ##class(DOM.common.enu.Personality).VanHoecke())
+	#dim VanHoeckeKlantID As %String = ..KlantIdConverter.ConvertToVanHoecke(KlantID, ##class(DOM.common.enu.Personality).VanHoecke())
 	#dim KlantPartijID As DOM.common.PartijID = ..LegacyPartijAPI.GeefKlantPartijID(VanHoeckeKlantID)
 	
 	Quit ..VerkoopAPI.GeefKlant(KlantPartijID)