Index: APPS/VKP/Korting/impl/KortingService.cls.xml =================================================================== diff -u -r67210 -r67211 --- APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 67210) +++ APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 67211) @@ -107,8 +107,8 @@ 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.")) + If (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxIntivo()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxPlus()) { + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Variant 'TBX' moet aanwezig zijn in het kortingsbestand via data dumps, maar werd niet gevonden.")) } Else { #dim KortingPercentage As TECH.Percentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)