Index: WS/ECON/Kenmerken/StalenRug/GeefLengteProductResponse.cls.xml
===================================================================
diff -u
--- WS/ECON/Kenmerken/StalenRug/GeefLengteProductResponse.cls.xml	(revision 0)
+++ WS/ECON/Kenmerken/StalenRug/GeefLengteProductResponse.cls.xml	(revision 67973)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.ECON.Kenmerken.StalenRug.GeefLengteProductResponse">
+<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="LengteProduct">
+<Type>%Boolean</Type>
+<Parameter name="XMLNAME" value="LengteProduct"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>GeefLengteProductResponseState</State>
+<StreamLocation>^WS.ECON.KeC975.GeefLengtePF102S</StreamLocation>
+<Data name="GeefLengteProductResponseState">
+<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>LengteProduct</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/ECON/Kenmerken/Product/GeefLengteProductRequest.cls.xml
===================================================================
diff -u
--- WS/ECON/Kenmerken/Product/GeefLengteProductRequest.cls.xml	(revision 0)
+++ WS/ECON/Kenmerken/Product/GeefLengteProductRequest.cls.xml	(revision 67973)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.ECON.Kenmerken.Product.GeefLengteProductRequest">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Header">
+<Type>WS.ECON.Kenmerken.RequestHeader</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="GenerationId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="GenerationID"/>
+</Property>
+
+<Property name="Identnummer">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="Identnummer"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>GeefLengteProductRequestState</State>
+<StreamLocation>^WS.ECON.KeF318.GeefLengtePDF37S</StreamLocation>
+<Data name="GeefLengteProductRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Header</Value>
+</Value>
+<Value name="2">
+<Value>GenerationId</Value>
+</Value>
+<Value name="3">
+<Value>Identnummer</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/ECON/Kenmerken/ProductService/GeefLengteProduct.cls.xml
===================================================================
diff -u
--- WSimpl/ECON/Kenmerken/ProductService/GeefLengteProduct.cls.xml	(revision 0)
+++ WSimpl/ECON/Kenmerken/ProductService/GeefLengteProduct.cls.xml	(revision 67973)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.ECON.Kenmerken.ProductService.GeefLengteProduct">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.impl.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLengteProduct">
+<FormalSpec>Request:WS.ECON.Kenmerken.Product.GeefLengteProductRequest</FormalSpec>
+<ReturnType>WS.ECON.Kenmerken.StalenRug.GeefLengteProductResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As %Integer = ..ProductAPI.GeefProductIdVoorIdentNummer(Request.Identnummer)
+	#dim LengteProduct As %Integer = $Piece(^KPR(ProductId, 15), "\", 7)
+	
+	Quit ..MaakResponse(LengteProduct)
+]]></Implementation>
+</Method>
+
+<Method name="MaakResponse">
+<FormalSpec>LengteProduct:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.ECON.Kenmerken.StalenRug.GeefLengteProductResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.ECON.Kenmerken.StalenRug.GeefLengteProductResponse).%New()
+	Set Response.LengteProduct = LengteProduct
+	
+	Quit Response
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/ECON/Kenmerken/Service.cls.xml
===================================================================
diff -u -r66659 -r67973
--- WS/ECON/Kenmerken/Service.cls.xml	(.../Service.cls.xml)	(revision 66659)
+++ WS/ECON/Kenmerken/Service.cls.xml	(.../Service.cls.xml)	(revision 67973)
@@ -77,6 +77,22 @@
 	Quit Response
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLengteProduct">
+<FormalSpec>Request:WS.ECON.Kenmerken.Product.GeefLengteProductRequest</FormalSpec>
+<ReturnType>WS.ECON.Kenmerken.StalenRug.GeefLengteProductResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	//Do ..HeaderValidator.ValidateHeader(Request.Header)
+	//Do ..SessionManager.RegisterSession(Request.Header)
+	
+	#dim Response As WS.ECON.Kenmerken.StalenRug.GeefLengteProductResponse
+	
+	Set Response = ##class(WSimpl.ECON.Kenmerken.ProductService.GeefLengteProduct).%New().GeefLengteProduct(Request)
+	
+	Quit Response
+]]></Implementation>
+</Method>
 </Class>