Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r29303 -r29356
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29303)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29356)
@@ -8,6 +8,37 @@
 <Default>;</Default>
 </Parameter>
 
+<Property name="Lade">
+<Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeInfoAPI">
+<Type>DOM.PM.Maatwerk.impl.LadeInfoAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLangtekst">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal</FormalSpec>
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, IngegevenKenmerken)	
+	Quit ##super(IngegevenKenmerken, HalffabItemsBoom, Taal)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -20,11 +51,11 @@
 <Method name="VoegToeBasisGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst()_..#KenmerkSeparator_..Vertaler.GeefVertaling("Bodem")_":"_..KleurCodeVertaler.GeefVertaling(..IngegevenKenmerken.BodemKleur))
-	
-	#dim Paragraaf As %String = ..Vertaler.GeefVertaling("Zijkant")_":"_..KleurCodeVertaler.GeefVertaling(..IngegevenKenmerken.LadeKleur)
+	Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
+	Do ..VoegToeKleuren()
+	#dim Paragraaf As TECH.String = ""
 	If ..IngegevenKenmerken.IsBinnenlade {
-		Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontEindkap(), ..GeefFrontEindkapTekst(), $$$True)
+		Set Paragraaf = ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontEindkap(), ..GeefFrontEindkapTekst(), $$$False)
 	}
 	#dim BevatDeelString As TECH.String = ""
 	If ..IsLadeGemonteerd() {
@@ -35,15 +66,31 @@
 	Set BevatDeelString = BevatDeelString_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering(),..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
 	Set BevatDeelString = BevatDeelString_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst(),..GeefOpvullijstTekst(), $$$True)
 	If BevatDeelString '= "" {
-		Set BevatDeelString = ..#KenmerkSeparator_..Vertaler.GeefVertaling("Bevat")_": "_BevatDeelString
+		Set BevatDeelString = ..Vertaler.GeefVertaling("Bevat")_": "_BevatDeelString
 	}
-	Do ..VoegToeLangtekstParagraaf(Paragraaf_BevatDeelString)
+	If $length(Paragraaf) && $length(BevatDeelString) {
+		Do ..VoegToeLangtekstParagraaf(Paragraaf_..#KenmerkSeparator_BevatDeelString)
+	} Else {
+		Do ..VoegToeLangtekstParagraaf(Paragraaf_BevatDeelString)
+	}
 	
 	Do ..VoegToeGekoppeldeInfoIndienNodig()
 	Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeKleuren">
+<Implementation><![CDATA[
+	#dim KleurenVoorOnderdeelArray As %ArrayOfDataTypes = ..Lade.GeefKleuren()
+	#dim IteratorKleurenVoorOnderdeelArray As TECH.ListIterator = ##class(TECH.ListIterator).%New(KleurenVoorOnderdeelArray)
+	While IteratorKleurenVoorOnderdeelArray.HasNext() {
+		#dim Kleur As %String = IteratorKleurenVoorOnderdeelArray.Next()
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(IteratorKleurenVoorOnderdeelArray.Key())_":"_..KleurCodeVertaler.GeefVertaling(Kleur))
+	}
+	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Kantenband")_":"_..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur()))
+]]></Implementation>
+</Method>
+
 <Method name="IsLadeGemonteerd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>