Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml =================================================================== diff -u -r30794 -r30795 --- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml (.../LosseComponentDetailBepaler.cls.xml) (revision 30794) +++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml (.../LosseComponentDetailBepaler.cls.xml) (revision 30795) @@ -157,10 +157,9 @@ do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("NominaleLengteAfkorting"),..IngegevenKenmerken.LadeDiepte _ "mm")) if ..Kleuren.GetAt(1)'=..Kleuren.GetAt(2) { - #dim KleurString As TECH.String = ..Vertaler.GeefVertaling("Kleur") - do ..VoegToeParagraaf( ..Formateer(KleurString_" "_..Vertaler.GeefVertaling("LadezijkantBuitenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Buitenkant)))) - do ..VoegToeParagraaf( ..Formateer(KleurString_" "_..Vertaler.GeefVertaling("KleurKantenband"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(3)))) - do ..VoegToeParagraaf( ..Formateer(KleurString_" "_..Vertaler.GeefVertaling("LadezijkantBinnenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Binnenkant)))) + do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBuitenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Buitenkant)))) + do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(3)))) + do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBinnenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Binnenkant)))) set ..HoofdKleurToevoegenIntrekken = $$$true } ]]> Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml =================================================================== diff -u -r30793 -r30795 --- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml (.../Test.cls.xml) (revision 30793) +++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml (.../Test.cls.xml) (revision 30795) @@ -70,7 +70,7 @@ set ..TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.NatuurEikenhout do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX rug") - do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte rug: 533mm"_$$$CRLF_"Kantenband: Natuur notenhout"_$$$CRLF_"Kleur: Natuur eikenhout")) + do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte rug: 533mm"_$$$CRLF_"Kleur kantenband: Natuur notenhout"_$$$CRLF_"Kleur: Natuur eikenhout")) ]]> @@ -133,7 +133,7 @@ #dim VerwachtDetail As %ListOfDataTypes = ##class(%ListOfDataTypes).%New() do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant rechts") - do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Kleur ladezijkant buiten: Natuur notenhout"_$$$CRLF_"Kleur kantenband: Natuur notenhout"_$$$CRLF_"Kleur ladezijkant binnen: Natuur eikenhout")) + do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Kleur buitenkant: Natuur notenhout"_$$$CRLF_"Kleur kantenband: Natuur notenhout"_$$$CRLF_"Kleur binnenkant: Natuur eikenhout")) ]]>