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>