Index: DOM/PM/TBXProduct/impl/TBXLadeMetUitsparing.cls.xml
===================================================================
diff -u -r1867 -r1898
--- DOM/PM/TBXProduct/impl/TBXLadeMetUitsparing.cls.xml	(.../TBXLadeMetUitsparing.cls.xml)	(revision 1867)
+++ DOM/PM/TBXProduct/impl/TBXLadeMetUitsparing.cls.xml	(.../TBXLadeMetUitsparing.cls.xml)	(revision 1898)
@@ -70,5 +70,19 @@
 	Quit Aantal
 ]]></Implementation>
 </Method>
+
+<Method name="GeefRug">
+<ReturnType>DOM.PM.TBXProduct.TBXRug</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(..Rug) && ..BevatRug() &&(..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()))
+	{
+		Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGSSPLI.001")
+		Set HalfFabrProduct = Bouwsteen.KindProduct
+		Set HalfFabrProductNr = HalfFabrProduct.ProductNr
+		Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
+	}
+	Quit ..Rug
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml
===================================================================
diff -u -r1821 -r1898
--- DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml	(.../ProductSpecificatie.cls.xml)	(revision 1821)
+++ DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml	(.../ProductSpecificatie.cls.xml)	(revision 1898)
@@ -16,10 +16,6 @@
 <Super>%Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="IngegevenKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
-</Property>
-
 <Property name="IKID">
 <Type>DOM.PM.Maatwerk.Calc.Common.IKID</Type>
 <Private>1</Private>
Index: DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml
===================================================================
diff -u -r1867 -r1898
--- DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml	(.../TBXSifonladeTypeBlumImpl.cls.xml)	(revision 1867)
+++ DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml	(.../TBXSifonladeTypeBlumImpl.cls.xml)	(revision 1898)
@@ -18,14 +18,14 @@
 	{
 		If (..GeefAantalUitsparingen() = 1)
 		{
-			Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefBreedteUitsparing1(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts(),..GeefSifonZijkantKleur())
+			Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefBreedteUitsparing1(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts(),..GeefSifonZijkantKleur(),..GeefTussenrugMateriaal())
 			Do ..Uitsparingen.Insert(RechteUitsparing)
 		}
 		Else
 		{
-			Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefBreedteUitsparing1(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts2(),..GeefSifonZijkantKleur())
+			Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefBreedteUitsparing1(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts2(),..GeefSifonZijkantKleur(),..GeefTussenrugMateriaal())
 			Do ..Uitsparingen.Insert(RechteUitsparing)
-			Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefBreedteUitsparing2(),..GeefAfstandTotZijkantLinks2(),..GeefAfstandTotZijkantRechts(),..GeefSifonZijkantKleur())
+			Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefBreedteUitsparing2(),..GeefAfstandTotZijkantLinks2(),..GeefAfstandTotZijkantRechts(),..GeefSifonZijkantKleur(),..GeefTussenrugMateriaal())
 			Do ..Uitsparingen.Insert(RechteUitsparing)
 		}
 	}
@@ -39,22 +39,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRug">
-<Description>
-TODO</Description>
-<ReturnType>DOM.PM.TBXProduct.TBXRug</ReturnType>
-<Implementation><![CDATA[
-	If ('$IsObject(..Rug) && ..BevatRug() &&(..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()))
-	{
-		Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGHSSPLI.001")
-		Set HalfFabrProduct = Bouwsteen.KindProduct
-		Set HalfFabrProductNr = HalfFabrProduct.ProductNr
-		Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
-	}
-	Quit ..Rug
-]]></Implementation>
-</Method>
-
 <Method name="GeefAfstandTotZijkantLinks2">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
@@ -113,5 +97,23 @@
 <Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"KSP"))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTussenrugMateriaal">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
