Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleuren.cls.xml
===================================================================
diff -u -r31197 -r31208
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleuren.cls.xml (.../TestKleuren.cls.xml) (revision 31197)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TAX/TestKleuren.cls.xml (.../TestKleuren.cls.xml) (revision 31208)
@@ -63,6 +63,7 @@
do VerwachteWaarden.Insert(..Enum.LadeKleur.TennesseeNoot)
do VerwachteWaarden.Insert(..Enum.LadeKleur.Zwart)
do VerwachteWaarden.Insert(..Enum.LadeKleur.Wit)
+ do VerwachteWaarden.Insert(..Enum.LadeKleur.OnyxGrijs)
do ..AssertKleuren(VerwachteWaarden, ..Enum.KenmerkNaam.LadeKleur)
]]>
@@ -80,6 +81,7 @@
do VerwachteWaarden.Insert(..Enum.BodemKleur.TennesseeNoot)
do VerwachteWaarden.Insert(..Enum.BodemKleur.Zwart)
do VerwachteWaarden.Insert(..Enum.BodemKleur.Wit)
+ do VerwachteWaarden.Insert(..Enum.BodemKleur.OnyxGrijs)
do ..AssertKleuren(VerwachteWaarden, ..Enum.KenmerkNaam.BodemKleur)
]]>
Index: DOM/PM/enu/TAORLadeKleur.cls.xml
===================================================================
diff -u -r29059 -r31208
--- DOM/PM/enu/TAORLadeKleur.cls.xml (.../TAORLadeKleur.cls.xml) (revision 29059)
+++ DOM/PM/enu/TAORLadeKleur.cls.xml (.../TAORLadeKleur.cls.xml) (revision 31208)
@@ -8,11 +8,11 @@
TECH.Enumeration
-;NE;NN;ZY;E1;E2;N1;S;W
+;NE;NN;ZY;E1;E2;N1;S;W;XG
-;Natuur eikenhout;Natuur notenhout;Zwart ingekleurd Yaya;Bardolino Eik;Nebraska Eikenhout;Tennessee Noot;Zwart;Wit
+;Natuur eikenhout;Natuur notenhout;Zwart ingekleurd Yaya;Bardolino Eik;Nebraska Eikenhout;Tennessee Noot;Zwart;Wit;Onyx grijs
@@ -70,6 +70,13 @@
+
+
+1
+DOM.PM.enu.TAORLadeKleur
+
+
Index: DOM/PM/enu/TAORBodemKleur.cls.xml
===================================================================
diff -u -r30099 -r31208
--- DOM/PM/enu/TAORBodemKleur.cls.xml (.../TAORBodemKleur.cls.xml) (revision 30099)
+++ DOM/PM/enu/TAORBodemKleur.cls.xml (.../TAORBodemKleur.cls.xml) (revision 31208)
@@ -6,11 +6,11 @@
TECH.Enumeration
-;NE;NN;ZY;E1;E2;N1;S;W
+;NE;NN;ZY;E1;E2;N1;S;W;XG
-;Natuur eikenhout;Natuur notenhout;Zwart ingekleurd Yaya;Bardolino Eik;Nebraska Eikenhout;Tennessee Noot;Zwart;Wit
+;Natuur eikenhout;Natuur notenhout;Zwart ingekleurd Yaya;Bardolino Eik;Nebraska Eikenhout;Tennessee Noot;Zwart;Wit;Onyx grijs
@@ -68,6 +68,13 @@
+
+
+1
+DOM.PM.enu.TAORBodemKleur
+
+
Index: DOM/PM/enu/TAORLadeKleur/Verwerker.cls.xml
===================================================================
diff -u -r30917 -r31208
--- DOM/PM/enu/TAORLadeKleur/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 30917)
+++ DOM/PM/enu/TAORLadeKleur/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 31208)
@@ -21,6 +21,8 @@
Do ..VerwerkNatuurNotenhout()
} ElseIf TAORLadeKleur = "E2" {
Do ..VerwerkNebraskaEikenhout()
+ } ElseIf TAORLadeKleur = "XG" {
+ Do ..VerwerkOnyxGrijs()
} ElseIf TAORLadeKleur = "N1" {
Do ..VerwerkTennesseeNoot()
} ElseIf TAORLadeKleur = "W" {
@@ -30,7 +32,7 @@
} ElseIf TAORLadeKleur = "ZY" {
Do ..VerwerkZwartIngekleurdYaya()
} Else {
- Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORLadeKleur,$classname())
+ Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORLadeKleur,"DOM.PM.enu.TAORLadeKleur",$classname())
Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
}
]]>
@@ -60,6 +62,12 @@
+
+1
+1
+
+
+
1
1
Index: DOM/PM/enu/TAORBodemKleur/AutoComplete.cls.xml
===================================================================
diff -u -r30099 -r31208
--- DOM/PM/enu/TAORBodemKleur/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 30099)
+++ DOM/PM/enu/TAORBodemKleur/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 31208)
@@ -37,6 +37,13 @@
1
+
+DOM.PM.enu.TAORBodemKleur
+"XG"
+1
+1
+
+
DOM.PM.enu.TAORBodemKleur
"N1"
Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBuitenKleurCode.cls.xml
===================================================================
diff -u -r31017 -r31208
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBuitenKleurCode.cls.xml (.../TestBuitenKleurCode.cls.xml) (revision 31017)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBuitenKleurCode.cls.xml (.../TestBuitenKleurCode.cls.xml) (revision 31208)
@@ -13,8 +13,22 @@
do ..VerwachteWaarden.SetAt("N1", ..Enum.LadeKleur.TennesseeNoot)
do ..VerwachteWaarden.SetAt(" S", ..Enum.LadeKleur.Zwart)
do ..VerwachteWaarden.SetAt(" W", ..Enum.LadeKleur.Wit)
+ //do ..VerwachteWaarden.SetAt("XG", ..Enum.LadeKleur.OnyxGrijs)
+ // test op onyx grijs overslaan: we hebben de kantenband nog niet + data nog niet ingevuld door PM
+
+ do ..AssertWaarden(..TAORKenmerken, ..GeefWaardenIterator(), ..Enum.KenmerkNaam.LadeKleur, 22, 23)
+]]>
+
+
+
+1
+TECH.Iterator
+
Index: DOM/PM/enu/TAORBodemKleur/Verwerker.cls.xml
===================================================================
diff -u -r30099 -r31208
--- DOM/PM/enu/TAORBodemKleur/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 30099)
+++ DOM/PM/enu/TAORBodemKleur/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 31208)
@@ -20,6 +20,8 @@
Do ..VerwerkNatuurNotenhout()
} ElseIf TAORBodemKleur = "E2" {
Do ..VerwerkNebraskaEikenhout()
+ } ElseIf TAORBodemKleur = "XG" {
+ Do ..VerwerkOnyxGrijs()
} ElseIf TAORBodemKleur = "N1" {
Do ..VerwerkTennesseeNoot()
} ElseIf TAORBodemKleur = "W" {
@@ -29,7 +31,7 @@
} ElseIf TAORBodemKleur = "ZY" {
Do ..VerwerkZwartIngekleurdYaya()
} Else {
- Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORBodemKleur,"DOM.PM.enu.TAORBodemKleur")
+ Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORBodemKleur,"DOM.PM.enu.TAORBodemKleur",$classname())
Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
}
]]>
@@ -59,6 +61,12 @@
+
+1
+1
+
+
+
1
1
Index: DOM/PM/enu/TAORLadeKleur/AutoComplete.cls.xml
===================================================================
diff -u -r29924 -r31208
--- DOM/PM/enu/TAORLadeKleur/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 29924)
+++ DOM/PM/enu/TAORLadeKleur/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 31208)
@@ -37,6 +37,13 @@
1
+
+DOM.PM.enu.TAORLadeKleur
+"XG"
+1
+1
+
+
DOM.PM.enu.TAORLadeKleur
"N1"
Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBinnenKleurCode.cls.xml
===================================================================
diff -u -r31017 -r31208
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBinnenKleurCode.cls.xml (.../TestBinnenKleurCode.cls.xml) (revision 31017)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBinnenKleurCode.cls.xml (.../TestBinnenKleurCode.cls.xml) (revision 31208)
@@ -14,10 +14,24 @@
do ..VerwachteWaarden.SetAt("N1", ..Enum.BodemKleur.TennesseeNoot)
do ..VerwachteWaarden.SetAt(" S", ..Enum.BodemKleur.Zwart)
do ..VerwachteWaarden.SetAt(" W", ..Enum.BodemKleur.Wit)
+ //do ..VerwachteWaarden.SetAt("XG", ..Enum.BodemKleur.OnyxGrijs)
+ // test op onyx grijs overslaan: data nog niet ingevuld door PM
- do ..AssertWaarden(..TAORKenmerken, ##class(DOM.PM.enu.TAORBodemKleur).ValueListIterator(), ..Enum.KenmerkNaam.BodemKleur, 24, 25)
+ do ..AssertWaarden(..TAORKenmerken, ..GeefWaardenIterator(), ..Enum.KenmerkNaam.BodemKleur, 24, 25)
]]>
+
+
+1
+TECH.Iterator
+
+