Index: DOM/common/dto/DaroKlantData.cls.xml
===================================================================
diff -u
--- DOM/common/dto/DaroKlantData.cls.xml	(revision 0)
+++ DOM/common/dto/DaroKlantData.cls.xml	(revision 32194)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.dto.DaroKlantData">
+<Super>DOM.common.dto.KlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Webshop.Login/TestDaro/TestDaro_Sessie.xml
===================================================================
diff -u -r32191 -r32194
--- vhTestFiles/IntegratieTests/Webshop.Login/TestDaro/TestDaro_Sessie.xml	(.../TestDaro_Sessie.xml)	(revision 32191)
+++ vhTestFiles/IntegratieTests/Webshop.Login/TestDaro/TestDaro_Sessie.xml	(.../TestDaro_Sessie.xml)	(revision 32194)
@@ -7,6 +7,7 @@
       <Code>daro_DummyKlantID_DummyGebruikerID</Code>
       <KlantData>
         <ID>daro_DummyKlantID</ID>
+        <Naam>DummyKlantNaamDaro</Naam>
       </KlantData>
     </GebruikerData>
   </VhintraSessie>
Index: vhTestFiles/IntegratieTests/Webshop.Login/TestDaro/TestDaro_GepersisteerdeSessie.xml
===================================================================
diff -u -r32191 -r32194
--- vhTestFiles/IntegratieTests/Webshop.Login/TestDaro/TestDaro_GepersisteerdeSessie.xml	(.../TestDaro_GepersisteerdeSessie.xml)	(revision 32191)
+++ vhTestFiles/IntegratieTests/Webshop.Login/TestDaro/TestDaro_GepersisteerdeSessie.xml	(.../TestDaro_GepersisteerdeSessie.xml)	(revision 32194)
@@ -1,7 +1,7 @@
 AanmaakTijdstip = 2014-11-01 09:15:00
 GebruikerID = daro_DummyKlantID_DummyGebruikerID
 KlantID = daro_DummyKlantID
-KlantNaam = ""
+KlantNaam = DummyKlantNaamDaro
 PersonalityID = 10
 SessieSleutel = NIET VAN TOEPASSING
 Taal = E
Index: DOM/VKP/impl/DaroKlantData.cls.xml
===================================================================
diff -u -r29059 -r32194
--- DOM/VKP/impl/DaroKlantData.cls.xml	(.../DaroKlantData.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DaroKlantData.cls.xml	(.../DaroKlantData.cls.xml)	(revision 32194)
@@ -3,10 +3,15 @@
 <Class name="DOM.VKP.impl.DaroKlantData">
 <Super>DOM.VKP.impl.HandelKlantData</Super>
 
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>
 </Class>
 
 
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
 </Export>
Index: APPS/EC/impl/WebshopSessieGenerator/LoginParametersNaarSessieConverter.cls.xml
===================================================================
diff -u -r29059 -r32194
--- APPS/EC/impl/WebshopSessieGenerator/LoginParametersNaarSessieConverter.cls.xml	(.../LoginParametersNaarSessieConverter.cls.xml)	(revision 29059)
+++ APPS/EC/impl/WebshopSessieGenerator/LoginParametersNaarSessieConverter.cls.xml	(.../LoginParametersNaarSessieConverter.cls.xml)	(revision 32194)
@@ -96,7 +96,10 @@
 
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..VerwerkHandelZonderOfMetDATAOPT(DaroPersonality)
+<Implementation><![CDATA[
+	Set ..WebshopSessie = ##class(APPS.EC.impl.DaroWebshopSessie).%New(..LoginParameters.GebruikerID)
+	Do ..BewaarKlant(DaroPersonality,..GeefDaroKlantData())
+	Do ..WebshopSessie.ZetKlant(..LoginParameters.KlantID,..LoginParameters.KlantNaam)
 ]]></Implementation>
 </Method>
 
@@ -181,6 +184,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDaroKlantData">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.common.dto.HandelKlantData</ReturnType>
+<Implementation><![CDATA[	Quit ..VulInKlantDataMetHandelVerificatie(##class(DOM.common.dto.DaroKlantData).%New())
+]]></Implementation>
+</Method>
+
 <Method name="VulInKlantDataMetHandelVerificatie">
 <FormalSpec>KlantData:DOM.common.dto.HandelKlantData</FormalSpec>
 <Private>1</Private>
Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r29059 -r32194
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 32194)
@@ -74,6 +74,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BewaarDaroKlantData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HandelKlantDataDto As DOM.common.dto.DaroKlantData = ..KlantDataDto
+	#dim KlantData As DOM.VKP.impl.DaroKlantData = ..KlantData
+	Set KlantData.EmailAdres = HandelKlantDataDto.EmailAdres
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
 <Implementation><![CDATA[
@@ -189,7 +198,7 @@
 		Set ..KlantData = ##class(DOM.VKP.impl.DaroKlantData).%New()
 	}
 	
-	Do ..BewaarHandelKlantData()
+	Do ..BewaarDaroKlantData()
 ]]></Implementation>
 </Method>
 </Class>