+<Implementation><![CDATA[
+	Set SPZK = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPZK"))
+	Set TussenrugMateriaal = ""
+	If ($Extract(SPZK,1,1) = "M")
+	{
+		Set TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()
+	}
+	Else
+	{
+		Set TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+	}
+	Quit TussenrugMateriaal
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml
===================================================================
diff -u -r1867 -r1898
--- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 1867)
+++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 1898)
@@ -162,11 +162,15 @@
 		
 		If (Uitsparing1.IsRechteUitsparing())
 		{
-			Set TBXKenmerken.UitsparingBreedte = Uitsparing1.GeefBreedte()
-			Do ..Controleer(TBXKenmerken.UitsparingBreedte,Uitsparing1.GeefBreedte(),"UitsparingBreedte", ErrorLijst)
+			Set TBXKenmerken.UitsparingBreedte1 = Uitsparing1.GeefBreedte()
+			Do ..Controleer(TBXKenmerken.UitsparingBreedte1,Uitsparing1.GeefBreedte(),"UitsparingBreedte", ErrorLijst)
 			
-			Set TBXKenmerken.SpoelbakZijkantKleur = Product.GeefZijkantKleur()
-			Do ..Controleer(TBXKenmerken.SpoelbakZijkantKleur,Product.GeefZijkantKleur(),"SpoelbakZijkantKleur", ErrorLijst)
+			Set TBXKenmerken.UitsparingZijkantKleur = Uitsparing1.GeefZijkantKleur()
+			Do ..Controleer(TBXKenmerken.UitsparingZijkantKleur,Uitsparing1.GeefZijkantKleur(),"UitsparingZijkantKleur", ErrorLijst)
+			
+			Set TBXKenmerken.TussenrugMateriaal = Uitsparing1.GeefTussenrugMateriaal()
+			Do ..Controleer(TBXKenmerken.TussenrugMateriaal,Uitsparing1.GeefTussenrugMateriaal(),"TussenrugMateriaal", ErrorLijst)
+			Do ..IsValid(TBXKenmerken.TussenrugMateriaal,"DOM.PM.enu.TBXRugMateriaal", ErrorLijst)
 		}
 		
 		Set TBXKenmerken.UitsparingDiepte = Uitsparing1.GeefDiepte()
@@ -182,7 +186,8 @@
 			Set TBXKenmerken.UitsparingPositie2 = Uitsparing2.GeefAfstandTotZijkantLinks()
 			Do ..Controleer(TBXKenmerken.UitsparingPositie2,Uitsparing2.GeefAfstandTotZijkantLinks(),"UitsparingPositie2", ErrorLijst)
 			
-			// TODO Breedte van uitsparing 2 toevoegen wanneer kenmerk is toegevoegd
+			Set TBXKenmerken.UitsparingBreedte2 = Uitsparing1.GeefBreedte()
+			Do ..Controleer(TBXKenmerken.UitsparingBreedte2,Uitsparing1.GeefBreedte(),"UitsparingBreedte", ErrorLijst)
 		}
 	}
 	
