Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r68174 -r71279
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 68174)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 71279)
@@ -18,15 +18,18 @@
 	Set TaxKorting.Percentage = 0.333
 	Set MvxKorting = ##class(DOM.VKP.dto.KortingInfo).%New()
 	Set MvxKorting.Percentage = 0.444
+	Set RvgKorting = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set RvgKorting.Percentage = 0.555
 	Set OlKorting = ##class(DOM.VKP.dto.KortingInfo).%New()
-	Set OlKorting.Percentage = 0.555
+	Set OlKorting.Percentage = 0.666
 	
 	Set KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
 	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).LegraboxPure()).DanReturn(LbxKorting)
 	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).TandemboxAntaro()).DanReturn(TbxKorting)
 	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Taorbox()).DanReturn(TaxKorting)
 	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Merivobox()).DanReturn(MvxKorting)
-	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Orgalux()).DanReturn(OlKorting)	
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Revego()).DanReturn(RvgKorting)
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Orgalux()).DanReturn(OlKorting)
 	
 	Set HandelsKlantKortingsPercentageBepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.HandelsKlantKortingsPercentageBepaler).%New(KortingServiceMock)
 	
@@ -37,6 +40,7 @@
 	Do $$$AssertEquals(KortingsPercentages.TBX,TbxKorting.Percentage*100)
 	Do $$$AssertEquals(KortingsPercentages.TAX,TaxKorting.Percentage*100)
 	Do $$$AssertEquals(KortingsPercentages.MVX,MvxKorting.Percentage*100)
