Index: WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(revision 0)
+++ WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(revision 60933)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Unishop.Login.KortingVoorVariantBepaler">
+<Super>TECH.Mockable</Super>
+
+<Method name="GeefKortingVoorVariant">
+<FormalSpec>KlantSessieDataKorting:%String,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Implementation><![CDATA[
+	#dim Korting as %String = ""
+
+	If (##class(TECH.StringUtils).Contains(KlantSessieDataKorting, "="))	{
+		#dim KortingLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(KlantSessieDataKorting,";")
+		Set KortingIterator = ##class(TECH.ListIterator).%New(KortingLijst)
+		
+		While KortingIterator.HasNext() {
+			#dim KortingVoorLade AS %String = KortingIterator.Next()		
+			#dim VariantInitialen = $Piece(Variant, "_", "1")
+			
+			If (##class(TECH.StringUtils).StartsWith(KortingVoorLade, VariantInitialen)) {
+				Set Korting = $Piece(KortingVoorLade, "=", 2)
+				
+				If (Korting = "") {
+					Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Ladetype werd meegegeven maar korting werd als leeg meegegeven. Korting moet 1 numeriek veld zijn of in het formaat 'TBX=20;LBX=25.5;TAOR=15'")
+					Do ##class(TECH.ExceptionHandler).Throw(Exception)
+				}
+			}	
+		}
+		
+		If (Korting = "") {
+			Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen kortingscode gevonden voor deze variant ("_VariantInitialen_")")
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}
+	ElseIf ( (##class(TECH.StringUtils).StripAllNumeric(KlantSessieDataKorting) = "") || (##class(TECH.StringUtils).StripAllNumeric(KlantSessieDataKorting) = ".") ) {
+		Set Korting = KlantSessieDataKorting
+	}
+	Else {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Korting werd niet in het correcte formaat meegegeven. Dit moet 1 numeriek veld zijn of in het formaat 'TBX=20;LBX=25.5;TAOR=15'")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit Korting
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(revision 60933)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Unishop.Login.KortingVoorVariantBepaler">
+<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</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Unishop.Login.KortingVoorVariantBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefKortingVoorVariant">
+<FormalSpec>KlantSessieDataKorting:%String,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefKortingVoorVariant",KlantSessieDataKorting,Variant)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r59328 -r60933
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 59328)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 60933)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KortingVoorVariantBepaler">
+<Type>WSimpl.Unishop.Login.KortingVoorVariantBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KortingSpecificatieFactory:DOM.VKP.dto.KortingSpecificatieFactory="",KortingService:DOM.VKP.KortingService="",KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler="",RefSessieDataBepaler:APPS.EC.impl.RefSessieDataBepaler=""</FormalSpec>
+<FormalSpec>KortingSpecificatieFactory:DOM.VKP.dto.KortingSpecificatieFactory="",KortingService:DOM.VKP.KortingService="",KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler="",RefSessieDataBepaler:APPS.EC.impl.RefSessieDataBepaler="",KortingVoorVariantBepaler:WSimpl.Unishop.Login.KortingVoorVariantBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -44,7 +49,8 @@
 	Set ..KortingService = $$$Inject(KortingService, ##class(DOM.VKP.impl.KortingService).%New())
 	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler, ##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
 	Set ..RefSessieDataBepaler = $$$Inject(RefSessieDataBepaler, ##class(APPS.EC.impl.RefSessieDataBepaler).%New())
-	
+	Set ..KortingVoorVariantBepaler = $$$Inject(KortingVoorVariantBepaler, ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New())
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -275,7 +281,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ..KortingSpecificatieFactory.Maak(Variant, Personality, ..KlantSessieData.KlantID)
-	#dim Korting As %String = ..KlantSessieData.Korting
+	#dim Korting As %String = ..KortingVoorVariantBepaler.GeefKortingVoorVariant(..KlantSessieData.Korting, Variant)
 	#dim KortingPercentage As TECH.Percentage
 	
 	If ($IsValidNum(Korting) && ((Korting = 0) || ((Korting >= 1) && (Korting <= 100)))) {
Index: vhTest/Fake/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(revision 60933)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Unishop.Login.KortingVoorVariantBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+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>WSimpl.Unishop.Login.KortingVoorVariantBepaler</Super>
+
+<Method name="GeefKortingVoorVariant">
+<FormalSpec>KlantSessieDataKorting:%String,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r59328 -r60933
--- vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 59328)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 60933)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>KortingSpecificatieFactory:DOM.VKP.dto.KortingSpecificatieFactory="",KortingService:DOM.VKP.KortingService="",KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler="",RefSessieDataBepaler:APPS.EC.impl.RefSessieDataBepaler=""</FormalSpec>
+<FormalSpec>KortingSpecificatieFactory:DOM.VKP.dto.KortingSpecificatieFactory="",KortingService:DOM.VKP.KortingService="",KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler="",RefSessieDataBepaler:APPS.EC.impl.RefSessieDataBepaler="",KortingVoorVariantBepaler:WSimpl.Unishop.Login.KortingVoorVariantBepaler=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>