Index: zTryout/CSC/IKnaarIKID.cls.xml
===================================================================
diff -u -r1821 -r1898
--- zTryout/CSC/IKnaarIKID.cls.xml	(.../IKnaarIKID.cls.xml)	(revision 1821)
+++ zTryout/CSC/IKnaarIKID.cls.xml	(.../IKnaarIKID.cls.xml)	(revision 1898)
@@ -104,5 +104,62 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="CleanIKID">
+<Description>
+Do ##class(zTryout.CSC.IKnaarIKID).CleanIKID()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT I.ID as IKID FROM DOM_PM_Maatwerk_Calc_Common.IKID I LEFT JOIN DOM_PM_Maatwerk_Calc_Common.ProductSpecificatie P ON I.ID = P.IKID WHERE P.ID is null")
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set IKIDID = ResultSet.Data("IKID")
+		Set IKID = ##class(DOM.PM.Maatwerk.Calc.Common.IKID).%OpenId(IKIDID)
+		Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(IKID.GeefHash())
+		Set IKIDHashDataIterator = IKIDHash.GeefIKIDHashDataIterator()
+		While (IKIDHashDataIterator.HasNext())
+		{
+			Set IKIDHashData = IKIDHashDataIterator.Next()
+			Set IngegevenKenmerken = IKIDHashData.GeefIngegevenKenmerken()
+			Do IngegevenKenmerken.%DeleteId(IngegevenKenmerken.%Id())
+		}
+		Do IKIDHash.%DeleteId(IKIDHash.%Id())
+		Do IKID.%DeleteId(IKID.%Id())		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IngegevenKenmerkenControle">
+<Description>
+Do ##class(zTryout.CSC.IKnaarIKID).IngegevenKenmerkenControle()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ProductIterator = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductIterator()
+	
+	While (ProductIterator.HasNext())
+	{
+		Set Product = ProductIterator.Next()
+		w Product.GeefPRNr(),$c(13)
+		If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
+		{
+			Set ProductSpecificatie = Product.GeefProductSpecificatie()
+			If ($IsObject(ProductSpecificatie))
+			{
+				Set IngegevenKenmerken = ProductSpecificatie.GeefIngegevenKenmerken()
+				If ('$IsObject(IngegevenKenmerken))
+				{
+					w !,"Geen IK: "_Product.GeefPRNr(),!
+				}
+			}
+			Else
+			{
+				w !,"Geen PS: "_Product.GeefPRNr(),!
+			}
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: CSC Lade met uitsparing.prj.xml
===================================================================
diff -u -r1867 -r1898
--- CSC Lade met uitsparing.prj.xml	(.../CSC Lade met uitsparing.prj.xml)	(revision 1867)
+++ CSC Lade met uitsparing.prj.xml	(.../CSC Lade met uitsparing.prj.xml)	(revision 1898)
@@ -1,9 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Lade met uitsparing" LastModified="2011-08-24 11:54:18">
+<Project name="CSC Lade met uitsparing" LastModified="2011-08-26 14:40:34">
   <Items>
     <ProjectItem name="APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.TBX.Frees.Generator" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator" type="CLS"/>
     <ProjectItem name="DOM.PM.TBXProduct.TBXBodem" type="CLS"/>
     <ProjectItem name="DOM.PM.TBXProduct.TBXLade" type="CLS"/>
     <ProjectItem name="DOM.PM.TBXProduct.TBXLadeMetUitsparing" type="CLS"/>
Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r1803 -r1898
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 1803)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 1898)
@@ -108,18 +108,22 @@
 <Parameter name="VALUELIST" value=";M;B;C;D"/>
 </Property>
 
-<Property name="SpoelbakZijkantKleur">
-<Type>%String</Type>
-</Property>
-
 <Property name="Stabilisator">
 <Type>%Boolean</Type>
 </Property>
 
-<Property name="UitsparingBreedte">
+<Property name="TussenrugMateriaal">
+<Type>DOM.PM.enu.TBXRugMateriaal</Type>
+</Property>
+
+<Property name="UitsparingBreedte1">
 <Type>%Float</Type>
 </Property>
 
+<Property name="UitsparingBreedte2">
+<Type>%Float</Type>
+</Property>
+
 <Property name="UitsparingDiepte">
 <Type>%Float</Type>
 </Property>
@@ -132,6 +136,10 @@
 <Type>%Float</Type>
 </Property>
 
+<Property name="UitsparingZijkantKleur">
+<Type>DOM.PM.enu.TBXZijkantKleur</Type>
+</Property>
+
 <Property name="Uittrekbaarheid">
 <Type>DOM.PM.enu.TBXUittrekbaarheid</Type>
 </Property>
@@ -336,7 +344,7 @@
 	Set ..Klasse = ##class(DOM.PM.enu.TBXKlas).Sifon()
 	Set ..IsBinnenLade = 0
 	Set ..FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
-	Set ..UitsparingBreedte = 119
+	Set ..UitsparingBreedte1 = 119
 	Set ..UitsparingDiepte = 186
 ]]></Implementation>
 </Method>
