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
-