Index: DOM/PM/TBXProduct/TBXRughouder.cls.xml
===================================================================
diff -u -r2590 -r2851
--- DOM/PM/TBXProduct/TBXRughouder.cls.xml	(.../TBXRughouder.cls.xml)	(revision 2590)
+++ DOM/PM/TBXProduct/TBXRughouder.cls.xml	(.../TBXRughouder.cls.xml)	(revision 2851)
@@ -10,5 +10,25 @@
 <Implementation><![CDATA[	Do Visitor.VerwerkTBXRughouder(##this)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleur">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefVoorZijwandHoogte">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.TBXZijwandHoogte</ReturnType>
+</Method>
+
+<Method name="GeefVoorRugHoogte">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
+</Method>
+
+<Method name="IsLVormig">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r2842 -r2851
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2842)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2851)
@@ -52,39 +52,13 @@
 	{
 		Set Product = ##class(DOM.PM.TAOOProduct.impl.TAOOLadeImpl).%New(ProductNummer)
 	}
-	ElseIf (##class(TECH.StringUtils).StartsWith($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")),"RUG"))
-	{
-		If ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")) [ "RUGSTRK")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
-		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugStrookImpl).%New(ProductNummer)
-		} 
-		Else
-		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugOpMaatImpl).%New(ProductNummer)
-		}
-	}
-	ElseIf ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")) [ "RL")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
-	{
-		Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).%New(ProductNummer)
-	}
-	ElseIf ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")) [ "BODEM")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
-	{
-		If ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")) [ "BODEMSTRK")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
-		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemStrookImpl).%New(ProductNummer)
-		} 
-		Else
-		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemOpMaatImpl).%New(ProductNummer)
-		}
-	}
 	ElseIf ($$ISORGAL^ORGALUX(ProductNummer))
 	{
 		If ($Piece(^KPR(ProductNummer,"I1"),"\",4) = 1327) // orgalux dwarslat op maat classificatie
 		{
 			Set Product = ##class(DOM.PM.impl.MaatwerkProductImpl).%New(ProductNummer)
 		}
-	Else
+		Else
 		{
 			Set Product = ##class(DOM.PM.OLProduct.impl.OLProductImpl).%New(ProductNummer)
 		}
@@ -99,8 +73,44 @@
 	}
 	Else
 	{
+		Set BasisType = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType"))
+		If (BasisType = "RUGH")
+		{
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRughouderImpl).%New(ProductNummer)
+		}
+		ElseIf (##class(TECH.StringUtils).StartsWith(BasisType,"RUG"))
+		{
+			If (BasisType [ "RUGSTRK")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
+			{
+				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugStrookImpl).%New(ProductNummer)
+			} 
+			Else
+			{
+				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugOpMaatImpl).%New(ProductNummer)
+			}
+		}
+		ElseIf (BasisType [ "RL")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
+		{
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).%New(ProductNummer)
+		}
+		ElseIf (BasisType [ "BODEM")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
+		{
+			If (BasisType [ "BODEMSTRK")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
+			{
+				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemStrookImpl).%New(ProductNummer)
+			} 
+			Else
+			{
+				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemOpMaatImpl).%New(ProductNummer)
+			}
+		}
+	}
+	
+	If ('$IsObject(Product))
+	{
 		Set Product = ##class(DOM.PM.impl.ProductImpl).%New(ProductNummer)
 	}
+	
 	Quit Product
 ]]></Implementation>
 </Method>
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2731 -r2851
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2731)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2851)
@@ -246,7 +246,8 @@
 	Set RughouderBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGLI.001")
 	If ($Get(RughouderBouwsteen) '= "") {
 		Set RughouderPRNr = RughouderBouwsteen.KindProduct.ProductNr
-		Set LVormigeHouder = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",RughouderPRNr,"RugHoogte"))?1A1"-"1A
+		Set Rughouder = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(RughouderPRNr)
+		Set LVormigeHouder = Rughouder.IsLVormig()
 	}
 	Quit LVormigeHouder
 ]]></Implementation>
Index: DOM/PM/TBXProduct/impl/TBXRughouderImpl.cls.xml
===================================================================
diff -u
--- DOM/PM/TBXProduct/impl/TBXRughouderImpl.cls.xml	(revision 0)
+++ DOM/PM/TBXProduct/impl/TBXRughouderImpl.cls.xml	(revision 2851)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.TBXProduct.impl.TBXRughouderImpl">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.impl.ProductImpl,DOM.PM.TBXProduct.TBXRughouder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefKleur">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"Kleur"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorZijwandHoogte">
+<ReturnType>DOM.PM.enu.TBXZijwandHoogte</ReturnType>
+<Implementation><![CDATA[	Quit $Piece($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"RugHoogte")),"-",1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorRugHoogte">
+<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
+<Implementation><![CDATA[
+	Set RugHoogte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"RugHoogte"))
+	If ($Length(RugHoogte,"-") = 2) Set RugHoogte = $Piece(RugHoogte,"-",2)
+	Quit RugHoogte
+]]></Implementation>
+</Method>
+
+<Method name="IsLVormig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"RugHoogte"))?1A1"-"1A
+]]></Implementation>
+</Method>
+</Class>
+</Export>