@@ -346,7 +354,7 @@
 	Set ..Klasse = ##class(DOM.PM.enu.TBXKlas).Sifon()
 	Set ..IsBinnenLade = 1
 	Set ..FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Zonder()
-	Set ..UitsparingBreedte = 119
+	Set ..UitsparingBreedte1 = 119
 	Set ..UitsparingDiepte = 186
 ]]></Implementation>
 </Method>
@@ -592,7 +600,6 @@
 <Type>%Library.CacheStorage</Type>
 <DefaultData>TBXKenmerkenDefaultData</DefaultData>
 <Data name="TBXKenmerkenDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"TBXKenmerken"</Subscript>
 <Value name="1">
 <Value>Antislipmat</Value>
@@ -664,7 +671,7 @@
 <Value>SpoelbakBinnenzijwandHoogte</Value>
 </Value>
 <Value name="24">
-<Value>SpoelbakZijkantKleur</Value>
+<Value>UitsparingZijkantKleur</Value>
 </Value>
 <Value name="25">
 <Value>Stabilisator</Value>
@@ -673,7 +680,7 @@
 <Value>TipOn</Value>
 </Value>
 <Value name="27">
-<Value>UitsparingBreedte</Value>
+<Value>UitsparingBreedte1</Value>
 </Value>
 <Value name="28">
 <Value>UitsparingDiepte</Value>
@@ -729,6 +736,12 @@
 <Value name="45">
 <Value>ZijwandVerhogingType</Value>
 </Value>
+<Value name="47">
+<Value>UitsparingBreedte2</Value>
+</Value>
+<Value name="48">
+<Value>TussenrugMateriaal</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml
===================================================================
diff -u -r1867 -r1898
--- DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml	(.../TBXSifonladeImpl.cls.xml)	(revision 1867)
+++ DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml	(.../TBXSifonladeImpl.cls.xml)	(revision 1898)
@@ -41,20 +41,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRug">
-<ReturnType>DOM.PM.TBXProduct.TBXRug</ReturnType>
-<Implementation><![CDATA[
-	If ('$IsObject(..Rug) && ..BevatRug() &&(..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()))
-	{
-		Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGHSSPLI.001")
-		Set HalfFabrProduct = Bouwsteen.KindProduct
-		Set HalfFabrProductNr = HalfFabrProduct.ProductNr
-		Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
-	}
-	Quit ..Rug
-]]></Implementation>
-</Method>
-
 <Method name="GeefAfstandTotZijkantLinks">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
Index: DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml
===================================================================
diff -u -r1821 -r1898
--- DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml	(.../IKIDHash.cls.xml)	(revision 1821)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml	(.../IKIDHash.cls.xml)	(revision 1898)
@@ -41,7 +41,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIKIDCanonischTupleIterator">
+<Method name="GeefIKIDHashDataIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..OverflowIDs)
 ]]></Implementation>
Index: DOM/PM/TBXProduct/TBXRechteUitsparing.cls.xml
===================================================================
diff -u -r1867 -r1898
--- DOM/PM/TBXProduct/TBXRechteUitsparing.cls.xml	(.../TBXRechteUitsparing.cls.xml)	(revision 1867)
+++ DOM/PM/TBXProduct/TBXRechteUitsparing.cls.xml	(.../TBXRechteUitsparing.cls.xml)	(revision 1898)
@@ -16,5 +16,10 @@
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="GeefTussenrugMateriaal">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml
===================================================================
diff -u -r1867 -r1898
--- DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml	(.../TBXRechteUitsparing.cls.xml)	(revision 1867)
+++ DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml	(.../TBXRechteUitsparing.cls.xml)	(revision 1898)
@@ -10,13 +10,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TussenrugMateriaal">
+<Type>DOM.PM.enu.TBXRugMateriaal</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Diepte:%Integer,Breedte:%Integer,AfstandTotZijkantLinks:%Integer,AfstandTotZijkantRechts:%Integer,ZijkantKleur:%String</FormalSpec>
+<FormalSpec>Diepte:%Integer,Breedte:%Integer,AfstandTotZijkantLinks:%Integer,AfstandTotZijkantRechts:%Integer,ZijkantKleur:%String,TussenrugMateriaal:DOM.PM.enu.TBXRugMateriaal</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ZijkantKleur = ZijkantKleur
+	Set ..TussenrugMateriaal = TussenrugMateriaal
 	Quit ##super(Diepte,Breedte,AfstandTotZijkantLinks,AfstandTotZijkantRechts)
 ]]></Implementation>
 </Method>
