Index: WS/ECON/Kenmerken/dto/BestaatStalenRug.cls.xml
===================================================================
diff -u
--- WS/ECON/Kenmerken/dto/BestaatStalenRug.cls.xml	(revision 0)
+++ WS/ECON/Kenmerken/dto/BestaatStalenRug.cls.xml	(revision 61360)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.ECON.Kenmerken.dto.BestaatStalenRug">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="BestaatStalenRug">
+<Type>%Boolean</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>BestaatStalenRugState</State>
+<StreamLocation>^WS.ECON.Ke6427.BestaatStal3813S</StreamLocation>
+<Data name="BestaatStalenRugState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>BestaatStalenRug</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/ECON/Kenmerken/StalenRug/BestaatStalenRugResponse.cls.xml
===================================================================
diff -u
--- WS/ECON/Kenmerken/StalenRug/BestaatStalenRugResponse.cls.xml	(revision 0)
+++ WS/ECON/Kenmerken/StalenRug/BestaatStalenRugResponse.cls.xml	(revision 61360)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://vhisie.vanhoecke.be/V4</Default>
+</Parameter>
+
+<Parameter name="XMLPREFIX">
+<Default>vh</Default>
+</Parameter>
+
+<Property name="RequestId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="RequestID"/>
+</Property>
+
+<Property name="SessieId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="SessieID"/>
+</Property>
+
+<Property name="GenerationId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GenerationID"/>
+</Property>
+
+<Property name="BestaatStalenRug">
+<Type>%Boolean</Type>
+<Parameter name="XMLITEMNAME" value="BestaatStalenRug"/>
+<Parameter name="XMLNAME" value="BestaatStalenRug"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>BestaatStalenRugResponseState</State>
+<StreamLocation>^WS.ECON.KeC975.BestaatStal239AS</StreamLocation>
+<Data name="BestaatStalenRugResponseState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>RequestId</Value>
+</Value>
+<Value name="2">
+<Value>SessieId</Value>
+</Value>
+<Value name="3">
+<Value>GenerationId</Value>
+</Value>
+<Value name="4">
+<Value>BestaatStalenRug</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/ECON/Kenmerken/StalenRug/RequestHeader.cls.xml
===================================================================
diff -u
--- WS/ECON/Kenmerken/StalenRug/RequestHeader.cls.xml	(revision 0)
+++ WS/ECON/Kenmerken/StalenRug/RequestHeader.cls.xml	(revision 61360)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.ECON.Kenmerken.StalenRug.RequestHeader">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="RequestId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="RequestID"/>
+</Property>
+
+<Property name="SessieId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="SessieID"/>
+</Property>
+
+<Property name="GebruikerId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GebruikerID"/>
+</Property>
+
+<Property name="GebruikerIp">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GebruikerIP"/>
+</Property>
+
+<Property name="LadeHoogte">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="LadeHoogte"/>
+</Property>
+
+<Property name="LadeKleur">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="LadeKleur"/>
+</Property>
+
+<Property name="LadeVariant">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="LadeVariant"/>
+</Property>
+
+<Property name="InterneBreedte">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="InterneBreedte"/>
+</Property>
+
+<Property name="RugHoogte">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="RugHoogte"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>RequestHeaderState</State>
+<StreamLocation>^WS.ECON.KenmC975.RequestHeaderS</StreamLocation>
+<Data name="RequestHeaderState">
+<Value name="1">
+<Value>RequestId</Value>
+</Value>
+<Value name="2">
+<Value>SessieId</Value>
+</Value>
+<Value name="3">
+<Value>GebruikerId</Value>
+</Value>
+<Value name="4">
+<Value>GebruikerIp</Value>
+</Value>
+<Value name="5">
+<Value>LadeHoogte</Value>
+</Value>
+<Value name="6">
+<Value>LadeKleur</Value>
+</Value>
+<Value name="7">
+<Value>InterneBreedte</Value>
+</Value>
+<Value name="8">
+<Value>RugHoogte</Value>
+</Value>
+<Value name="9">
+<Value>LadeVariant</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/ECON/Kenmerken/StalenRug/BestaatStalenRugRequest.cls.xml
===================================================================
diff -u
--- WS/ECON/Kenmerken/StalenRug/BestaatStalenRugRequest.cls.xml	(revision 0)
+++ WS/ECON/Kenmerken/StalenRug/BestaatStalenRugRequest.cls.xml	(revision 61360)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Header">
+<Type>WS.ECON.Kenmerken.StalenRug.RequestHeader</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="GenerationId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="GenerationID"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>BestaatStalenRugRequestState</State>
+<StreamLocation>^WS.ECON.KeC975.BestaatStal460FS</StreamLocation>
+<Data name="BestaatStalenRugRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Header</Value>
+</Value>
+<Value name="2">
+<Value>GenerationId</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/ECON/Kenmerken/Service.cls.xml
===================================================================
diff -u -r51558 -r61360
--- WS/ECON/Kenmerken/Service.cls.xml	(.../Service.cls.xml)	(revision 51558)
+++ WS/ECON/Kenmerken/Service.cls.xml	(.../Service.cls.xml)	(revision 61360)
@@ -61,6 +61,22 @@
 	Quit Response
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatStalenRug">
+<FormalSpec>Request:WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest</FormalSpec>
+<ReturnType>WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
+	Do ..SessionManager.RegisterSession(Request.Header)
+	
+	#dim Response As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse
+	
+	Set Response = ##class(WSimpl.ECON.Kenmerken.StalenRuggenService.BestaatStalenRug).%New().BestaatStalenRug(Request)
+	
+	Quit Response
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml
===================================================================
diff -u
--- WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml	(revision 0)
+++ WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml	(revision 61360)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.ECON.Kenmerken.StalenRuggenService.BestaatStalenRug">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="StalenRugRepositoryLBX">
+<Type>DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>StalenRugRepository:DOM.PM.Maatwerk.LBX.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())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BestaatStalenRug">
+<FormalSpec>Request:WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest</FormalSpec>
+<ReturnType>WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim BestaatStalenRug As %Boolean = $$$False
+	
+	#dim LadeHoogte As TECH.String = Request.Header.LadeHoogte
+	#dim LadeKleur As TECH.String = Request.Header.LadeKleur
+	#dim InterneBreedte As TECH.String = Request.Header.InterneBreedte
+	#dim RugHoogte As TECH.String = Request.Header.RugHoogte
+	
+	If (Request.Header.LadeVariant = "LBX") {
+		#dim StalenRugIterator As TECH.Iterator = ..StalenRugRepositoryLBX.ZoekStalenRugViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte)
+		If (StalenRugIterator.HasNext()) {
+			Set BestaatStalenRug = $$$True
+		}
+	}
+	
+	Quit ..MaakResponse(BestaatStalenRug)
+]]></Implementation>
+</Method>
+
+<Method name="MaakResponse">
+<FormalSpec>BestaatStalenRug:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Response = ##class(WS.ECON.Kenmerken.dto.BestaatStalenRug).%New()
+	Set Response.BestaatStalenRug = BestaatStalenRug
+	
+	Quit Response
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml	(revision 61360)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository">
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.PM.Maatwerk.Calc.HF.impl.LBX.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>