Index: APPS/VKP/impl/VerkoopPrijsAPI.cls.xml
===================================================================
diff -u -r29059 -r61263
--- APPS/VKP/impl/VerkoopPrijsAPI.cls.xml	(.../VerkoopPrijsAPI.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/VerkoopPrijsAPI.cls.xml	(.../VerkoopPrijsAPI.cls.xml)	(revision 61263)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.impl.VerkoopPrijsAPI">
-<Super>APPS.VKP.VerkoopPrijsAPI,%RegisteredObject</Super>
+<Super>APPS.VKP.VerkoopPrijsAPI,TECH.RegisteredObject</Super>
 
 <Property name="VerkoopPrijsService">
 <Type>APPS.VKP.VerkoopPrijsService</Type>
@@ -18,18 +18,22 @@
 <Method name="StelInKortingenVoorKlant">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
 <Implementation><![CDATA[
+	#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()
 	Set KortingConfiguratieIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 	While KortingConfiguratieIt.HasNext(){
-		Do ..StelInKortingVoorKlant(KortingConfiguratieIt.Next())
+		Do ..StelInKortingVoorKlant(KortingConfiguratieIt.Next(),KortingService)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="StelInKortingVoorKlant">
-<FormalSpec>KortingConfiguratie:APPS.VKP.dto.KortingConfiguratie</FormalSpec>
-<Private>1</Private>
+<FormalSpec>KortingConfiguratie:APPS.VKP.dto.KortingConfiguratie,MyKortingService:APPS.VKP.Korting.KortingService=""</FormalSpec>
 <Implementation><![CDATA[
-	#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()
+	if $$$Not($IsObject(MyKortingService)){
+		#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()
+	} else {
+		Set KortingService = MyKortingService
+	}
 	
 	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
 	Set KortingSpecificatie.PersonalityID = KortingConfiguratie.PersonalityID