Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r30747 -r30785
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 30747)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 30785)
@@ -114,26 +114,28 @@
 <Method name="VoegToeStandaardKleuren">
 <Private>1</Private>
 <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 = ..Enum.Rol.Bodem) && (..BodemSlicedTypeBepaler.GeefBodemSlicedType(..IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) {
-			Set OnderdeelKey = "Bodem_Sliced"
+	If ..Lade.GeefBodems().Count() > 0 {
+		#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..Lade.GeefBodems().GetAt(1)
+		#dim VertaalSleutel As TECH.String = ""
+		If (..BodemSlicedTypeBepaler.GeefBodemSlicedType(..IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) {
+			Set VertaalSleutel = "Bodem_Sliced"
+		} Else {
+			Set VertaalSleutel = "Bodem"
 		}
-				
-		if (OnderdeelKey = "Zijkant") {
-			set OnderdeelKey = "ladezijkant"
-		} elseif (OnderdeelKey = "Rug") {
-			set OnderdeelKey = "rug"	
-		}
-		
-		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(OnderdeelKey, "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleur))
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(VertaalSleutel, "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Bodem.GeefKleur()))
 	}
-	
+	If ..Lade.GeefFronten().Count() > 0 {
+		#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = ..Lade.GeefFronten().GetAt(1)
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Front", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Front.GeefKleur()))
+	}
+	If ..Lade.GeefRuggen().Count() > 0 {
+		#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..Lade.GeefRuggen().GetAt(1)
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("rug", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Rug.GeefKleur()))
+	}
+	If ..Lade.GeefZijkanten().Count() > 0 {
+		#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..Lade.GeefZijkanten().GetAt(1)
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Zijkant.GeefKleur()))
+	}
 	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("kantenband", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur()))
 ]]></Implementation>
 </Method>