Index: APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml =================================================================== diff -u -r30033 -r30824 --- APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml (.../ConfiguratorServiceTemplate.cls.xml) (revision 30033) +++ APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml (.../ConfiguratorServiceTemplate.cls.xml) (revision 30824) @@ -14,6 +14,11 @@ 1 + +APPS.EC.UnishopConfigurator.impl.IsActiefValidator +1 + + KenmerkMogelijkhedenMeerdereIKenPostProcessor:APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenMeerdereIKenPostProcessor="",MaatwerkConfiguratorService:APPS.VKP.Maatwerk.ConfiguratorService="" 1 @@ -23,11 +28,18 @@ + +1 +1 +APPS.EC.UnishopConfigurator.impl.IsActiefValidator + + IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Klant:DOM.VKP.VanHoeckeKlant,Personality:DOM.common.Personality,KlantIDVanEindklant:DOM.VKP.KlantID APPS.PM.Maatwerk.dto.KenmerkMogelijkheden @@ -95,6 +107,14 @@ #Dim Resultaat As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen).%New() #Dim AangepasteIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkConfiguratorService.GeefAangepasteIngegevenKenmerken(IngegevenKenmerken, KenmerkWijzigingen) + /*Als $$$Not(IsDuoColorActief) en is TAORKenmerken zet dan ladebinnenkleur gelijk aan ladekleur + property get mag dan ook weg op de taorkenmerken*/ + + If IngegevenKenmerken.%Extends(##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%ClassName(1)) && + (..IsActiefValidator.If.Setting("IsActiefTAORDuoColor").En.Rol("ICTmedewerker", "Productbeheerder").IsInvalid()) { + Set AangepasteIngegevenKenmerken.LadeBinnenKleur = AangepasteIngegevenKenmerken.LadeKleur + } + Do ##class(Tools.Wlip).%New(26).DataTransferObject(AangepasteIngegevenKenmerken) Set Resultaat.AangepasteIngegevenKenmerken = ..MaatwerkConfiguratorService.GeefKenmerkenDto(AangepasteIngegevenKenmerken) #Dim Timer6 As %String = ##class(TECH.Timing.TimerUtils).Start("GeefKenmerkMogelijkheden") @@ -215,7 +235,6 @@ 1 1 APPS.EC.impl.ConfiguratorService.KenmerkDomeinPreProcessor -