Index: WS/Vhisie4/OCC/GeefNaarEconGeconverteerdeKenmerkenResponse.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/OCC/GeefNaarEconGeconverteerdeKenmerkenResponse.cls.xml	(revision 0)
+++ WS/Vhisie4/OCC/GeefNaarEconGeconverteerdeKenmerkenResponse.cls.xml	(revision 59143)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="MeldingenAanGebruiker">
+<Type>TECH.String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="EconKenmerken">
+<Type>%ArrayOfDataTypes</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/OCC/dto/Kenmerk.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/OCC/dto/Kenmerk.cls.xml	(revision 0)
+++ WS/Vhisie4/OCC/dto/Kenmerk.cls.xml	(revision 59143)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.OCC.dto.Kenmerk">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Name">
+<Type>%String</Type>
+</Property>
+
+<Property name="Value">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/OCC/OCCService.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/OCC/OCCService.cls.xml	(revision 0)
+++ WS/Vhisie4/OCC/OCCService.cls.xml	(revision 59143)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.OCC.OCCService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>OCCService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/WS/Vhisie4/OCC</Default>
+</Parameter>
+
+<Property name="HeaderValidator">
+<Type>WSimpl.Vhisie4.HeaderValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SessionManager">
+<Type>WSimpl.Vhisie4.SessionManager</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
+	Set ..SessionManager = ##class(WSimpl.Vhisie4.SessionManager).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaarEconGeconverteerdeKenmerken">
+<FormalSpec>OCCKenmerkenRequest:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(OCCKenmerkenRequest.Header)
+	Do ..SessionManager.RegisterSession(OCCKenmerkenRequest.Header)
+	
+	Set OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService).%New()
+	
+	Quit OCCKenmerkenConverter.GeefNaarEconGeconverteerdeKenmerken(OCCKenmerkenRequest)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/OCC/GeefNaarEconGeconverteerdeKenmerkenRequest.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/OCC/GeefNaarEconGeconverteerdeKenmerkenRequest.cls.xml	(revision 0)
+++ WS/Vhisie4/OCC/GeefNaarEconGeconverteerdeKenmerkenRequest.cls.xml	(revision 59143)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Header">
+<Type>WS.Vhisie4.RequestHeader</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="BlumKenmerken">
+<Type>WS.Vhisie4.OCC.dto.Kenmerk</Type>
+<Collection>list</Collection>
+<Required>1</Required>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>GeefNaarEconGeconverteerdeKenmerkenRequestState</State>
+<StreamLocation>^WS.Vhisie4DBEA.GeefNaarEco38D9S</StreamLocation>
+<Data name="GeefNaarEconGeconverteerdeKenmerkenRequestState">
+<Value name="1">
+<Value>Header</Value>
+</Value>
+<Value name="2">
+<Value>BlumKenmerken</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>