@@ -56,5 +62,11 @@
 <Implementation><![CDATA[	Quit ..GeefAfstandTotZijkantRechts() - 37.5 - 31.5
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTussenrugMateriaal">
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
+<Implementation><![CDATA[	Quit ..TussenrugMateriaal
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml
===================================================================
diff -u -r1867 -r1898
--- vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml	(.../TestTBXLade.cls.xml)	(revision 1867)
+++ vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml	(.../TestTBXLade.cls.xml)	(revision 1898)
@@ -101,6 +101,9 @@
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefBreedteInBodem(),634+63,"Spoelbak is 697mm breed")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefDiepte(),360,"Spoelbak is 360mm diep tov front")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefDiepteInBodem(),360-24,"Spoelbak is 336mm diep in de bodem uitgewerkt")
+	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"Tussenrugmateriaal is hout")
+	
+	Do $$$AssertEquals(Product.GeefRugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"De rug is in hout")
 
 	// Testen TussenstukDiepte (bij LD=500) 
 	Do $$$AssertEquals(Product.GeefLadeDiepte(),500,"Ladediepte van 500")   ; ter controle
@@ -174,13 +177,15 @@
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefAfstandTotBodemRechts(),537-69,"Sifon zit 468mm van rechts van de bodem")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefDiepte(),360,"Sifon is 360mm diep")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefZijkantKleur(),"MG","Kleur van de binnenzijkant")
+	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Staal(),"Tussenrugmateriaal is hout")
 	
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotZijkantLinks(),61+69+263+144,"Sifon zit 606.5mm van links van de zijkant")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotZijkantRechts(),81+69,"Sifon zit 162.5mm van rechts van de zijkant")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotBodemLinks(),61+263+144,"Sifon zit 162.5mm van links van de bodem")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotBodemRechts(),81,"Sifon zit 81mm van rechts van de bodem")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefDiepte(),360,"Sifon is 360mm diep")
 	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefZijkantKleur(),"MG","Kleur van de binnenzijkant")