+	Do $$$AssertEquals(KortingsPercentages.RVG,RvgKorting.Percentage*100)
 	Do $$$AssertEquals(KortingsPercentages.OL,OlKorting.Percentage*100)
 	
 	Do KortingServiceMock.Verifieer()
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/BewaarMeegegevenKorting/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/BewaarMeegegevenKorting/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/BewaarMeegegevenKorting/Test.cls.xml	(revision 71279)
@@ -0,0 +1,211 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.BewaarMeegegevenKorting.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="RefKey">
+<Type>%String</Type>
+<Default>DummyRef</Default>
+</Parameter>
+
+<Parameter name="DataOpt">
+<Type>%String</Type>
+<Default>DummyDataOpt</Default>
+</Parameter>
+
+<Parameter name="KlantIdSFS">
+<Type>%String</Type>
+<Default>K||12486</Default>
+</Parameter>
+
+<Property name="Personality">
+<Type>DOM.common.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KortingServiceMock">
+<Type>DOM.VKP.KortingService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantSessieDataBepalerStub">
+<Type>APPS.EC.impl.KlantSessieDataBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RefSessieDataBepalerStub">
+<Type>APPS.EC.impl.RefSessieDataBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Personality = ##class(DOM.common.SFSPersonality).Instance()
+	Set ..KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
+	Do ..ZetRefSessieDataBepalerStub(..#KlantIdSFS, "SFS")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Handel zonder verificatie verwerkt geen kortingen">
+<Implementation><![CDATA[
+	#dim KortingCode = "10"
+	#dim KlantId As %String = "K||4598"
+	
+	Do ..ZetKlantSessieDataBepalerStub(KortingCode)
+	Do ..ZetRefSessieDataBepalerStub(KlantId, "VHEPN")
+	
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, $$$ElkeWaarde).ExactAantalKeer(0)
+	
+	Set KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(, ..KortingServiceMock, ..KlantSessieDataBepalerStub, ..RefSessieDataBepalerStub, )
+	Do KortingBewaarder.BewaarMeegegevenKorting(..#RefKey, ..#DataOpt)
+	
+	Do ..KortingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien 1 cijfer wordt meegegeven wordt korting voor elke variant ingesteld met deze korting">
+<Implementation><![CDATA[
+	#dim KortingCode = "10"
+	Do ..ZetKlantSessieDataBepalerStub(KortingCode)
+	
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, KortingCode / 100).ExactAantalKeer(6)
+	
+	Set KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(, ..KortingServiceMock, ..KlantSessieDataBepalerStub, ..RefSessieDataBepalerStub, )
+	Do KortingBewaarder.BewaarMeegegevenKorting(..#RefKey, ..#DataOpt)
+	
+	Do ..KortingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien aparte kortingen per variant worden meegegeven, wordt de korting hiervoor correct ingesteld">
+<Implementation><![CDATA[
+	#dim KortingCode = "TBX=2;LBX=3;TAOR=5;MVX=8;RVG=13;OL=21"
+	Do ..ZetKlantSessieDataBepalerStub(KortingCode)
+	
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.02).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.03).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.05).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.08).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.13).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.21).ExactAantalKeer(1)
+	
+	Set KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(, ..KortingServiceMock, ..KlantSessieDataBepalerStub, ..RefSessieDataBepalerStub, )
+	Do KortingBewaarder.BewaarMeegegevenKorting(..#RefKey, ..#DataOpt)
+	
+	Do ..KortingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: MVX en OL nemen korting over van LBX indien niet meegegeven">
+<Implementation><![CDATA[
+	#dim KortingCode = "TBX=2;LBX=3;TAOR=5;RVG=13"
+	Do ..ZetKlantSessieDataBepalerStub(KortingCode)
+	
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.02).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.03).ExactAantalKeer(3)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.05).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.13).ExactAantalKeer(1)
+	
+	Set KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(, ..KortingServiceMock, ..KlantSessieDataBepalerStub, ..RefSessieDataBepalerStub, )
+	Do KortingBewaarder.BewaarMeegegevenKorting(..#RefKey, ..#DataOpt)
+	
+	Do ..KortingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: RVG heeft geen korting indien niet meegegeven">
+<Implementation><![CDATA[
+	#dim KortingCode = "TBX=2;LBX=3;TAOR=5"
+	Do ..ZetKlantSessieDataBepalerStub(KortingCode)
+	
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.02).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.03).ExactAantalKeer(3)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0.05).ExactAantalKeer(1)
+	Do ..KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, 0).ExactAantalKeer(1)
+	
+	Set KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(, ..KortingServiceMock, ..KlantSessieDataBepalerStub, ..RefSessieDataBepalerStub, )
+	Do KortingBewaarder.BewaarMeegegevenKorting(..#RefKey, ..#DataOpt)
+	
+	Do ..KortingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Fout indien verplichte variant LBX niet is meegegeven">
+<Implementation><![CDATA[
+	#dim KortingCode = "TBX=2;TAOR=5;MVX=8;RVG=13;OL=21"
+	Do ..ZetKlantSessieDataBepalerStub(KortingCode)
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen kortingscode gevonden voor deze variant (LBX)")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.02).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.03).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.05).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.08).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.13).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.21).DanDoeNiks()
+	
+	Set KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(, ..KortingServiceMock, ..KlantSessieDataBepalerStub, ..RefSessieDataBepalerStub, )
+	Do KortingBewaarder.BewaarMeegegevenKorting(..#RefKey, ..#DataOpt)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Fout indien vreemde tekens meegegeven zijn">
+<Implementation><![CDATA[
+	#dim KortingCode = "TBX=2;LBX=abcd;TAOR=5;MVX=8;RVG=13;OL=21"
+	Do ..ZetKlantSessieDataBepalerStub(KortingCode)
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abcd' niet parsen. (Personality: '3', Klant: '9999', 'TestKlant')")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+	
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.02).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.03).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.05).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.08).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.13).DanDoeNiks()
+	Do ..KortingServiceMock.IndienMethodCall("StelInKorting", $$$ElkeWaarde, 0.21).DanDoeNiks()
+	
+	Set KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(, ..KortingServiceMock, ..KlantSessieDataBepalerStub, ..RefSessieDataBepalerStub, )
+	Do KortingBewaarder.BewaarMeegegevenKorting(..#RefKey, ..#DataOpt)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKlantSessieDataBepalerStub">
+<FormalSpec>KortingCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set KlantSessieData.Email= ""
+    Set KlantSessieData.GebruikerID= "TestKlantId"
+    Set KlantSessieData.KlantID= "9999"
+    Set KlantSessieData.KlantNaam= "TestKlant"
+    Set KlantSessieData.Korting= KortingCode
+    Set KlantSessieData.Taal= "N"
+    
+	Set ..KlantSessieDataBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do ..KlantSessieDataBepalerStub.IndienMethodCall("GeefKlantSessieData", ..#DataOpt, $$$ElkeWaarde).DanReturn(KlantSessieData)
+]]></Implementation>
+</Method>
+
+<Method name="ZetRefSessieDataBepalerStub">
+<FormalSpec>KlantId:%String,WebShopVerwerker:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
+	Set RefSessieData.KlantID = KlantId
+	Set RefSessieData.OfferteID = "DummyOfferte"
+	Set RefSessieData.Verwerker = WebShopVerwerker
+	Set RefSessieData.WebshopModus = "Vrijgave"
+	Set RefSessieData.WSID = ""
+	
+	Set ..RefSessieDataBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.RefSessieDataBepaler).%New()
+	Do ..RefSessieDataBepalerStub.IndienMethodCall("GeefRefSessieData", ..#RefKey).DanReturn(RefSessieData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml
===================================================================
diff -u -r67081 -r71279
--- vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 67081)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 71279)
@@ -65,24 +65,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test KortingVoorVariantBepaler korting per ladetype krijgt ongeldig formaat mee, geen lade initialen aanwezig maar geen korting">
+<Method name="Test KortingVoorVariantBepaler korting per ladetype, geen korting aanwezig voor verwachte variant geeft ?">
 <Implementation><![CDATA[
-	#dim KlantSessieDataKorting = "TBX="	
-	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
+	#dim KlantSessieDataKorting = "TBX=20"
+	#dim TAORVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
 	
+	#dim TAORKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TAORVariant)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("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 ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
-	Do ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
+	Do $$$AssertEquals(TAORKorting, "?")
 ]]></Implementation>
 </Method>
 
-<Method name="Test KortingVoorVariantBepaler korting per ladetype, geen korting aanwezig voor verwachte variant">
+<Method name="Test KortingVoorVariantBepaler korting per ladetype krijgt ongeldig formaat mee, geen lade initialen aanwezig maar geen korting">
 <Implementation><![CDATA[
-	#dim KlantSessieDataKorting = "TBX=20"	
-	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()	
+	#dim KlantSessieDataKorting = "TBX="	
+	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen kortingscode gevonden voor deze variant")
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("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 ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
 	Do ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
 ]]></Implementation>