Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml =================================================================== diff -u -r68718 -r69908 --- DOM/PM/impl/TAORLangtekstCreator.cls.xml (.../TAORLangtekstCreator.cls.xml) (revision 68718) +++ DOM/PM/impl/TAORLangtekstCreator.cls.xml (.../TAORLangtekstCreator.cls.xml) (revision 69908) @@ -348,7 +348,12 @@ #dim AantalDwarsverdelingen As TECH.Integer = TAORKenmerken.AantalDwarsverdelingen If (AantalDwarsverdelingen > 0) { - #dim VertaalSleutel As TECH.String = "Langtekst_Dwarsverdeling" _ $Select(AantalDwarsverdelingen > 1:"en", 1:"") + #dim VertaalSleutel As TECH.String + If (TAORKenmerken.DwarsverdelingType = ##class(DOM.PM.enu.TAORDwarsverdelingType).Dubbel()) { + Set VertaalSleutel = "Langtekst_DubbeleDwarsverdeling" _ $Select(AantalDwarsverdelingen > 1:"en", 1:"") + } Else { + Set VertaalSleutel = "Langtekst_Dwarsverdeling" _ $Select(AantalDwarsverdelingen > 1:"en", 1:"") + } #dim DwarsverdelingTekst As TECH.String = AantalDwarsverdelingen _ " " _ ..Vertaler.GeefVertaling(VertaalSleutel) #dim DwarsverdelingKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.DwarsverdelingKleur)