Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml =================================================================== diff -u -r52605 -r52801 --- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml (.../KenmerkMogelijkhedenPostProcessor.cls.xml) (revision 52605) +++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml (.../KenmerkMogelijkhedenPostProcessor.cls.xml) (revision 52801) @@ -133,9 +133,36 @@ Do:($$$Not(TaxKenmerken.UitsparingDataBreedteZ1 = 0)) ..KenmerkMogelijkheden.ZetBereik(..TAOREnum.KenmerkNaam.UitsparingDataBreedteZ1, TaxKenmerken.UitsparingDataBreedteZ1, TaxKenmerken.UitsparingDataBreedteZ1) Do:($$$Not(TaxKenmerken.UitsparingDataBreedteZ2 = 0)) ..KenmerkMogelijkheden.ZetBereik(..TAOREnum.KenmerkNaam.UitsparingDataBreedteZ2, TaxKenmerken.UitsparingDataBreedteZ2, TaxKenmerken.UitsparingDataBreedteZ2) - If ($$$Not(TaxKenmerken.LadeDiepte = "")) && ((TaxKenmerken.LadeDiepte < ..TAOREnum.LadeDiepte.LadeDiepte350) || (TaxKenmerken.LadeDiepte > ..TAOREnum.LadeDiepte.LadeDiepte650)) { - Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.GeleiderTechnologie, ..TAOREnum.GeleiderTechnologie.TIPONBLUMOTION) + If (TaxKenmerken.LadeDiepte < ..TAOREnum.LadeDiepte.LadeDiepte450) || (TaxKenmerken.LadeDiepte > ..TAOREnum.LadeDiepte.LadeDiepte650) { + Do:(TaxKenmerken.LadeDiepte > 0) ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.GeleiderTechnologie, ..TAOREnum.GeleiderTechnologie.TIPONBLUMOTION) } + + If (TaxKenmerken.LadeDiepte > 0) { + If (TaxKenmerken.LadeDiepte < ..TAOREnum.LadeDiepte.LadeDiepte400) { + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ..TAOREnum.UitsparingCode.Tax300Smal) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ..TAOREnum.UitsparingCode.Tax300Breed) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ..TAOREnum.UitsparingCode.Tax300Smal) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ..TAOREnum.UitsparingCode.Tax300Breed) + } + If (TaxKenmerken.LadeDiepte < ..TAOREnum.LadeDiepte.LadeDiepte380) { + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ..TAOREnum.UitsparingCode.Tax270Smal) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ..TAOREnum.UitsparingCode.Tax270Breed) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ..TAOREnum.UitsparingCode.Tax270Smal) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ..TAOREnum.UitsparingCode.Tax270Breed) + } + } + + // Momenteel nog geen matjes toelaten via configurator. Later wordt dit wellicht wel mogelijk. + #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) + If ($IsObject(GekoppeldKenmerkMogelijkheden)) { + // Mogelijkheden weghalen : work-around de 4 materialen afzonderlijk verwijderen, want de VerwijderMogelijkeWaarden(MatMateriaal) werkt niet :-? + 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) + Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.Wolvilt) + } + } Else { If (TaxKenmerken.HeeftZijstabilisering) || (TaxKenmerken.GeleiderTechnologie = ..TAOREnum.GeleiderTechnologie.TIPON) || (TaxKenmerken.LadeHoogte = ..TAOREnum.LadeHoogte.F) { Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.Toepassing, ..TAOREnum.Toepassing.Sifon)