Index: DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml
===================================================================
diff -u -r63596 -r72207
--- DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml	(.../TAOREnkelOnderdeelTekstBepaler.cls.xml)	(revision 63596)
+++ DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml	(.../TAOREnkelOnderdeelTekstBepaler.cls.xml)	(revision 72207)
@@ -8,11 +8,6 @@
 <Default>; </Default>
 </Parameter>
 
-<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>
@@ -33,26 +28,37 @@
 <Private>1</Private>
 </Property>
 
-<Property name="HalffabItemsBoom">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OnderdeelTekst">
 <Type>%String</Type>
 <Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
+<Property name="LosseComponentFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Kleuren">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieWijzeNaarLosseComponentConverter">
+<Type>DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler=""</FormalSpec>
+<FormalSpec>LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory="",ProductieWijzeNaarLosseComponentConverter:DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter=""</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.LBX).%New())
-	Set ..OnderdeelTekst = ##class(%ListOfDataTypes).%New()
+	Set ..LosseComponentFactory = $$$Inject(LosseComponentFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	Set ..ProductieWijzeNaarLosseComponentConverter = $$$Inject(ProductieWijzeNaarLosseComponentConverter, ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New())
+	Set ..OnderdeelTekst = ##class(%ListOfDataTypes).%New()	
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -67,29 +73,31 @@
 	Set ..KleurCodeVertaler = VertaalAPI.GeefKleurCodeVertaler(Taal)
 	Set ..PlaatMateriaalKleurVertaler = PlaatMateriaalKleurVertaler
 	Set ..TAORKenmerken = TAORKenmerken
-	Set ..HalffabItemsBoom = HalffabItemsBoom
 	
+	#dim LosseComponentType As DOM.PM.Maatwerk.Lade.enu.LosseComponent = ..ProductieWijzeNaarLosseComponentConverter.Convert(TAORKenmerken.ProductieWijze)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LosseComponentFactory.MaakLosseComponent(HalffabItemsBoom, TAORKenmerken, LosseComponentType)
+	Set ..Kleuren = LadeOnderdeel.GeefKleuren()
+	
 	Do ..Verwerk(TAORKenmerken.ProductieWijze)
+	
 	Quit ..OnderdeelTekst
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBodem">
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("Bodem")_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode))
+<Implementation><![CDATA[	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("Bodem")_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(1)))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkFront">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..TAORKenmerken.LadeKleur
+	#dim LadeKleurCode As TECH.String = ..TAORKenmerken.LadeKleur
 	#dim EindkapKleurCode As TECH.String = ..TAORKenmerken.FrontEindkapKleur
 	#dim FrontBevestiging As TECH.String = $ZCVT(##class(DOM.PM.enu.TAORFrontBevestiging).Array().GetAt(..TAORKenmerken.FrontBevestiging),"L")
 
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("front", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("front", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(LadeKleurCode))
 	Do ..Append(..Vertaler.GeefVertaling("Eindkap", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(EindkapKleurCode))
 	Do ..Append(..Vertaler.GeefVertaling("frontbevestiging", "", $$$True)_":"_..Vertaler.GeefVertaling(FrontBevestiging, "", $$$True))
 ]]></Implementation>
@@ -104,40 +112,33 @@
 <Method name="VerwerkZijkantRechts">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BinnenKleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
-	#dim BuitenKleurCode As TECH.String = ..KleurCodeBepaler.GeefBuitenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
-	#dim KantenbandKleurCode As TECH.String = ..TAORKenmerken.KantenbandKleur
 	#dim LadeKleurCode As TECH.String = ..TAORKenmerken.LadeKleur
 	
 	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("zijkantrechts", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(LadeKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BuitenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BinnenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KantenbandKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(2)))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(1)))
+	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(3)))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkantLinks">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BinnenKleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
-	#dim BuitenKleurCode As TECH.String = ..KleurCodeBepaler.GeefBuitenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
-	#dim KantenbandKleurCode As TECH.String = ..TAORKenmerken.KantenbandKleur
 	#dim LadeKleurCode As TECH.String = ..TAORKenmerken.LadeKleur
 	
 	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("zijkantlinks", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(LadeKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BuitenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BinnenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KantenbandKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(2)))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(1)))
+	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(3)))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRug">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
 	#dim KantenbandKleurCode As TECH.String = ..TAORKenmerken.KantenbandKleur
 	
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("rug", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("rug", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(1)))
 	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KantenbandKleurCode))
 ]]></Implementation>
 </Method>