Index: WS/Vhisie4/Auth/HandelAuthenticatieService.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/Auth/HandelAuthenticatieService.cls.xml	(revision 0)
+++ WS/Vhisie4/Auth/HandelAuthenticatieService.cls.xml	(revision 40930)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.Auth.HandelAuthenticatieService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>HandelAuthenticatieService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/EC/Vhisie4/HandelAuthenticatieService</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Decrypteer">
+<Description>
+Vhisie4-Intracto-kant wilt 1 webservice die voor alle cases geldig is, bij toekomen op de webshop, in handels-modus.</Description>
+<FormalSpec>DecrypteerRequest:WS.Vhisie4.Auth.DecrypteerRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.Auth.DecrypteerResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#Dim Response As WS.Vhisie4.Auth.DecrypteerResponse = ##class(WS.Vhisie4.Auth.DecrypteerResponse).%New()
+	
+	If ("" = DecrypteerRequest.Hostname) {
+		Set Response.IsGeldig = 0
+	} ElseIf ("" = DecrypteerRequest.REF) {
+		Set Response.IsGeldig = 0
+	} ElseIf (")àç!HEIN)àç!" = DecrypteerRequest.REF) {
+		If ("" = DecrypteerRequest.DATAOPT) {
+			Set Response.IsGeldig = 0
+		} ElseIf ("ongeldigedataopt" = DecrypteerRequest.DATAOPT) {
+			Set Response.IsGeldig = 0
+		} Else {
+			Set Response.IsGeldig = 1
+			Set Response.GebruikerId = "1"
+			Set Response.GebruikerNaam = ""
+			Set Response.IsContactGegevensFormulierNodig = 0
+			Set Response.KlantId = "hein_" _ DecrypteerRequest.DATAOPT
+			Set Response.KlantNaam =  "hein_" _ DecrypteerRequest.DATAOPT
+			Set Response.PersonalityId = 11
+			Set Response.Taal = "D"
+			Do Response.ToegelatenLadetypes.Insert("LBX")
+			Do Response.ToegelatenLadetypes.Insert("TAX")
+			Do Response.ToegelatenLadetypes.Insert("TBX")
+		}
+	} ElseIf (")àç!DU-PONT)àç!" = DecrypteerRequest.REF) {
+		If ("" = DecrypteerRequest.DATAOPT) {
+			Set Response.IsGeldig = 1
+			Set Response.IsContactGegevensFormulierNodig = 1
+		} ElseIf ("ongeldigedataopt" = DecrypteerRequest.DATAOPT) {
+			Set Response.IsGeldig = 0
+		} Else {
+			Set Response.IsGeldig = 1
+			Set Response.GebruikerId = "1"
+			Set Response.GebruikerNaam = ""
+			Set Response.IsContactGegevensFormulierNodig = 0
+			Set Response.KlantId = "dupont_" _ DecrypteerRequest.DATAOPT
+			Set Response.KlantNaam =  "dupont_" _ DecrypteerRequest.DATAOPT
+			Set Response.PersonalityId = 4
+			Set Response.Taal = "N"
+			Do Response.ToegelatenLadetypes.Insert("LBX")
+		}
+	} Else {
+		Set Response.IsGeldig = 0
+	}
+
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerContactGegevens">
+<Description>
+In anonieme modus, geeft de Vhisie4-Intracto-kant hiermee de contactgegevens aan Caché door. Caché bewaart die, en geeft zijn klantId terug.</Description>
+<FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#Dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensResponse).%New()
+	
+	If ("" = RegistreerContactGegevensRequest.REF) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("REF is verplicht"))
+	} ElseIf ("" = RegistreerContactGegevensRequest.Naam) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Naam is verplicht"))
+	} ElseIf ("" = RegistreerContactGegevensRequest.EmailAdres) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("EmailAdres is verplicht"))
+	} Else {
+		Set Response.GebruikerId = "1"
+		Set Response.GebruikerNaam = ""
+		Set Response.KlantId = "dupont_" _ RegistreerContactGegevensRequest.Naam
+		Set Response.KlantNaam = "dupont_" _ RegistreerContactGegevensRequest.Naam
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml	(revision 0)
+++ WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml	(revision 40930)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.Auth.RegistreerContactGegevensRequest">
+<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="REF">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="StraatEnNr">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Postcode">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Gemeente">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="TelefoonNummer">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="FaxNummer">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="EmailAdres">
+<Type>TECH.String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>RegistreerContactGegevensRequestState</State>
+<StreamLocation>^WS.Vhisie4B7AF.RegistreerC8630S</StreamLocation>
+<Data name="RegistreerContactGegevensRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>REF</Value>
+</Value>
+<Value name="2">
+<Value>DATAOPT</Value>
+</Value>
+<Value name="3">
+<Value>Hostname</Value>
+</Value>
+<Value name="4">
+<Value>Naam</Value>
+</Value>
+<Value name="5">
+<Value>StraatEnNr</Value>
+</Value>
+<Value name="6">
+<Value>Postcode</Value>
+</Value>
+<Value name="7">
+<Value>Gemeente</Value>
+</Value>
+<Value name="8">
+<Value>TelefoonNummer</Value>
+</Value>
+<Value name="9">
+<Value>FaxNummer</Value>
+</Value>
+<Value name="10">
+<Value>EmailAdres</Value>
+</Value>
+<Value name="11">
+<Value>Header</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/Auth/RegistreerContactGegevensResponse.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/Auth/RegistreerContactGegevensResponse.cls.xml	(revision 0)
+++ WS/Vhisie4/Auth/RegistreerContactGegevensResponse.cls.xml	(revision 40930)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.Auth.RegistreerContactGegevensResponse">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="KlantId">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="KlantNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="GebruikerId">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="GebruikerNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>RegistreerContactGegevensResponseState</State>
+<StreamLocation>^WS.Vhisie4B7AF.RegistreerC331AS</StreamLocation>
+<Data name="RegistreerContactGegevensResponseState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>IsGeldig</Value>
+</Value>
+<Value name="2">
+<Value>IsContactGegevensFormulierNodig</Value>
+</Value>
+<Value name="3">
+<Value>PersonalityId</Value>
+</Value>
+<Value name="4">
+<Value>KlantId</Value>
+</Value>
+<Value name="5">
+<Value>KlantNaam</Value>
+</Value>
+<Value name="6">
+<Value>GebruikerId</Value>
+</Value>
+<Value name="7">
+<Value>GebruikerNaam</Value>
+</Value>
+<Value name="8">
+<Value>Taal</Value>
+</Value>
+<Value name="9">
+<Value>ToegelatenLadetypes</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Auth.HandelAuthenticatieService.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Auth.HandelAuthenticatieService.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Auth.HandelAuthenticatieService.txt	(revision 40930)
@@ -0,0 +1,155 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<definitions xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:s0="http://www.vanhoecke.be/EC/Vhisie4/HandelAuthenticatieService" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" targetNamespace="http://www.vanhoecke.be/EC/Vhisie4/HandelAuthenticatieService">
+    <types>
+        <s:schema elementFormDefault="qualified" targetNamespace="http://www.vanhoecke.be/EC/Vhisie4/HandelAuthenticatieService">
+            <s:element name="Decrypteer">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="DecrypteerRequest" type="s0:DecrypteerRequest"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="DecrypteerRequest">
+                <s:sequence>
+                    <s:element name="Header" type="s0:RequestHeader"/>
+                    <s:element minOccurs="0" name="REF" type="s0:String"/>
+                    <s:element minOccurs="0" name="DATAOPT" type="s0:String"/>
+                    <s:element minOccurs="0" name="Hostname" type="s0:String"/>
+                </s:sequence>
+            </s:complexType>
+            <s:complexType name="RequestHeader">
+                <s:sequence>
+                    <s:element name="RequestID" type="s0:String"/>
+                    <s:element name="SessieID" type="s0:String"/>
+                    <s:element name="GebruikerID" type="s0:String"/>
+                    <s:element name="GebruikerIP" type="s0:String"/>
+                    <s:element name="KlantID" type="s0:String"/>
+                    <s:element minOccurs="0" name="PersonalityID" type="s0:String"/>
+                    <s:element name="Taal">
+                        <s:simpleType>
+                            <s:restriction base="s0:String">
+                                <s:enumeration value="N"/>
+                                <s:enumeration value="F"/>
+                                <s:enumeration value="E"/>
+                                <s:enumeration value="D"/>
+                            </s:restriction>
+                        </s:simpleType>
+                    </s:element>
+                </s:sequence>
+            </s:complexType>
+            <s:simpleType name="String">
+                <s:restriction base="s:string">
+                    <s:maxLength value="32768"/>
+                </s:restriction>
+            </s:simpleType>
+            <s:element name="DecrypteerResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="DecrypteerResult" type="s0:DecrypteerResponse"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="DecrypteerResponse">
+                <s:sequence>
+                    <s:element minOccurs="0" name="IsGeldig" type="s:boolean"/>
+                    <s:element minOccurs="0" name="IsContactGegevensFormulierNodig" type="s:boolean"/>
+                    <s:element minOccurs="0" name="PersonalityId" type="s0:String"/>
+                    <s:element minOccurs="0" name="KlantId" type="s0:String"/>
+                    <s:element minOccurs="0" name="KlantNaam" type="s0:String"/>
+                    <s:element minOccurs="0" name="GebruikerId" type="s0:String"/>
+                    <s:element minOccurs="0" name="GebruikerNaam" type="s0:String"/>
+                    <s:element minOccurs="0" name="Taal" type="s0:String"/>
+                    <s:element minOccurs="0" name="ToegelatenLadetypes" type="s0:ArrayOfToegelatenLadetypesItemString"/>
+                </s:sequence>
+            </s:complexType>
+            <s:complexType name="ArrayOfToegelatenLadetypesItemString">
+                <s:sequence>
+                    <s:element maxOccurs="unbounded" minOccurs="0" name="ToegelatenLadetypesItem" nillable="true" type="s:string"/>
+                </s:sequence>
+            </s:complexType>
+            <s:element name="RegistreerContactGegevens">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="RegistreerContactGegevensRequest" type="s0:RegistreerContactGegevensRequest"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="RegistreerContactGegevensRequest">
+                <s:sequence>
+                    <s:element name="Header" type="s0:RequestHeader"/>
+                    <s:element minOccurs="0" name="REF" type="s0:String"/>
+                    <s:element minOccurs="0" name="Naam" type="s0:String"/>
+                    <s:element minOccurs="0" name="StraatEnNr" type="s0:String"/>
+                    <s:element minOccurs="0" name="Postcode" type="s0:String"/>
+                    <s:element minOccurs="0" name="Gemeente" type="s0:String"/>
+                    <s:element minOccurs="0" name="TelefoonNummer" type="s0:String"/>
+                    <s:element minOccurs="0" name="FaxNummer" type="s0:String"/>
+                    <s:element minOccurs="0" name="EmailAdres" type="s0:String"/>
+                </s:sequence>
+            </s:complexType>
+            <s:element name="RegistreerContactGegevensResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="RegistreerContactGegevensResult" type="s0:RegistreerContactGegevensResponse"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="RegistreerContactGegevensResponse">
+                <s:sequence>
+                    <s:element minOccurs="0" name="KlantId" type="s0:String"/>
+                    <s:element minOccurs="0" name="KlantNaam" type="s0:String"/>
+                    <s:element minOccurs="0" name="GebruikerId" type="s0:String"/>
+                    <s:element minOccurs="0" name="GebruikerNaam" type="s0:String"/>
+                </s:sequence>
+            </s:complexType>
+        </s:schema>
+    </types>
+    <message name="DecrypteerSoapIn">
+        <part name="parameters" element="s0:Decrypteer"/>
+    </message>
+    <message name="DecrypteerSoapOut">
+        <part name="parameters" element="s0:DecrypteerResponse"/>
+    </message>
+    <message name="RegistreerContactGegevensSoapIn">
+        <part name="parameters" element="s0:RegistreerContactGegevens"/>
+    </message>
+    <message name="RegistreerContactGegevensSoapOut">
+        <part name="parameters" element="s0:RegistreerContactGegevensResponse"/>
+    </message>
+    <portType name="HandelAuthenticatieServiceSoap">
+        <operation name="Decrypteer">
+            <input message="s0:DecrypteerSoapIn"/>
+            <output message="s0:DecrypteerSoapOut"/>
+        </operation>
+        <operation name="RegistreerContactGegevens">
+            <input message="s0:RegistreerContactGegevensSoapIn"/>
+            <output message="s0:RegistreerContactGegevensSoapOut"/>
+        </operation>
+    </portType>
+    <binding name="HandelAuthenticatieServiceSoap" type="s0:HandelAuthenticatieServiceSoap">
+        <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/>
+        <operation name="Decrypteer">
+            <soap:operation soapAction="http://www.vanhoecke.be/EC/Vhisie4/HandelAuthenticatieService/WS.Vhisie4.Auth.HandelAuthenticatieService.Decrypteer" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
+        <operation name="RegistreerContactGegevens">
+            <soap:operation soapAction="http://www.vanhoecke.be/EC/Vhisie4/HandelAuthenticatieService/WS.Vhisie4.Auth.HandelAuthenticatieService.RegistreerContactGegevens" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
+    </binding>
+    <service name="HandelAuthenticatieService">
+        <port name="HandelAuthenticatieServiceSoap" binding="s0:HandelAuthenticatieServiceSoap">
+            <soap:address location="http://localhost/csp/[namespace]/WS.Vhisie4.Auth.HandelAuthenticatieService.cls"/>
+        </port>
+    </service>
+</definitions>
Index: WS/Vhisie4/Auth/DecrypteerResponse.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/Auth/DecrypteerResponse.cls.xml	(revision 0)
+++ WS/Vhisie4/Auth/DecrypteerResponse.cls.xml	(revision 40930)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.Auth.DecrypteerResponse">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="IsGeldig">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="IsContactGegevensFormulierNodig">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="PersonalityId">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="KlantNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="GebruikerId">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="GebruikerNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="ToegelatenLadetypes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/Auth/DecrypteerRequest.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/Auth/DecrypteerRequest.cls.xml	(revision 0)
+++ WS/Vhisie4/Auth/DecrypteerRequest.cls.xml	(revision 40930)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.Auth.DecrypteerRequest">
+<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="REF">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="DATAOPT">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Hostname">
+<Type>TECH.String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>DecrypteerRequestState</State>
+<StreamLocation>^WS.Vhisie4B7AF.DecrypteerR7CBES</StreamLocation>
+<Data name="DecrypteerRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>REF</Value>
+</Value>
+<Value name="2">
+<Value>DATAOPT</Value>
+</Value>
+<Value name="3">
+<Value>Hostname</Value>
+</Value>
+<Value name="4">
+<Value>Header</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>