Index: APPS/VKP/Korting/impl/KortingService.cls.xml =================================================================== diff -u -r67201 -r67208 --- APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 67201) +++ APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 67208) @@ -79,7 +79,25 @@ } } - // Check of alle kortingen hierna gezet zijn + #dim VariantenVoorPersonality As %List = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityID) + 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.")) + } ElseIf (EnuVariant = ##class(DOM.PM.enu.Variant).LegraboxPure() || EnuVariant = ##class(DOM.PM.enu.Variant).Taorbox()) { + 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) + } + } + } Quit KortingConfiguratieArray ]]>