Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r29356 -r29594
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29356)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29594)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BodemSlicedTypeBepaler">
+<Type>zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI</FormalSpec>
 <Private>1</Private>
@@ -26,6 +31,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	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>
@@ -85,7 +91,11 @@
 	#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))
+		#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"
+		}
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(OnderdeelKey)_":"_..KleurCodeVertaler.GeefVertaling(Kleur))
 	}
 	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Kantenband")_":"_..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur()))
 ]]></Implementation>
@@ -94,7 +104,7 @@
 <Method name="IsLadeGemonteerd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$Not(..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd())
+<Implementation><![CDATA[	Quit $$$Not(..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd()) && $$$Not(..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
 ]]></Implementation>
 </Method>