Index: DOM/VKP/impl/KortingService.cls.xml
===================================================================
diff -u -r49581 -r62132
--- DOM/VKP/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 49581)
+++ DOM/VKP/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 62132)
@@ -27,6 +27,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKortingInfoVoorDecrypteer">
+<FormalSpec>PersonalityId:%String,KlantId:%String,Variant:%String</FormalSpec>
+<ReturnType>DOM.VKP.dto.KortingInfo</ReturnType>
+<Implementation><![CDATA[
+	Set KortingInfo = ##class(DOM.VKP.dto.KortingInfo).%New()
+		
+	#dim Query As %String
+	Set Query = "SELECT top 1 KortingPercentage FROM DOM_VKP_impl_Korting.Korting"_
+			" WHERE PersonalityID = ?"_
+			" AND KlantID = ?"_
+			" AND Variant = ?"_
+			" ORDER BY VanafAantal DESC"
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(PersonalityId, KlantId, Variant))
+	If ResultSet.Next() {
+		Set KortingInfo.Percentage = ResultSet.Data("KortingPercentage")
+	}
+	Quit KortingInfo
+]]></Implementation>
+</Method>
+
 <Method name="StelInKorting">
 <Description>
 Let op: </Description>
Index: vhTest/Mock/DOM/VKP/KortingService.cls.xml
===================================================================
diff -u -r29059 -r62132
--- vhTest/Mock/DOM/VKP/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/VKP/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 62132)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.VKP.KortingService">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.VKP.KortingService,Tools.Mock.MockClassBase</Super>
 
@@ -15,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKortingInfoVoorDecrypteer">
+<FormalSpec>PersonalityId:%String,KlantId:%String,Variant:%String</FormalSpec>
+<ReturnType>DOM.VKP.dto.KortingInfo</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingInfoVoorDecrypteer",PersonalityId,KlantId,Variant)
+]]></Implementation>
+</Method>
+
 <Method name="StelInKorting">
 <FormalSpec>KortingSpecificaties:DOM.VKP.dto.KortingSpecificaties,KortingPercentage:TECH.Percentage</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("StelInKorting",KortingSpecificaties,KortingPercentage)
Index: DOM/VKP/KortingService.cls.xml
===================================================================
diff -u -r29059 -r62132
--- DOM/VKP/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 29059)
+++ DOM/VKP/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 62132)
@@ -10,6 +10,12 @@
 <ReturnType>DOM.VKP.dto.KortingInfo</ReturnType>
 </Method>
 
+<Method name="GeefKortingInfoVoorDecrypteer">
+<Abstract>1</Abstract>
+<FormalSpec>PersonalityId:%String,KlantId:%String,Variant:%String</FormalSpec>
+<ReturnType>DOM.VKP.dto.KortingInfo</ReturnType>
+</Method>
+
 <Method name="StelInKorting">
 <Abstract>1</Abstract>
 <FormalSpec>KortingSpecificaties:DOM.VKP.dto.KortingSpecificaties,KortingPercentage:TECH.Percentage</FormalSpec>