Index: Prod/Kenmerk/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r63424 -r65299
--- Prod/Kenmerk/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 63424)
+++ Prod/Kenmerk/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 65299)
@@ -13,6 +13,12 @@
 <Method name="ZoekMVXPPSKenmerken">
 <ReturnType>TECH.Iterator</ReturnType>
 </Method>
+
+<Method name="GeefStalenRugIteratorViaKenmerken">
+<Abstract>1</Abstract>
+<FormalSpec>LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String,KlantId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/Prod/Kenmerk/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r63424 -r65299
--- vhTest/Mock/Prod/Kenmerk/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 63424)
+++ vhTest/Mock/Prod/Kenmerk/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 65299)
@@ -8,6 +8,13 @@
 <Super>Prod.Kenmerk.DataDefinitieRepository,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="GeefStalenRugIteratorViaKenmerken">
+<FormalSpec>LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String,KlantId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefStalenRugIteratorViaKenmerken",LadeHoogte,LadeKleur,InterneBreedte,RugHoogte,KlantId)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekDataVoorUnIDEnKenmerkGroep">
 <FormalSpec>UnID:%String,KenmerkGroep:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r63424 -r65299
--- Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 63424)
+++ Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 65299)
@@ -20,6 +20,32 @@
 <Implementation><![CDATA[	Quit ..ZoekViaFilter("KenmerkGroep like '%MVX_PPS_%'", $LB(""))
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekTbxStalenRugViaKenmerken">
+<FormalSpec>InterneBreedte:%String,RugHoogte:%String,RugKleur:%String,KlantId:%String=""</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim KenmerkGroep As %String = "TB"   ; ter info 
+	#dim BasisType As %String = "RUGS"
+	#dim lbParams As %List = $LB(InterneBreedte, RugHoogte, RugKleur, KlantId, BasisType)
+
+	#dim SqlStatement As TECH.String
+	Set SqlStatement = "SELECT ddBasisType.ID As ID, ddBasisType.PRNr As PRNr  FROM Prod_Kenmerk.DataDefinitie As ddBasisType" 
+			_"  JOIN Prod_Kenmerk.DataDefinitie As ddTB     ON (ddBasisType.PRNr = ddTB.PRNr)     AND (ddTB.Kenmerk = 'TB||tB')            AND ($ListGet(ddTB.Waarden) = 1) "
+			_"  JOIN Prod_Kenmerk.DataDefinitie As ddIB     ON (ddBasisType.PRNr = ddIB.PRNr)     AND (ddIB.Kenmerk = 'TB||BreedteIntern') AND ($ListGet(ddIB.Waarden) = ?) "
+			_"  JOIN Prod_Kenmerk.DataDefinitie As ddRugH   ON (ddBasisType.PRNr = ddRugH.PRNr)   AND (ddRugH.Kenmerk = 'TB||RugHoogte')   AND ($ListGet(ddRugH.Waarden) = ?) "
+			_"  JOIN Prod_Kenmerk.DataDefinitie As ddKleur  ON (ddBasisType.PRNr = ddKleur.PRNr)  AND (ddKleur.Kenmerk = 'TB||Kleur')      AND ($ListGet(ddKleur.Waarden) = ?) "
+			_"  JOIN Prod_Kenmerk.DataDefinitie As ddActief ON (ddBasisType.PRNr = ddActief.PRNr) AND (ddActief.Kenmerk = 'TB||Actief')    AND ($ListGet(ddActief.Waarden) IN (?,'A')) "
+			_"  WHERE (ddBasisType.Kenmerk = 'TB||BasisType') AND ($ListGet(ddBasisType.Waarden) = ?) "
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,lbParams))
+	#dim Opener As TECH.Persistentie.Repository.ResultSetItemOpener = ##class(TECH.Persistentie.Repository.ResultSetItemOpener).%New($this)
+	#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	#dim Result As TECH.Iterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator, Opener)
+
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>