Index: vhTest/Mock/DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml	(revision 67667)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
+]]></Implementation>
+</Method>
+
+<Method name="Dupliceer">
+<FormalSpec>Data:TECH.Persistent,Deep:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Dupliceer",Data,Deep)
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaObject">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaObject",Data)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAlle">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekAlle")
+]]></Implementation>
+</Method>
+
+<Method name="ZoekStalenRugViaKenmerken">
+<FormalSpec>RugHoogte:%String,LadeKleur:%String,InterneBreedte:%String,KlantId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekStalenRugViaKenmerken",RugHoogte,LadeKleur,InterneBreedte,KlantId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml	(revision 67667)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository">
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.PM.Maatwerk.Calc.HF.impl.TBX.Halffab.HalffabStalenRug</Default>
+</Parameter>
+
+<Method name="ZoekStalenRugViaKenmerken">
+<FormalSpec>RugHoogte:%String,LadeKleur:%String,InterneBreedte:%String,KlantId:%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("RugHoogte = ? and LadeKLeur = ? and InterneBreedte = ? and (GeldigTot >= ? or GeldigTOT is NULL) and (GeldigVan <= ? or GeldigVan is NULL) and Klantbeperking IN (NULL, ?)", $LB(RugHoogte, LadeKleur, InterneBreedte, HuidigeDatum, HuidigeDatum, KlantId))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/Maatwerk/TBX/DATA/StalenRugRepository.cls.xml	(revision 67667)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository</Super>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Dupliceer">
+<FormalSpec>Data:TECH.Persistent,Deep:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaObject">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAlle">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZoekStalenRugViaKenmerken">
+<FormalSpec>RugHoogte:%String,LadeKleur:%String,InterneBreedte:%String,KlantId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml
===================================================================
diff -u -r65305 -r67667
--- WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml	(.../BestaatStalenRug.cls.xml)	(revision 65305)
+++ WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml	(.../BestaatStalenRug.cls.xml)	(revision 67667)
@@ -13,21 +13,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="StalenRugUtilsTBX">
-<Type>DOM.PM.Maatwerk.TBX.StalenRugUtils</Type>
+<Property name="StalenRugRepositoryTBX">
+<Type>DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>StalenRugRepositoryLBX:DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository="",StalenRugRepositoryMVX:DOM.PM.Maatwerk.MVX.DATA.StalenRugRepository="",StalenRugUtilsTBX:%String</FormalSpec>
+<FormalSpec>StalenRugRepositoryLBX:DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository="",StalenRugRepositoryMVX:DOM.PM.Maatwerk.MVX.DATA.StalenRugRepository="",StalenRugRepositoryTBX:DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..StalenRugRepositoryLBX = $$$Inject(StalenRugRepositoryLBX,##class(DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository).%New())
 	Set ..StalenRugRepositoryMVX = $$$Inject(StalenRugRepositoryMVX,##class(DOM.PM.Maatwerk.MVX.DATA.StalenRugRepository).%New())
-	Set ..StalenRugUtilsTBX = $$$Inject(StalenRugUtilsTBX,##class(DOM.PM.Maatwerk.TBX.StalenRugUtils).%New())
+	Set ..StalenRugRepositoryTBX = $$$Inject(StalenRugRepositoryTBX,##class(DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,11 +50,9 @@
 		Set StalenRugIterator = ..StalenRugRepositoryMVX.ZoekStalenRugViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte)
 	} ElseIf (Request.LadeVariant = "TBX") {
 		#dim KlantId As %String = ..GeefKlantIdVanRequest(Request)
-		Set StalenRugIterator = ..StalenRugUtilsTBX.GeefStalenRugIteratorViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, KlantId)
+		Set StalenRugIterator = ..StalenRugRepositoryTBX.ZoekStalenRugViaKenmerken(RugHoogte, LadeKleur, InterneBreedte, KlantId)
 	}
 	
-	// de StalenRugIterator voor TBX bevat items van het type KenmerkDataDefinitie.  Bij de andere LadeVarianten zijn de items Maatwerk.Halffab... objecten.
-	// Voor de call HasNext() is dit niet van belang. 
 	If (StalenRugIterator.HasNext()) {
 		Set BestaatStalenRug = $$$True
 	}
Index: vhUnitTest/WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug/Test.cls.xml
===================================================================
diff -u -r65303 -r67667
--- vhUnitTest/WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug/Test.cls.xml	(.../Test.cls.xml)	(revision 65303)
+++ vhUnitTest/WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug/Test.cls.xml	(.../Test.cls.xml)	(revision 67667)
@@ -56,16 +56,15 @@
 	#dim InterneBreedte As %String = "875"
 	#dim RugHoogte As %String = ##class(DOM.PM.enu.TBXRugHoogte).C()
 	#dim KlantId As %String = "6819"
-		
+	
 	Set LegeIterator = ##class(TECH.StringIterator).%New("")
 	
-	#dim Request As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest = ..GeefRequest(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte)
+	#dim Request As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest = ..GeefRequest("",LadeKleur, InterneBreedte, RugHoogte, KlantId)
 	Set Request.LadeVariant = "TBX"
-	Set Request.Header.KlantId = KlantId
 	
-	Set StalenRugRepository = ##class(vhTest.Mock.DOM.PM.Maatwerk.TBX.StalenRugUtils).%New()
+	Set StalenRugRepository = ##class(vhTest.Mock.DOM.PM.Maatwerk.TBX.DATA.StalenRugRepository).%New()
 
-	Do StalenRugRepository.VerwachtMethodCall("GeefStalenRugIteratorViaKenmerken",LadeHoogte,LadeKleur,InterneBreedte, RugHoogte,KlantId).DanReturn(LegeIterator)
+	Do StalenRugRepository.VerwachtMethodCall("ZoekStalenRugViaKenmerken",RugHoogte,LadeKleur,InterneBreedte, KlantId).DanReturn(LegeIterator)
 	
 	Set StalenRugService = ##class(WSimpl.ECON.Kenmerken.StalenRuggenService.BestaatStalenRug).%New(,,StalenRugRepository)
 	#dim Response As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse = StalenRugService.BestaatStalenRug(Request)
@@ -75,7 +74,7 @@
 </Method>
 
 <Method name="GeefRequest">
-<FormalSpec>LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String</FormalSpec>
+<FormalSpec>LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String,KlantId:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest</ReturnType>
 <Implementation><![CDATA[
@@ -85,6 +84,7 @@
 	Set Request.LadeKleur = LadeKleur
 	Set Request.InterneBreedte = InterneBreedte
 	Set Request.RugHoogte = RugHoogte
+	Set Request.Header.KlantId = KlantId
 	
 	Quit Request
 ]]></Implementation>