Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r71154 -r71278
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 71154)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 71278)
@@ -84,11 +84,12 @@
 <FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	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 ..BewaarOptioneleKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Merivobox())
-	Do ..BewaarOptioneleKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Orgalux())
+	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).LegraboxPure(), "verplicht")
+	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Taorbox(), "verplicht")
+	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).TandemboxAntaro(), "verplicht")
+	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Merivobox(), ##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Orgalux(), ##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Revego(), "0")
 ]]></Implementation>
 </Method>
 
@@ -350,39 +351,49 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BewaarOptioneleKortingMetVariant">
-<FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Method name="BewaarKortingMetVariant">
+<FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant,DefaultVariantIndienNietMeegegeven:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (##class(TECH.StringUtils).Contains(..KlantSessieData.Korting, Variant)) {
-		Do ..BewaarKortingMetVariant(Personality, Variant)
+	#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ..KortingSpecificatieFactory.Maak(Variant, Personality, ..KlantSessieData.KlantID)
+	#dim Korting As %String = ..KortingVoorVariantBepaler.GeefKortingVoorVariant(..KlantSessieData.Korting, Variant)
+	
+	If (Korting = "?") {
+		Do ..BewaarKortingVoorDefaultVariant(Personality, Variant, DefaultVariantIndienNietMeegegeven)
 	} Else {
-		#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ..KortingSpecificatieFactory.Maak(Variant, Personality, ..KlantSessieData.KlantID)
-		#dim KortingLbx As %String = ..KortingVoorVariantBepaler.GeefKortingVoorVariant(..KlantSessieData.Korting, ##class(DOM.PM.enu.Variant).LegraboxPure())
-		Do ..KortingService.StelInKorting(KortingSpecificatie, KortingLbx / 100)
+		#dim KortingPercentage As TECH.Percentage
+	
+		If ($IsValidNum(Korting) && ((Korting = 0) || ((Korting >= 1) && (Korting <= 100)))) {
+			Set KortingPercentage = (Korting / 100)
+		} ElseIf (Korting = "") {
+			Set KortingPercentage = 0
+		} Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan korting '" _ Korting _ "' niet parsen. (Personality: '" _ Personality.GeefID() _ "', Klant: '" _ ..KlantSessieData.KlantID _ "', '" _ ..KlantSessieData.KlantNaam _ "')"))
+		}
+	
+		If $$$Not(Korting = "") {
+			Do ..KortingService.StelInKorting(KortingSpecificatie, KortingPercentage)
+		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="BewaarKortingMetVariant">
-<FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Method name="BewaarKortingVoorDefaultVariant">
+<FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant,DefaultVariantIndienNietMeegegeven:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ..KortingSpecificatieFactory.Maak(Variant, Personality, ..KlantSessieData.KlantID)
-	#dim Korting As %String = ..KortingVoorVariantBepaler.GeefKortingVoorVariant(..KlantSessieData.Korting, Variant)
-	#dim KortingPercentage As TECH.Percentage
 	
-	If ($IsValidNum(Korting) && ((Korting = 0) || ((Korting >= 1) && (Korting <= 100)))) {
-		Set KortingPercentage = (Korting / 100)
-	} ElseIf (Korting = "") {
-		Set KortingPercentage = 0
+	If (DefaultVariantIndienNietMeegegeven = "verplicht") {
+		#dim VariantInitialen = $Piece(Variant, "_", 1)
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen kortingscode gevonden voor deze variant ("_VariantInitialen_")")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	} If (DefaultVariantIndienNietMeegegeven = "0") {
+		Do ..KortingService.StelInKorting(KortingSpecificatie, 0)
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan korting '" _ Korting _ "' niet parsen. (Personality: '" _ Personality.GeefID() _ "', Klant: '" _ ..KlantSessieData.KlantID _ "', '" _ ..KlantSessieData.KlantNaam _ "')"))
+		#dim KortingDefaultVariant As %String = ..KortingVoorVariantBepaler.GeefKortingVoorVariant(..KlantSessieData.Korting, DefaultVariantIndienNietMeegegeven)
+		Do ..KortingService.StelInKorting(KortingSpecificatie, KortingDefaultVariant / 100)
 	}
-	
-	If $$$Not(Korting = "") {
-		Do ..KortingService.StelInKorting(KortingSpecificatie, KortingPercentage)
-	}
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml
===================================================================
diff -u -r67130 -r71278
--- WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(.../KortingVoorVariantBepaler.cls.xml)	(revision 67130)
+++ WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(.../KortingVoorVariantBepaler.cls.xml)	(revision 71278)
@@ -27,8 +27,7 @@
 		}
 		
 		If (Korting = "") {
-			Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen kortingscode gevonden voor deze variant ("_VariantInitialen_")")
-			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+			Set Korting = "?"
 		}
 	}
 	ElseIf ( (##class(TECH.StringUtils).StripAllNumeric(KlantSessieDataKorting) = "") || (##class(TECH.StringUtils).StripAllNumeric(KlantSessieDataKorting) = ".") ) {