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
+
+