Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r63609 -r68718
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 63609)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 68718)
@@ -176,6 +176,7 @@
 		
 		Do ..VoegToeLangtekstParagraaf(Paragraaf)
 		Do ..VoegToeGekoppeldeInfoIndienNodig()
+		Do ..VoegToeDwarsverdelingInfo()
 		Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
 		
 	} Else {
@@ -339,6 +340,24 @@
 <Implementation><![CDATA[	Quit ..IngegevenKenmerken.IsBinnenlade
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeDwarsverdelingInfo">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..IngegevenKenmerken
+	#dim AantalDwarsverdelingen As TECH.Integer = TAORKenmerken.AantalDwarsverdelingen
+	
+	If (AantalDwarsverdelingen > 0) {
+		#dim VertaalSleutel As TECH.String = "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)
+		Set DwarsverdelingTekst = DwarsverdelingTekst _ " "_ DwarsverdelingKleur
+		
+		Do ..VoegToeLangtekstParagraaf(DwarsverdelingTekst)
+	}
+]]></Implementation>
+</Method>
 </Class>