Index: zTryout/JLM/DataOptKorting.cls.xml
===================================================================
diff -u -r67088 -r67141
--- zTryout/JLM/DataOptKorting.cls.xml	(.../DataOptKorting.cls.xml)	(revision 67088)
+++ zTryout/JLM/DataOptKorting.cls.xml	(.../DataOptKorting.cls.xml)	(revision 67141)
@@ -25,6 +25,71 @@
     Quit EncryptedKlantSessieData
 ]]></Implementation>
 </Method>
+
+<Method name="AnalyseerKortingData">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Global As %String = "^DOM.VKP.impl.Korting.KortingD"
+	#dim OrderId As %Integer = $Order(@Global@(""))
+	#dim Aantal As %Integer = 1
+	#dim Datum As %String = ""
+
+	For { Set OrderId = $Order(@Global@(OrderId)) Quit:(OrderId="")
+		Set Aantal = Aantal + 1
+		Set Datum = $List(@Global@(OrderId), 9)
+		
+		//Write !, Datum
+	}
+	
+	Write !, Aantal, !
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortingInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KortingSpecificaties:DOM.VKP.dto.KortingSpecificaties</FormalSpec>
+<ReturnType>DOM.VKP.dto.KortingInfo</ReturnType>
+<Implementation><![CDATA[
+	Set KortingInfo = ##class(DOM.VKP.dto.KortingInfo).%New()
+	
+	#dim KS As DOM.VKP.dto.KortingSpecificaties = KortingSpecificaties
+		
+	#dim Query As %String
+	Set Query = "SELECT KortingPercentage FROM DOM_VKP_impl_Korting.Korting"_
+			" WHERE PersonalityID = ?"_
+			" AND KlantID = ?"_
+			" AND Familie = ?"_
+			" AND Variant = ?"_
+			" AND VanafAantal <= ?"_
+			" ORDER BY VanafAantal DESC"
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(KS.PersonalityID,KS.KlantID,KS.Familie,KS.Variant,KS.Aantal))
+	
+	If ResultSet.Next() {
+		Write "Test", !
+		Set KortingInfo.Percentage = ResultSet.Data("KortingPercentage")
+	} Else {
+		Write "Geen resultaten gevonden", !
+	}
+	
+	Quit KortingInfo
+]]></Implementation>
+</Method>
+
+<Method name="BekijkKortingen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	
+	Set KortingSpecificatie.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+	Set KortingSpecificatie.KlantID = "SFS_999999"
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = ##class(DOM.PM.enu.Variant).Orgalux()
+	Set KortingSpecificatie.Aantal = 1
+
+	#dim KortingInfo As DOM.VKP.dto.KortingInfo = ..GeefKortingInfo(KortingSpecificatie)
+	Write "Percent: ", KortingInfo.Percentage, !
+]]></Implementation>
+</Method>
 </Class>