Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml
===================================================================
diff -u -r67208 -r67209
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 67208)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 67209)
@@ -32,64 +32,78 @@
 <Implementation><![CDATA[
 	do ##super()
 	
-	Set ..CustomerBE = ..GeefCustomerBE()
-	Set ..CustomerDE = ..GeefCustomerDE()
-	Set ..CustomerNL = ..GeefCustomerNL()
-
 	Set ..KortingServiceHelperMock = ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingService.KortingServiceHelper).%New()
 	Do ..ZetKortingServiceHelperMockMethodCalls()
 ]]></Implementation>
 </Method>
 
-<Method name="Test HaefeleBE met korting Orgalux meegegeven">
+<Method name="Test Klant met alle kortingen meegegeven =&gt; geeft KortingConfigArray met deze kortingen terug">
 <Implementation><![CDATA[
+	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetAlleKortingenMeegegeven()
 	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
-	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
+	
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
 	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
-	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(..CustomerBE, PersonalityID)
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(Klant, PersonalityID)
 	
-	Do ..AssertKortingConfiguratieLijstHaefeleBE(KortingConfiguratieLijst)
+	Do ..AssertKortingConfiguratieLijstAlleKortingen(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test HaefeleNL">
+<Method name="Test Klant met enkel OL niet meegegeven =&gt; geeft KortingConfigArray waarbij korting OL is korting TBX">
 <Implementation><![CDATA[
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
-	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
+	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetEnkelOLNietMeegegeven()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
 	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
-	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(..CustomerNL, PersonalityID)
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(Klant, PersonalityID)
 	
-	Do ..AssertKortingConfiguratieLijstHaefeleNL(KortingConfiguratieLijst)
+	Do ..AssertKortingConfiguratieLijstZonderOL(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test HaefeleDE">
+<Method name="Test Klant met enkel MVX niet meegegeven =&gt; geeft KortingConfigArray waarbij korting MVX is korting TBX">
 <Implementation><![CDATA[
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleDE()
-	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
+	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetEnkelMvxNietMeegegeven()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
 	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
-	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(..CustomerDE, PersonalityID)
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(Klant, PersonalityID)
 	
-	Do ..AssertKortingConfiguratieLijstHaefeleDE(KortingConfiguratieLijst)
+	Do ..AssertKortingConfiguratieLijstZonderMvx(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKortingConfiguratieLijstHaefeleBE">
+<Method name="Test Klant met enkel TBX meegegeven =&gt; geeft KortingConfigArray waarbij alle kortingen deze van TBX">
+<Implementation><![CDATA[
+	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetEnkelTbxMeegegeven()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(Klant, PersonalityID)
+	
+	Do ..AssertKortingConfiguratieLijstEnkelTbx(KortingConfiguratieLijst)
+]]></Implementation>
+</Method>
+
+<Method name="AssertKortingConfiguratieLijstAlleKortingen">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
 <Implementation><![CDATA[
 	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE2000001"
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.271,##class(DOM.PM.enu.Variant).Merivobox())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.141,##class(DOM.PM.enu.Variant).Orgalux())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.271,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.360,##class(DOM.PM.enu.Variant).Taorbox())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
@@ -98,6 +112,63 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertKortingConfiguratieLijstZonderOL">
+<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
+<Implementation><![CDATA[
+	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
+	
+	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.271,##class(DOM.PM.enu.Variant).Merivobox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.360,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
+	}
+	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="AssertKortingConfiguratieLijstZonderMvx">
+<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
+<Implementation><![CDATA[
+	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
+	
+	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Merivobox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.141,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.360,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
+	}
+	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="AssertKortingConfiguratieLijstEnkelTbx">
+<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
+<Implementation><![CDATA[
+	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
+	
+	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Merivobox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
+	}
+	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
+]]></Implementation>
+</Method>
+
 <Method name="AssertKortingConfiguratieLijstHaefeleNL">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
 <Implementation><![CDATA[
@@ -140,42 +211,73 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefCustomerBE">
+<Method name="GeefKlantMetAlleKortingenMeegegeven">
 <Private>1</Private>
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "BE2000001"
+	Set Customer.id = "BE1000000"
 	Do Customer.Reduction.SetAt(16.1,"TBX")
 	Do Customer.Reduction.SetAt(3.14,"LBX")
-	Do Customer.Reduction.SetAt(27.1,"TAX")
+	Do Customer.Reduction.SetAt(36.0,"TAX")
+	Do Customer.Reduction.SetAt(27.1,"MVX")
 	Do Customer.Reduction.SetAt(14.1,"OL")
 	Quit Customer
 ]]></Implementation>
 </Method>
 
-<Method name="GeefCustomerDE">
+<Method name="GeefKlantMetEnkelOLNietMeegegeven">
 <Private>1</Private>
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "DE2000001"
+	Set Customer.id = "BE1000000"
 	Do Customer.Reduction.SetAt(16.1,"TBX")
+	Do Customer.Reduction.SetAt(3.14,"LBX")
+	Do Customer.Reduction.SetAt(36.0,"TAX")
+	Do Customer.Reduction.SetAt(27.1,"MVX")
 	Quit Customer
 ]]></Implementation>
 </Method>
 
-<Method name="GeefCustomerNL">
+<Method name="GeefKlantMetEnkelMvxNietMeegegeven">
 <Private>1</Private>
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "NL2000001"
+	Set Customer.id = "BE1000000"
 	Do Customer.Reduction.SetAt(16.1,"TBX")
+	Do Customer.Reduction.SetAt(3.14,"LBX")
+	Do Customer.Reduction.SetAt(36.0,"TAX")
+	Do Customer.Reduction.SetAt(14.1,"OL")
 	Quit Customer
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantMetEnkelTbxMeegegeven">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "BE1000000"
+	Do Customer.Reduction.SetAt(16.1,"TBX")
+	Quit Customer
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantMetTbxNietMeegegeven">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "BE1000000"
+	Do Customer.Reduction.SetAt(3.14,"LBX")
+	Do Customer.Reduction.SetAt(27.1,"TAX")
+	Do Customer.Reduction.SetAt(14.1,"OL")
+	Quit Customer
+]]></Implementation>
+</Method>
+
 <Method name="ZetKortingServiceHelperMockMethodCalls">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -188,15 +290,17 @@
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TBX_PLUS").DanReturn(##class(DOM.PM.enu.Variant).TandemboxPlus())
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "LBX").DanReturn(##class(DOM.PM.enu.Variant).LegraboxPure())
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TAX").DanReturn(##class(DOM.PM.enu.Variant).Taorbox())
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "MVX").DanReturn(##class(DOM.PM.enu.Variant).Merivobox())
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "OL").DanReturn(##class(DOM.PM.enu.Variant).Orgalux())
 	
-	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", PersonalityHaefeleBE).DanReturn($ListBuild("TBX_Intivo", "TBX_Antaro", "TBX_Plus", "LBX_Pure", "OL"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", PersonalityHaefeleBE).DanReturn($ListBuild("TBX_Intivo", "TBX_Antaro", "TBX_Plus", "LBX_Pure", "TAOR", "MVX", "OL"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", PersonalityHaefeleDE).DanReturn($ListBuild("TBX_Antaro", "LBX_Pure", "TAOR", "MVX"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", PersonalityHaefeleNL).DanReturn($ListBuild("TBX_Antaro", "LBX_Pure", "TAOR"))
 	
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TBX", PersonalityHaefeleBE).DanReturn($ListBuild("TBX_Intivo", "TBX_Antaro", "TBX_Plus"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "LBX", PersonalityHaefeleBE).DanReturn($ListBuild("LBX_Pure"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TAX", PersonalityHaefeleBE).DanReturn($ListBuild("TAOR"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "MVX", PersonalityHaefeleBE).DanReturn($ListBuild("MVX"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "OL", PersonalityHaefeleBE).DanReturn($ListBuild("OL"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TBX", PersonalityHaefeleDE).DanReturn($ListBuild("TBX_Antaro", "LBX_Pure", "TAOR")) // TIJDELIJK!!
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TBX", PersonalityHaefeleNL).DanReturn($ListBuild("TBX_Antaro", "LBX_Pure", "TAOR")) // TIJDELIJK!!
Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67208 -r67209
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67208)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67209)
@@ -86,15 +86,9 @@
 		If $$$Not(KortingConfiguratieArray.IsDefined(EnuVariant)) {
 			If (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()) {
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Variant '"_EnuVariant_"' hoort verplicht aanwezig te zijn in het kortingsbestand via data dumps."))
-			} ElseIf (EnuVariant = ##class(DOM.PM.enu.Variant).LegraboxPure() || EnuVariant = ##class(DOM.PM.enu.Variant).Taorbox()) {
+			} Else {
 				Set KortingPercentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage
 				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
-			} ElseIf (EnuVariant = ##class(DOM.PM.enu.Variant).Orgalux()) {
-				Set KortingPercentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage
-				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
-			} ElseIf (EnuVariant = ##class(DOM.PM.enu.Variant).Merivobox()) {
-				Set KortingPercentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).LegraboxPure()).KortingPercentage
-				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
 			}
 		}
 	}