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) }