+	Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Staal(),"Tussenrugmateriaal is hout")
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml
===================================================================
diff -u -r1867 -r1898
--- DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml	(.../TBXSpoelbakladeImpl.cls.xml)	(revision 1867)
+++ DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml	(.../TBXSpoelbakladeImpl.cls.xml)	(revision 1898)
@@ -16,7 +16,7 @@
 <Implementation><![CDATA[
 	If (..Uitsparingen.Count() = 0)
 	{
-		Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefSpoelbakBreedte(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts(),..GeefSpoelbakZijkantKleur())
+		Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefSpoelbakBreedte(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts(),..GeefSpoelbakZijkantKleur(),..GeefTussenrugMateriaal())
 		Do ..Uitsparingen.Insert(RechteUitsparing)
 	}
 	Quit ..Uitsparingen
@@ -29,20 +29,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRug">
-<ReturnType>DOM.PM.TBXProduct.TBXRug</ReturnType>
-<Implementation><![CDATA[
-	If ('$IsObject(..Rug) && ..BevatRug() &&(..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()))
-	{
-		Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGSSPLI.001")
-		Set HalfFabrProduct = Bouwsteen.KindProduct
-		Set HalfFabrProductNr = HalfFabrProduct.ProductNr
-		Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
-	}
-	Quit ..Rug
-]]></Implementation>
-</Method>
-
 <Method name="GeefSpoelbakZijkantKleur">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -62,5 +48,12 @@
 <Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTussenrugMateriaal">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefRugMateriaal()
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml
===================================================================
diff -u -r1852 -r1898
--- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(.../IKCanonischeWaardeGenerator.cls.xml)	(revision 1852)
+++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(.../IKCanonischeWaardeGenerator.cls.xml)	(revision 1898)
@@ -30,7 +30,7 @@
 	
 	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_TBXKenmerken.InbouwBreedte_";"_TBXKenmerken.LadeDiepte_";"_TBXKenmerken.LadeVariant_";"_TBXKenmerken.IsBinnenLade_";"_TBXKenmerken.Antislipmat_";"_TBXKenmerken.Blumotion_";"_TBXKenmerken.TipOn_";"_TBXKenmerken.BodemKleur_";"_TBXKenmerken.Draagkracht_";"_TBXKenmerken.Dwarsverdeling_";"_TBXKenmerken.FrontBevestiging_";"_TBXKenmerken.FrontHouderKleur_
 		";"_TBXKenmerken.FrontOndersteuningAantal_";"_TBXKenmerken.FrontOndersteuningType_";"_TBXKenmerken.HangmapBoringen_";"_TBXKenmerken.Klasse_";"_TBXKenmerken.OpvullijstLinks_";"_TBXKenmerken.OpvullijstRechts_";"_TBXKenmerken.PlaatMateriaal_";"_TBXKenmerken.RugKleur_";"_TBXKenmerken.RugHouderKleur_";"_TBXKenmerken.RugHoogte_";"_TBXKenmerken.RugMateriaal_
-		";"_TBXKenmerken.SpoelbakBinnenzijwandHoogte_";"_TBXKenmerken.SpoelbakZijkantKleur_";"_TBXKenmerken.Stabilisator_";"_TBXKenmerken.UitsparingBreedte_";"_TBXKenmerken.UitsparingDiepte_";"_TBXKenmerken.UitsparingPositie1_";"_TBXKenmerken.UitsparingPositie2_";"_TBXKenmerken.Uittrekbaarheid_";"_TBXKenmerken.Verpakking_";"_TBXKenmerken.VoorwandMetMeenemer_
+		";"_TBXKenmerken.SpoelbakBinnenzijwandHoogte_";"_TBXKenmerken.TussenrugMateriaal_";"_TBXKenmerken.UitsparingZijkantKleur_";"_TBXKenmerken.Stabilisator_";"_TBXKenmerken.UitsparingBreedte1_";"_TBXKenmerken.UitsparingBreedte2_";"_TBXKenmerken.UitsparingDiepte_";"_TBXKenmerken.UitsparingPositie1_";"_TBXKenmerken.UitsparingPositie2_";"_TBXKenmerken.Uittrekbaarheid_";"_TBXKenmerken.Verpakking_";"_TBXKenmerken.VoorwandMetMeenemer_
 		";"_TBXKenmerken.VoorwandMetGreep_";"_TBXKenmerken.VoorwandVerhogingType_";"_TBXKenmerken.VoorwandVerhogingMateriaal_";"_TBXKenmerken.VoorwandVerhogingKleur_";"_TBXKenmerken.ZijkantDesign_";"_TBXKenmerken.ZijkantHoogte_";"_TBXKenmerken.ZijkantKleur_";"_TBXKenmerken.ZijwandHoogte_";"_TBXKenmerken.ZijwandVerhogingType_";"_TBXKenmerken.ZijwandVerhogingMateriaal_
 		";"_TBXKenmerken.ZijwandVerhogingKleur_";"_TBXKenmerken.ZijwandVerhogingAantal