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>