Index: DOM/PM/impl/Langtekst/MVXEnkelOnderdeelTekstBepaler.cls.xml
===================================================================
diff -u -r62759 -r64559
--- DOM/PM/impl/Langtekst/MVXEnkelOnderdeelTekstBepaler.cls.xml	(.../MVXEnkelOnderdeelTekstBepaler.cls.xml)	(revision 62759)
+++ DOM/PM/impl/Langtekst/MVXEnkelOnderdeelTekstBepaler.cls.xml	(.../MVXEnkelOnderdeelTekstBepaler.cls.xml)	(revision 64559)
@@ -3,6 +3,11 @@
 <Class name="DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler">
 <Super>TECH.RegisteredObject,DOM.PM.enu.MVXProductieWijze.Verwerker</Super>
 
+<Property name="KleurCodeBepaler">
+<Type>DOM.PM.ProductTekst.impl.KleurcodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Vertaler">
 <Type>DOM.common.Transl.Vertaler</Type>
 <Private>1</Private>
@@ -18,27 +23,61 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OnderdeelTekst">
 <Type>TECH.String</Type>
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.MVX).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalOnderdeelTekst">
-<FormalSpec>Taal:DOM.enu.Taal,MVXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<FormalSpec>Taal:DOM.enu.Taal,MVXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim VertaalApi As DOM.common.Transl.VertaalAPI = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI()
-	set ..Vertaler = VertaalApi.GeefStandaardVertaler(Taal)
-	Set ..KleurCodeVertaler = VertaalApi.GeefKleurCodeVertaler(Taal)
+	#dim VertaalAPI As DOM.common.Transl.VertaalAPI = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI()
+	set ..Vertaler = VertaalAPI.GeefStandaardVertaler(Taal)
+	Set ..KleurCodeVertaler = VertaalAPI.GeefKleurCodeVertaler(Taal)
 	Set ..MVXKenmerken = MVXKenmerken
-	Set ..OnderdeelTekst = ..Vertaler.GeefVertaling("Enkel")_" "
+	Set ..HalffabItemsBoom = HalffabItemsBoom
 	
+	Set ..OnderdeelTekst = ..Vertaler.GeefVertaling("Enkel")_" "
 	Do ..Verwerk(MVXKenmerken.ProductieWijze)
-	
 	Quit ..OnderdeelTekst
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBodem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..MVXKenmerken, ..HalffabItemsBoom)
+	Do ..Append(..Vertaler.GeefVertaling("Bodem")_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBodemEnRug">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VerwerkBodem()
+	Do ..Append("; ")
+	Do ..VerwerkRug()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkFront">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -47,10 +86,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkRug">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..MVXKenmerken, ..HalffabItemsBoom)
+	Do ..Append(..Vertaler.GeefVertaling("rug", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRugMetHouders">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..MVXKenmerken, ..HalffabItemsBoom)
+	Do ..Append(..Vertaler.GeefVertaling("RugMetHouders")_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVolledig">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("Deze klasse is niet bedoeld om een volledige lade te verwerken.")
+	Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("Deze klasse is enkel bedoelt om de niet volledige te verwerken.")
 	Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 ]]></Implementation>
 </Method>