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