Index: APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml =================================================================== diff -u -r31488 -r31492 --- APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml (.../ConfiguratorServiceTemplate.cls.xml) (revision 31488) +++ APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml (.../ConfiguratorServiceTemplate.cls.xml) (revision 31492) @@ -113,21 +113,18 @@ #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) #Dim IsTAXKenmerken As %Boolean = (IngegevenKenmerken.%Extends(##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%ClassName(1))) - + If (IsTAXKenmerken) { If (..IsActiefValidator.If.Setting("IsActiefTAORDuoColor").IsInvalid()) { Set AangepasteIngegevenKenmerken.LadeBinnenKleur = AangepasteIngegevenKenmerken.LadeKleur } - - If (..IsActiefValidator.If.Setting("IsActiefTAXGeleiderTechnologie").IsInvalid()) { - #dim TAXKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = IngegevenKenmerken - - If (TAXKenmerken.HeeftTipon) { - Set TAXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPON() + If (..IsActiefValidator.If.Setting("IsActiefTAXGeleiderTechnologie").IsInvalid()) { + If (IngegevenKenmerken.HeeftTipon) { + Set AangepasteIngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPON() } Else { - Set TAXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION() + Set AangepasteIngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION() } - } + } } Set Resultaat.AangepasteIngegevenKenmerken = ..MaatwerkConfiguratorService.GeefKenmerkenDto(AangepasteIngegevenKenmerken) @@ -141,7 +138,15 @@ Do ..VerwerkKenmerkMogelijkheden(Resultaat.AangepasteIngegevenKenmerken, Resultaat.MogelijkeWaarden, Klant, Personality) Set Resultaat.BerekendeWaarden = ..MaatwerkConfiguratorService.GeefBerekendeWaarden(Resultaat.AangepasteIngegevenKenmerken, AangepasteIngegevenKenmerken) - + + If (IsTAXKenmerken) { + If (..IsActiefValidator.If.Setting("IsActiefTAXGeleiderTechnologie").IsValid()) { + set Resultaat.AangepasteIngegevenKenmerken.HeeftTipon = "" + } else { + set Resultaat.AangepasteIngegevenKenmerken.GeleiderTechnologie = "" + } + } + Do ##class(TECH.Timing.TimerUtils).Stop(Timer1) //Do ##class(TECH.Timing.TimerUtils).Flush() //Do ##class(TECH.Timing.TimerUtils).DisableTiming()