Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67209 -r67210
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67209)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67210)
@@ -60,6 +60,18 @@
 <Private>1</Private>
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
+	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingenVoorKlantVanuitXML(Customer, KlantID, PersonalityID)
+	Set KortingConfiguratieArray = ..VulKortingenVoorKlantAanMetOntbrekendeVarianten(KortingConfiguratieArray, KlantID, PersonalityID)
+
+	Quit KortingConfiguratieArray
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortingenVoorKlantVanuitXML">
+<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
 	#dim VariantenVanType As %List
 	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
 	
@@ -79,15 +91,26 @@
 		}
 	}
 	
+	Quit KortingConfiguratieArray
+]]></Implementation>
+</Method>
+
+<Method name="VulKortingenVoorKlantAanMetOntbrekendeVarianten">
+<FormalSpec>KortingConfiguratieArray:%ArrayOfObjects,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
 	#dim VariantenVoorPersonality As %List = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityID)
+	#dim EnuVariant As DOM.PM.enu.Variant
+	#dim Index As %Integer
 	For Index = 1 : 1 : $ListLength(VariantenVoorPersonality) {
 		Set EnuVariant = $List(VariantenVoorPersonality, Index)
 		
 		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."))
 			} Else {
-				Set KortingPercentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage
+				#dim KortingPercentage As TECH.Percentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage
 				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
 			}
 		}