Index: WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml
===================================================================
diff -u -r41585 -r41590
--- WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41585)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41590)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,Logger:vhLib.Logger,PartijAPI:DOM.PARTIJ.PartijAPI</FormalSpec>
 <Private>1</Private>
@@ -28,6 +33,7 @@
 	Set ..LoginParameterBepaler = $$$Inject(LoginParameterBepaler, ##class(WSimpl.Unishop.Login.ParameterBepaler).%New())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New("WS.VHISIE4"))
 	Set ..PartijAPI = $$$Inject(PartijAPI,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -36,6 +42,7 @@
 <FormalSpec>DecrypteerRequest:WS.Vhisie4.Auth.DecrypteerRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Auth.DecrypteerResponse</ReturnType>
 <Implementation><![CDATA[
+			Do ##class(Tools.Wlip).%New(127).String("decrypteer")
 	#Dim Response As WS.Vhisie4.Auth.DecrypteerResponse = ##class(WS.Vhisie4.Auth.DecrypteerResponse).%New()
 	
 	If (DecrypteerRequest.Hostname = "") {
@@ -47,14 +54,23 @@
 	} Else {
 		Try {
 			#dim LoginParameters As WSimpl.Unishop.Login.Parameters = ..LoginParameterBepaler.GeefLoginParameters(DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp)
+			
+			Do ##class(Tools.Wlip).%New(127).String("personalityid = "_LoginParameters.PersonalityID)
+			
+			
 			#dim HandelPersonality As DOM.common.impl.HandelPersonality = ##class(DOM.common.impl.HandelPersonality).%OpenId(LoginParameters.PersonalityID)
+			Do ##class(Tools.Wlip).%New(127).ObjToXML(LoginParameters)
+			Do ##class(Tools.Wlip).%New(127).ObjToXML(HandelPersonality)
 			
 			Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(LoginParameters.PersonalityID)
+			
 			Set Response.PersonalityId = LoginParameters.PersonalityID
 			
 			Set KlantDataBepaler = ##class(DOM.VKP.impl.KlantDataBepaler).%New()
 			#dim KlantData As DOM.common.dto.KlantData = KlantDataBepaler.GeefKlantData(HandelPersonality, LoginParameters.KlantID)
 			
+			Set Response.IsContactGegevensFormulierNodig = (DecrypteerRequest.DataOpt = "")
+			
 			Set Response.KlantId = $Piece(KlantData.ID,"_",2)
 			Set Response.KlantNaam = KlantData.Naam
 			Set Response.GebruikerId = 1
@@ -69,6 +85,7 @@
 			Set Response.IsGeldig = 1
 		} Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(Tools.Wlip).%New(127).String(Exception.ToString())
 			Do ..Logger.Error(..%ClassName()_" Decrypteer","Failed : "_$C(13,10)_Exception.ToString())
 			Set Response.IsGeldig = 0
 		}
@@ -125,7 +142,7 @@
 <Private>1</Private>
 <ReturnType>DOM.common.dto.HandelKlantData</ReturnType>
 <Implementation><![CDATA[
-		/*#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ##class(DOM.VKP.impl.HandelKlantData).%New()
+		#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ##class(DOM.VKP.impl.HandelKlantData).%New()
 		
 		Set HandelKlantData.ID = KlantId
 		Set HandelKlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
@@ -137,16 +154,16 @@
 		Set HandelKlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
 		Do HandelKlantData.Save()
 		
-		Quit HandelKlantData*/
+		Quit HandelKlantData
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarKlant">
 <FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.KlantData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	/*#dim KlantDataBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	Do KlantDataBewaarder.Bewaar(Personality, KlantData)*/
+	#dim KlantDataBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
+	Do KlantDataBewaarder.Bewaar(Personality, KlantData)
 ]]></Implementation>
 </Method>
 </Class>