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) Index: vhDeploy/Deploy20221122xVertalingLangtekstDubbeleDwarsverdeling.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20221122xVertalingLangtekstDubbeleDwarsverdeling.cls.xml (revision 0) +++ vhDeploy/Deploy20221122xVertalingLangtekstDubbeleDwarsverdeling.cls.xml (revision 69908) @@ -0,0 +1,28 @@ + + + +vhDeploy.Deploy + + +%String +Vertaling langtekst dubbele dwarsverdeling + + + +1 + + + + + +