Index: APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml =================================================================== diff -u -r36176 -r36180 --- APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml (.../InterneKenmerkDomeinPostProcessor.cls.xml) (revision 36176) +++ APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml (.../InterneKenmerkDomeinPostProcessor.cls.xml) (revision 36180) @@ -64,9 +64,11 @@ Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.OpvullijstKleur, ..TAOREnum.OpvullijstKleur.OrionGrijs) } - Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeKleur, ..TAOREnum.LadeKleur.Dakar) - Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeBinnenKleur, ..TAOREnum.LadeKleur.Dakar) - Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.BodemKleur, ..TAOREnum.BodemKleur.Dakar) + If $$$Not(..Klant.GeefID() = ##class(DOM.VKP.enu.Klant).MiBois()) { + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeKleur, ..TAOREnum.LadeKleur.Dakar) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeBinnenKleur, ..TAOREnum.LadeKleur.Dakar) + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.BodemKleur, ..TAOREnum.BodemKleur.Dakar) + } ]]> Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleuren.cls.xml =================================================================== diff -u -r35784 -r36180 --- vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleuren.cls.xml (.../TestKleuren.cls.xml) (revision 35784) +++ vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleuren.cls.xml (.../TestKleuren.cls.xml) (revision 36180) @@ -106,6 +106,22 @@ ]]> + + + + + + + + VerwachteKleuren:%ListOfDataTypes,KenmerkNaam:TECH.String 1 @@ -114,6 +130,21 @@ do $$$AssertEqualsList(..KenmerkMogelijkheden.GeefMogelijkeWaarden(KenmerkNaam), VerwachteKleuren, KenmerkNaam) ]]> + + +KlantId:%String,KenmerkNaam:%String,Kleur:%String,HeeftKleur:%Boolean +1 + +