Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml =================================================================== diff -u -r60990 -r70604 --- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml (.../KenmerkMogelijkhedenPostProcessor.cls.xml) (revision 60990) +++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml (.../KenmerkMogelijkhedenPostProcessor.cls.xml) (revision 70604) @@ -26,11 +26,8 @@ Do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt("", ..MatEnum.KenmerkNaam.Kleur) } - Set WolviltUitfaseerder = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.WolvitMattenUitfaseerder).%New() - Do WolviltUitfaseerder.VerwerkMATKenmerkenVoorWolvilt(MATKenmerken, ..KenmerkMogelijkheden) - - //Set AntislipBeperkingen = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.AntislipMattenUitfaseren).%New() - //Do AntislipBeperkingen.VerwerkMATKenmerkenVoorAntislip(MATKenmerken, ..KenmerkMogelijkheden) + Set AntislipBeperkingen = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.AntislipMattenUitfaseren).%New() + Do AntislipBeperkingen.VerwerkMATKenmerkenVoorAntislip(MATKenmerken, ..KenmerkMogelijkheden) ]]> @@ -43,12 +40,9 @@ #dim GekoppeldeMatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(TAORKenmerken, GekoppeldIKTypeMat) #dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = ..KenmerkMogelijkheden.GeefGekoppeldeKenmerkMogelijkheden(GekoppeldIKTypeMat) - Set WolviltUitfaseerder = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.WolvitMattenUitfaseerder).%New() - Do WolviltUitfaseerder.VerwerkTAORKenmerkenVoorWolvilt(TAORKenmerken, ..KenmerkMogelijkheden) + Set AntislipBeperkingen = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.AntislipMattenUitfaseren).%New() + Do AntislipBeperkingen.VerwerkTAORKenmerkenVoorAntislip(TAORKenmerken, ..KenmerkMogelijkheden) - //Set AntislipBeperkingen = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.AntislipMattenUitfaseren).%New() - //Do AntislipBeperkingen.VerwerkTAORKenmerkenVoorAntislip(TAORKenmerken, ..KenmerkMogelijkheden) - // Ongeldige MatMaterialen verwijderen bij LadeDiepte > ... If ($IsObject(GekoppeldKenmerkMogelijkheden)) { If (TAORKenmerken.LadeDiepte > 650) { @@ -84,6 +78,7 @@ } } + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde("ProductieWijze", ##class(APPS.PM.enu.TAORProductieWijze).FrontLBX()) Do:($$$Not(TAORKenmerken.IsBinnenlade)) ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde("ProductieWijze", ##class(APPS.PM.enu.TAORProductieWijze).Front()) Do:(TAORKenmerken.ProductieWijze = ##class(APPS.PM.enu.TAORProductieWijze).Front()) ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.IsBinnenlade, "false") @@ -111,18 +106,17 @@ #dim GekoppeldeMatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(LBXKenmerken, GekoppeldIKTypeMat) #dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = ..KenmerkMogelijkheden.GeefGekoppeldeKenmerkMogelijkheden(GekoppeldIKTypeMat) - Set WolviltUitfaseerder = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.WolvitMattenUitfaseerder).%New() - Do WolviltUitfaseerder.VerwerkLBXKenmerkenVoorWolvilt(LBXKenmerken, ..KenmerkMogelijkheden) + Set AntislipBeperkingen = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.AntislipMattenUitfaseren).%New() + Do AntislipBeperkingen.VerwerkLBXKenmerkenVoorAntislip(LBXKenmerken, ..KenmerkMogelijkheden) - //Set AntislipBeperkingen = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.AntislipMattenUitfaseren).%New() - //Do AntislipBeperkingen.VerwerkLBXKenmerkenVoorAntislip(LBXKenmerken, ..KenmerkMogelijkheden) - Do ..ProcessSpoelbakVoorLBX(LBXKenmerken) Do ..ProcessSifonladeVoorLBX(LBXKenmerken) Do ..VerwijderMogelijkeWaardenIndienLadeHoogteF(LBXKenmerken) Do ..VerwijderMogelijkeWaardenIndienVhossVerpakking(LBXKenmerken) + ;Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarden(..LBXEnum.KenmerkNaam.LadeKleurBuiten) + If (LBXKenmerken.ZijWandType = ..LBXEnum.ZijwandType.Free) { Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.VerpakkingType, ..LBXEnum.VerpakkingType.Pallet) } @@ -138,6 +132,10 @@ If (LBXKenmerken.ProductieWijze = ##class(APPS.PM.enu.LBXProductieWijze).Front()) { Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.IsBinnenlade, "false") } + + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.LadeKleur, ##class(DOM.PM.enu.LBXLadeKleur).Carbonzwart()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.BodemKleur, ##class(DOM.PM.enu.LBXBodemKleur).Carbonzwart()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.ZijWandType, ##class(DOM.PM.enu.LBXZijWandType).Design()) Set KenmerkCombinatieVerwijderaar = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar).%New() Do KenmerkCombinatieVerwijderaar.Kenmerken(LBXKenmerken,..KenmerkMogelijkheden).InCombinatieVan( @@ -159,12 +157,12 @@ Do KenmerkCombinatieVerwijderaar.Kenmerken(LBXKenmerken, ..KenmerkMogelijkheden).InCombinatieVan( ..LBXEnum.KenmerkNaam.LadeHoogte, ..LBXEnum.LadeHoogte.K).En( ..LBXEnum.KenmerkNaam.LadeDiepte, ..LBXEnum.LadeDiepte.LadeDiepte270).En( - ..LBXEnum.KenmerkNaam.LadeKleur, ..LBXEnum.LadeKleur.Inox, ..LBXEnum.LadeKleur.Zijdewit, ..LBXEnum.LadeKleur.Terrazwart, ..LBXEnum.LadeKleur.PolarZilver).Verwijder() + ..LBXEnum.KenmerkNaam.LadeKleur, ..LBXEnum.LadeKleur.Inox, ..LBXEnum.LadeKleur.Zijdewit).Verwijder() Do KenmerkCombinatieVerwijderaar.Kenmerken(LBXKenmerken, ..KenmerkMogelijkheden).InCombinatieVan( ..LBXEnum.KenmerkNaam.LadeHoogte, ..LBXEnum.LadeHoogte.F).En( ..LBXEnum.KenmerkNaam.LadeDiepte, ..LBXEnum.LadeDiepte.LadeDiepte350).En( - ..LBXEnum.KenmerkNaam.LadeKleur, ..LBXEnum.LadeKleur.Inox, ..LBXEnum.LadeKleur.Zijdewit, ..LBXEnum.LadeKleur.Terrazwart, ..LBXEnum.LadeKleur.PolarZilver).Verwijder() + ..LBXEnum.KenmerkNaam.LadeKleur, ..LBXEnum.LadeKleur.Inox, ..LBXEnum.LadeKleur.Zijdewit).Verwijder() ]]> @@ -212,6 +210,33 @@ } } + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD450B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD450B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD450B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD350B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD350B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD350B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD400B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD400B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD400B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD300B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD300B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD300B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD240B350()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD450B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD450B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD450B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD350B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD350B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD350B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD400B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD400B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD400B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD300B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD300B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD300B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD240B350()) + // 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) @@ -314,6 +339,33 @@ Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).Breed300()) } + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD450B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD450B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD450B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD350B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD350B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD350B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD400B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD400B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD400B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD300B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD300B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD300B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ1, ##class(DOM.PM.enu.UitsparingCode).MvxD240B350()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD450B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD450B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD450B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD350B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD350B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD350B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD400B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD400B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD400B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD300B770()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD300B570()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD300B470()) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.UitsparingDataCodeZ2, ##class(DOM.PM.enu.UitsparingCode).MvxD240B350()) + Do:($$$Not(LBXKenmerken.UitsparingDataBreedteZ1 = 0)) ..KenmerkMogelijkheden.ZetBereik(..LBXEnum.KenmerkNaam.UitsparingDataBreedteZ1, LBXKenmerken.UitsparingDataBreedteZ1, LBXKenmerken.UitsparingDataBreedteZ1) Do:($$$Not(LBXKenmerken.UitsparingDataBreedteZ2 = 0)) ..KenmerkMogelijkheden.ZetBereik(..LBXEnum.KenmerkNaam.UitsparingDataBreedteZ2, LBXKenmerken.UitsparingDataBreedteZ2, LBXKenmerken.UitsparingDataBreedteZ2)