Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r29726 -r29750
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29726)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29750)
@@ -23,15 +23,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Rol">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete</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())
+	Set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
 	Set ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -41,16 +47,17 @@
 <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[
-	Set ..LangtekstHoofding = "TA'OR BOX "_
-		$Select(..IngegevenKenmerken.IsBinnenlade:..Vertaler.GeefVertaling("Binnenlade"),1:..Vertaler.GeefVertaling("Lade"))_
-		" "_..IngegevenKenmerken.LadeHoogte
+	Set ..LangtekstHoofding = "TA'OR BOX "
+	Set ..LangtekstHoofding = ..LangtekstHoofding _	$Select(..IngegevenKenmerken.IsBinnenlade:..Vertaler.GeefVertaling("Binnenlade"), 1:..Vertaler.GeefVertaling("Lade"))
+	Set ..LangtekstHoofding = ..LangtekstHoofding _	" " _ ..IngegevenKenmerken.LadeHoogte
 ]]></Implementation>
 </Method>
 
@@ -59,35 +66,42 @@
 <Implementation><![CDATA[
 	Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
 	Do ..VoegToeKleuren()
-	#dim Paragraaf As TECH.String = ""
-	If ..IngegevenKenmerken.IsBinnenlade {
-		Set Paragraaf = ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontEindkap(), ..GeefFrontEindkapTekst(), $$$False)_..#KenmerkSeparator
+	
+	#Dim Paragraaf As TECH.String = ""
+	
+	If (..IngegevenKenmerken.IsBinnenlade) {
+		Set Paragraaf = ..GeefTekstVoorRol(..Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator
 	}
+	
 	Set Paragraaf = Paragraaf_..Vertaler.GeefVertaling("Bevat")_": "_..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"",1:"Niet")_"GemonteerdeLade")
 	Set Paragraaf = Paragraaf_..GeefGeleiderTekst()
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging(), ..GeefFrontBevestigingTekst(), $$$True)
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering(),..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst(),..GeefOpvullijstTekst(), $$$True)
-	Do ..VoegToeLangtekstParagraaf(Paragraaf)
+	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
+	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
+	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
 	
+	Do ..VoegToeLangtekstParagraaf(Paragraaf)	
 	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()
-		#dim OnderdeelKey As %String = IteratorKleurenVoorOnderdeelArray.Key()
-		If (OnderdeelKey = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()) && (..BodemSlicedTypeBepaler.GeefBodemSlicedType(..IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) {
-			Set OnderdeelKey=OnderdeelKey_"_Sliced"
+	#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()
+		#Dim OnderdeelKey As %String = IteratorKleurenVoorOnderdeelArray.Key()
+		
+		If (OnderdeelKey = ..Rol.Bodem) && (..BodemSlicedTypeBepaler.GeefBodemSlicedType(..IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) {
+			Set OnderdeelKey = OnderdeelKey _ "_Sliced"
 		}
-		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(OnderdeelKey)_":"_..KleurCodeVertaler.GeefVertaling(Kleur))
+		
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(OnderdeelKey) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleur))
 	}
-	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Kantenband")_":"_..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur()))
+	
+	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Kantenband") _ ":" _ ..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur()))
 ]]></Implementation>
 </Method>
 
@@ -102,12 +116,14 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Resultaat As %String = ""
-	If ..IngegevenKenmerken.HeeftTipon {
+	#Dim Resultaat As %String = ""
+	
+	If (..IngegevenKenmerken.HeeftTipon) {
 		Set Resultaat = "TIP-ON"
 	} Else {
 		Set Resultaat = "BLUMOTION"
 	}
+	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
@@ -116,17 +132,23 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim GeleiderTekst As TECH.String = ..Vertaler.GeefVertaling("Geleider")_" "_##class(DOM.PM.enu.TAORGlijderType).LogicalToDisplay(..IngegevenKenmerken.GlijderType)_" "_..GeefDraagkrachtTekst()_..#KenmerkSeparator_..GeefBlumotionOfTipon()
-	Quit ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder(), GeleiderTekst, ..IsLadeGemonteerd())
+	#Dim GeleiderTekst As TECH.String = ""
+	
+	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " 
+	Set GeleiderTekst = GeleiderTekst _ ##class(DOM.PM.enu.TAORGlijderType).LogicalToDisplay(..IngegevenKenmerken.GlijderType) _ " "
+	Set GeleiderTekst = GeleiderTekst _ ..GeefDraagkrachtTekst() _ ..#KenmerkSeparator _ ..GeefBlumotionOfTipon()
+	
+	Quit ..GeefTekstVoorRol(..Rol.Glijder, GeleiderTekst, ..IsLadeGemonteerd())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFrontEindkapTekst">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..IngegevenKenmerken
-	#dim FrontEindkapKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.FrontEindkapKleur)
-	Quit ..Vertaler.GeefVertaling("FrontEindkap")_":"_FrontEindkapKleur
+	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..IngegevenKenmerken
+	#Dim FrontEindkapKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.FrontEindkapKleur)
+	
+	Quit ..Vertaler.GeefVertaling("FrontEindkap") _ ":" _ FrontEindkapKleur
 ]]></Implementation>
 </Method>