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() Index: vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml =================================================================== diff -u -r31435 -r31492 --- vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 31435) +++ vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 31492) @@ -61,24 +61,6 @@ ]]> - - - - + + + + + + + + 1 APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen Index: vhUnitTest/APPS/EC/WebshopConfiguratorService/VerwerkKenmerkWijzigingen/TAOR/Test.cls.xml =================================================================== diff -u -r30374 -r31492 --- vhUnitTest/APPS/EC/WebshopConfiguratorService/VerwerkKenmerkWijzigingen/TAOR/Test.cls.xml (.../Test.cls.xml) (revision 30374) +++ vhUnitTest/APPS/EC/WebshopConfiguratorService/VerwerkKenmerkWijzigingen/TAOR/Test.cls.xml (.../Test.cls.xml) (revision 31492) @@ -71,6 +71,48 @@ ]]> + + + + + + + + IsBinnenlade:%Boolean,VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachteMogelijkeWaarden:%ListOfDataTypes 1 Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml =================================================================== diff -u -r31417 -r31492 --- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml (.../KenmerkNaarDtoVisitor.cls.xml) (revision 31417) +++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml (.../KenmerkNaarDtoVisitor.cls.xml) (revision 31492) @@ -52,11 +52,8 @@ Set IngegevenKenmerken.BodemKleur = TAORKenmerken.BodemKleur Set IngegevenKenmerken.KoppelingType = TAORKenmerken.KoppelingType Set IngegevenKenmerken.CorpusBreedte = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeCorpusBreedteBepaler().GeefCorpusBreedte(TAORKenmerken) + Set IngegevenKenmerken.HeeftTipon = (TAORKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPON()) - If $$$Not(TAORKenmerken.GeleiderTechnologie = "") { - set IngegevenKenmerken.HeeftTipon = (TAORKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPON()) - } - Do ..WisCorpusBreedteIndienNul(TAORKenmerken, IngegevenKenmerken) Quit $$$OK Index: APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml =================================================================== diff -u -r31417 -r31492 --- APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml (.../NaarObjectConverterTAX.cls.xml) (revision 31417) +++ APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml (.../NaarObjectConverterTAX.cls.xml) (revision 31492) @@ -38,18 +38,7 @@ set GeconverteerdeKenmerken.Draagkracht = TAORKenmerken.Draagkracht set GeconverteerdeKenmerken.FrontBevestiging = ..BepaalFrontBevestiging(TAORKenmerken) set GeconverteerdeKenmerken.FrontEindkapKleur = ..BepaalFrontEindkapKleur(TAORKenmerken) - set GeconverteerdeKenmerken.GeleiderTechnologie = TAORKenmerken.GeleiderTechnologie - - if (TAORKenmerken.GeleiderTechnologie = "") { - if (TAORKenmerken.HeeftTipon) { - set GeconverteerdeKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPON - } else { - set GeconverteerdeKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.BLUMOTION - } - } - - set GeconverteerdeKenmerken.HeeftTipon = TAORKenmerken.HeeftTipon - + set GeconverteerdeKenmerken.GeleiderTechnologie = TAORKenmerken.GeleiderTechnologie set GeconverteerdeKenmerken.GlijderType = TAORKenmerken.GlijderType set GeconverteerdeKenmerken.IsBinnenlade = TAORKenmerken.IsBinnenlade set GeconverteerdeKenmerken.KoppelingType = TAORKenmerken.KoppelingType