Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r67081 -r67130
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 67081)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 67130)
@@ -87,7 +87,7 @@
 	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).LegraboxPure())
 	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Taorbox())
 	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).TandemboxAntaro())
-	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Orgalux())
+	Do ..BewaarOptioneleKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Orgalux())
 ]]></Implementation>
 </Method>
 
@@ -325,6 +325,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BewaarOptioneleKortingMetVariant">
+<FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (##class(TECH.StringUtils).Contains(..KlantSessieData.Korting, Variant)) {
+		Do ..BewaarKortingMetVariant(Personality, Variant)
+	} Else {
+		#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ..KortingSpecificatieFactory.Maak(Variant, Personality, ..KlantSessieData.KlantID)
+		Do ..KortingService.StelInKorting(KortingSpecificatie, 0)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BewaarKortingMetVariant">
 <FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant</FormalSpec>
 <Private>1</Private>
Index: WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml
===================================================================
diff -u -r60933 -r67130
--- WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(.../KortingVoorVariantBepaler.cls.xml)	(revision 60933)
+++ WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(.../KortingVoorVariantBepaler.cls.xml)	(revision 67130)
@@ -13,8 +13,8 @@
 		Set KortingIterator = ##class(TECH.ListIterator).%New(KortingLijst)
 		
 		While KortingIterator.HasNext() {
-			#dim KortingVoorLade AS %String = KortingIterator.Next()		
-			#dim VariantInitialen = $Piece(Variant, "_", "1")
+			#dim KortingVoorLade AS %String = KortingIterator.Next()
+			#dim VariantInitialen = $Piece(Variant, "_", 1)
 			
 			If (##class(TECH.StringUtils).StartsWith(KortingVoorLade, VariantInitialen)) {
 				Set Korting = $Piece(KortingVoorLade, "=", 2)
@@ -23,7 +23,7 @@
 					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 = "") {