Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r2473 -r2529
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2473)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2529)
@@ -54,27 +54,37 @@
 	}
 	ElseIf (##class(TECH.StringUtils).StartsWith($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")),"RUG"))
 	{
-		Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(ProductNummer)
+		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.TBXRugImpl).%New(ProductNummer)
+		} 
+		Else
+		{
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%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 
 	{
-		Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemImpl).%New(ProductNummer)
+		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 ($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.TBXRugImpl).%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)
 		}