Index: DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml	(revision 62478)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.MVX.DATA.StalenRugRepository">
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabRug</Default>
+</Parameter>
+
+<Method name="ZoekStalenRugViaKenmerken">
+<FormalSpec>LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim DateTimeAPI As TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	#dim HuidigeDatum = DateTimeAPI.DateVoorQueries(DateTimeAPI.CurrentDate())
+	
+	Quit ..ZoekViaFilter("LadeHoogte = ? and LadeKLeur = ? and InterneBreedte = ? and RugHoogte = ? and RugWandMateriaal = 'Staal' and (GeldigTot >= ? or GeldigTOT is NULL) and (GeldigVan <= ? or GeldigVan is NULL)", $LB(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, HuidigeDatum, HuidigeDatum))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>