Index: WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml
===================================================================
diff -u -r62477 -r65304
--- WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml	(.../BestaatStalenRug.cls.xml)	(revision 62477)
+++ WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml	(.../BestaatStalenRug.cls.xml)	(revision 65304)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="StalenRugUtilsTBX">
+<Type>DOM.PM.Maatwerk.TBX.StalenRugUtils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>StalenRugRepositoryLBX:DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository="",StalenRugRepositoryMVX:DOM.PM.Maatwerk.MVX.DATA.StalenRugRepository=""</FormalSpec>
+<FormalSpec>StalenRugRepositoryLBX:DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository="",StalenRugRepositoryMVX:DOM.PM.Maatwerk.MVX.DATA.StalenRugRepository="",StalenRugUtilsTBX:%String</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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -42,8 +48,13 @@
 		Set StalenRugIterator = ..StalenRugRepositoryLBX.ZoekStalenRugViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte)		
 	} ElseIf (Request.LadeVariant = "MVX") {
 		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)
 	}
 	
+	// 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
 	}
@@ -64,6 +75,26 @@
 	Quit Response
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKlantIdVanRequest">
+<FormalSpec>Request:WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantId As %String = ""
+	If $IsObject(Request.Header) {
+		#dim PersonalityId As %String = Request.Header.PersonalityId
+		If (PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()) || (PersonalityId = "") {
+			Set KlantId = Request.Header.KlantId
+		}
+		Else {
+			// TODO : uitbreiden voor MP-handels 
+			;Do ##class(TECH.Exceptions.UnimplementedException).Throw("KlantId bepalen voor personality '"_PersonalityId_"' is nog niet geïmplementeerd (KlantId van Handel = '"_Request.Header.KlantId_"').")
+		}
+	}
+	Quit KlantId
+]]></Implementation>
+</Method>
 </Class>