Index: APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor.cls.xml =================================================================== diff -u -r44742 -r47364 --- APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor.cls.xml (.../WebshopKenmerkDomeinPostProcessor.cls.xml) (revision 44742) +++ APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor.cls.xml (.../WebshopKenmerkDomeinPostProcessor.cls.xml) (revision 47364) @@ -217,9 +217,9 @@ MATKenmerken:APPS.PM.Maatwerk.dto.MATKenmerken Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml =================================================================== diff -u -r40573 -r47364 --- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml (.../KenmerkMogelijkhedenPostProcessor.cls.xml) (revision 40573) +++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml (.../KenmerkMogelijkhedenPostProcessor.cls.xml) (revision 47364) @@ -23,7 +23,7 @@ Do ##super(MATKenmerken) If (MATKenmerken.Materiaal = "") { - Do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt("", ..MATKenmerkNaam.Kleur) + Do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt("", ..MatEnum.KenmerkNaam.Kleur) } ]]> @@ -34,17 +34,19 @@ #dim GekoppeldIKTypeMat As DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat() #dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = ..KenmerkMogelijkheden.GeefGekoppeldeKenmerkMogelijkheden(GekoppeldIKTypeMat) - // Geen Antislip(-Fiber) bij Diepte > 650 ... + // Ongeldige MatMaterialen verwijderen bij LadeDiepte > 650 ... If ($IsObject(GekoppeldKenmerkMogelijkheden)) { If (TAORKenmerken.LadeDiepte > 650) { - Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MATKenmerkNaam.Materiaal, ##class(DOM.PM.enu.MATMateriaal).Antislip()) - Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MATKenmerkNaam.Materiaal, ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()) + Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.Antislip) + Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.AntislipFiber) + Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.VinylFiberglass) } } - // ... en omgekeerd (geen LadeDiepte > 650 bij Antislip(-Fiber)) + // ... en omgekeerd (LadeDiepte > 650 verwijderen bij ongeldige MatMaterialen) #dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(TAORKenmerken, GekoppeldIKTypeMat) - If ($IsObject(MATKenmerken)) && (MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Antislip() || (MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber())) { + + If ($IsObject(MATKenmerken)) && ((MATKenmerken.Materiaal = ..MatEnum.Materiaal.Antislip) || (MATKenmerken.Materiaal = ..MatEnum.Materiaal.AntislipFiber) || (MATKenmerken.Materiaal = ..MatEnum.Materiaal.VinylFiberglass)) { Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte700) Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte750) } Index: APPS/EC/impl/ConfiguratorService/KenmerkPostProcessor.cls.xml =================================================================== diff -u -r32424 -r47364 --- APPS/EC/impl/ConfiguratorService/KenmerkPostProcessor.cls.xml (.../KenmerkPostProcessor.cls.xml) (revision 32424) +++ APPS/EC/impl/ConfiguratorService/KenmerkPostProcessor.cls.xml (.../KenmerkPostProcessor.cls.xml) (revision 47364) @@ -4,8 +4,8 @@ 1 APPS.PM.Maatwerk.dto.IngegevenKenmerkenVisitor - -DOM.PM.enu.MATKenmerkNaam.AutoComplete + +DOM.PM.Maatwerk.MAT.impl.BaseEnums 1 @@ -53,6 +53,7 @@ Set ..IngegevenKenmerkenTypeAPI = ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI() Set ..TAOREnum = ##class(DOM.PM.Maatwerk.TAX.impl.BaseEnums).%New() Set ..LBXEnum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New() + Set ..MatEnum = ##class(DOM.PM.Maatwerk.MAT.impl.BaseEnums).%New() Quit $$$OK ]]> @@ -70,7 +71,7 @@ #dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = GekoppeldeKenmerkMogelijkhedenIterator.Next() Set GekoppeldeKenmerkMogelijkheden = GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden - #dim GekoppeldeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefGekoppeldeIngegevenKenmerken(GekoppeldKenmerkMogelijkheden, Kenmerken) + #dim GekoppeldeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefGekoppeldeIngegevenKenmerken(GekoppeldKenmerkMogelijkheden, Kenmerken) Do ..VerwerkKenmerkMogelijkheden(GekoppeldeIngegevenKenmerken, GekoppeldeKenmerkMogelijkheden, Klant, Personality) } } Else { Index: APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml =================================================================== diff -u -r45023 -r47364 --- APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml (.../InterneKenmerkDomeinPostProcessor.cls.xml) (revision 45023) +++ APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml (.../InterneKenmerkDomeinPostProcessor.cls.xml) (revision 47364) @@ -89,9 +89,9 @@ MATKenmerken:APPS.PM.Maatwerk.dto.MATKenmerken