Index: APPS/VKP/Korting/impl/KortingService.cls.xml =================================================================== diff -u -r67211 -r68214 --- APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 67211) +++ APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 68214) @@ -107,11 +107,15 @@ Set EnuVariant = $List(VariantenVoorPersonality, Index) If $$$Not(KortingConfiguratieArray.IsDefined(EnuVariant)) { - 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.")) + If (PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()) { + Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, 0, PersonalityID), EnuVariant) } Else { - #dim KortingPercentage As TECH.Percentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage - Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant) + If ((EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxIntivo()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxPlus()) || (EnuVariant = ##class(DOM.PM.enu.Variant).Orgalux())) { + Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, 0, PersonalityID), EnuVariant) + } Else { + #dim KortingPercentage As TECH.Percentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage + Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant) + } } } }