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