Index: vhUnitTest/APPS/VKP/TestVerkoopService.cls.xml
===================================================================
diff -u -r33393 -r33403
--- vhUnitTest/APPS/VKP/TestVerkoopService.cls.xml	(.../TestVerkoopService.cls.xml)	(revision 33393)
+++ vhUnitTest/APPS/VKP/TestVerkoopService.cls.xml	(.../TestVerkoopService.cls.xml)	(revision 33403)
@@ -3,14 +3,26 @@
 <Class name="vhUnitTest.APPS.VKP.TestVerkoopService">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="Winkelkar">
+<Type>APPS.EC.Winkelkar.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="WinkelkarService">
 <Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="VerkoopService">
+<Type>APPS.VKP.VerkoopService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
 	
 	#dim VanHoeckeWebshopSessie As APPS.EC.impl.VanHoeckeWebshopSessie = ##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString)
 	#dim WebshopSessionServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
@@ -20,26 +32,47 @@
 	Do ECommerceAPIStub.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceStub)
 	
 	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
-	
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
+	Set ..VerkoopService = ##class(APPS.VKP.VerkoopService).%New()
+	Set ..Winkelkar = ..MaakWinkelkar()
 ]]></Implementation>
 </Method>
 
 <Method name="TestEvalueerMaatwerkIngaveNieuweLijn">
 <Implementation><![CDATA[
-	#dim VerkoopService As APPS.VKP.VerkoopService = ##class(APPS.VKP.VerkoopService).%New()
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..MaakWinkelkar()
+	Do $$$AssertEquals(..Winkelkar.Lijnen.Count(), 0)
 		
-	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),0)
-		
 	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-	#dim MaatwerkIngaveEvaluatie As APPS.VKP.dto.MaatwerkIngaveEvaluatie = VerkoopService.EvalueerMaatwerkIngave(Winkelkar.WinkelkarID,IngegevenKenmerken)
+	#dim MaatwerkIngaveEvaluatie As APPS.VKP.dto.MaatwerkIngaveEvaluatie = ..VerkoopService.EvalueerMaatwerkIngave(..Winkelkar.WinkelkarID, IngegevenKenmerken)
+	
+	Do ..AssertMaatwerkIngaveEvaluatie(MaatwerkIngaveEvaluatie)
+]]></Implementation>
+</Method>
+
+<Method name="TestEvalueerMaatwerkIngaveWijzigLijn">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(..Winkelkar.WinkelkarID, "GroepNaam", IngegevenKenmerken, 2)
+	
+	Set ..Winkelkar = ..WinkelkarService.GeefWinkelkar(..Winkelkar.WinkelkarID)
+	
+	Do $$$AssertEquals(..Winkelkar.Lijnen.Count(), 1)
+	
+	#dim MaatwerkIngaveEvaluatie As APPS.VKP.dto.MaatwerkIngaveEvaluatie = ..VerkoopService.EvalueerMaatwerkIngave(..Winkelkar.WinkelkarID, IngegevenKenmerken, LijnID)
+	
+	Do ..AssertMaatwerkIngaveEvaluatie(MaatwerkIngaveEvaluatie)
+]]></Implementation>
+</Method>
+
+<Method name="AssertMaatwerkIngaveEvaluatie">
+<FormalSpec>MaatwerkIngaveEvaluatie:APPS.VKP.dto.MaatwerkIngaveEvaluatie,VerwachteWinkelkarID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie)) {
+		Do $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie.KenmerkMogelijkheden))
 		
-	If $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie)){
-		Do $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie.KenmerkMogelijkheden))			
 		If $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie.Winkelkar)) {
-			Do $$$AssertEquals(MaatwerkIngaveEvaluatie.Winkelkar.WinkelkarID,Winkelkar.WinkelkarID)	
-			Do $$$AssertEquals(MaatwerkIngaveEvaluatie.Winkelkar.Lijnen.Count(),1)
+			Do $$$AssertEquals(MaatwerkIngaveEvaluatie.Winkelkar.WinkelkarID, ..Winkelkar.WinkelkarID)
+			Do $$$AssertEquals(MaatwerkIngaveEvaluatie.Winkelkar.Lijnen.Count(), 1)
 		}
 	}
 ]]></Implementation>
@@ -51,33 +84,8 @@
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).TestklantVanHoecke()
 	#dim PersonalityID As %String = ##class(DOM.common.enu.Personality).VanHoecke()
-	quit ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(),KlantID,PersonalityID)
-]]></Implementation>
-</Method>
-
-<Method name="TestEvalueerMaatwerkIngaveWijzigLijn">
-<Implementation><![CDATA[
-	Set VerkoopService = ##class(APPS.VKP.VerkoopService).%New()
 	
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..MaakWinkelkar()
-	
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(Winkelkar.WinkelkarID, "GroepNaam", IngegevenKenmerken, 2)
-	Set Winkelkar = ..WinkelkarService.GeefWinkelkar(Winkelkar.WinkelkarID)
-	
-	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),1)
-	
-	#dim MaatwerkIngaveEvaluatie As APPS.VKP.dto.MaatwerkIngaveEvaluatie = VerkoopService.EvalueerMaatwerkIngave(Winkelkar.WinkelkarID,IngegevenKenmerken,LijnID)
-	
-	If $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie))
-	{
-		Do $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie.KenmerkMogelijkheden))			
-		If $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie.Winkelkar))
-		{
-			Do $$$AssertEquals(MaatwerkIngaveEvaluatie.Winkelkar.WinkelkarID,Winkelkar.WinkelkarID)	
-			Do $$$AssertEquals(MaatwerkIngaveEvaluatie.Winkelkar.Lijnen.Count(),1)
-		}
-	}
+	Quit ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), KlantID, PersonalityID)
 ]]></Implementation>
 </Method>
 
@@ -86,8 +94,10 @@
 <ReturnType>APPS.common.dto.Applicatie</ReturnType>
 <Implementation><![CDATA[
 	#dim Applicatie As APPS.common.dto.Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	
 	Set Applicatie.Naam = "UnitTest"
 	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()	
+	
 	Quit Applicatie
 ]]></Implementation>
 </Method>
Index: APPS/EC/impl/WebshopSessionService.cls.xml
===================================================================
diff -u -r33393 -r33403
--- APPS/EC/impl/WebshopSessionService.cls.xml	(.../WebshopSessionService.cls.xml)	(revision 33393)
+++ APPS/EC/impl/WebshopSessionService.cls.xml	(.../WebshopSessionService.cls.xml)	(revision 33403)
@@ -8,9 +8,9 @@
 <ReturnType>APPS.EC.dto.WebshopSessie</ReturnType>
 <Implementation><![CDATA[
 	#dim LoginValidator As APPS.EC.WebshopLoginValidator = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopLoginValidator()
-	do LoginValidator.Valideer(LoginParameters)
-	#dim WebshopSessieGenerator As APPS.EC.WebshopSessieGenerator = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessieGenerator()
+	Do LoginValidator.Valideer(LoginParameters)
 	
+	#dim WebshopSessieGenerator As APPS.EC.WebshopSessieGenerator = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessieGenerator()
 	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = WebshopSessieGenerator.GenereerWebshopSessie(LoginParameters)
 	
 	Quit WebshopSessie
@@ -34,18 +34,14 @@
 <Method name="GeefPersonalityIDVoorDomeinVerwerker">
 <FormalSpec>DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[
-	Set PersonalityVerwerkerLinker = ##class(APPS.EC.impl.WebshopSessionService.impl.PersonalityEnVerwerkerLinker).%New()
-	Quit PersonalityVerwerkerLinker.GeefPersonalityIDVoorDomeinVerwerker(DomeinVerwerker)
+<Implementation><![CDATA[	Quit ##class(APPS.EC.impl.WebshopSessionService.impl.PersonalityEnVerwerkerLinker).%New().GeefPersonalityIDVoorDomeinVerwerker(DomeinVerwerker)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDomeinVerwerkerVoorPersonality">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
-<Implementation><![CDATA[
-	#dim DomeinVerwerker As APPS.EC.enu.WebShopVerwerker = ##class(APPS.EC.impl.DomeinVerwerkerBepaler).%New().GeefDomeinVerwerker(PersonalityID)
-	Quit DomeinVerwerker
+<Implementation><![CDATA[	Quit ##class(APPS.EC.impl.DomeinVerwerkerBepaler).%New().GeefDomeinVerwerker(PersonalityID)
 ]]></Implementation>
 </Method>
 
@@ -54,17 +50,15 @@
 <Implementation><![CDATA[
 	#dim SessieID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()
 	#dim WebshopModus As APPS.EC.enu.WebshopModus = ##class(APPS.EC.impl.WebshopSessie).OpenId(SessieID).GeefWebshopModus()	
+	
 	Quit WebshopModus
 ]]></Implementation>
 </Method>
 
 <Method name="GeefWebshopUrl">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set WebshopUrlBepaler = ##class(APPS.EC.Webshop.impl.UrlBepaler).%New()
-	#dim WebshopUrl As %String = WebshopUrlBepaler.GeefUrl(PersonalityID)
-	Quit WebshopUrl
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Webshop.impl.UrlBepaler).%New().GeefUrl(PersonalityID)
 ]]></Implementation>
 </Method>
 
@@ -73,11 +67,10 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim URL As %String = ..GeefWebshopUrl()	
-	#dim DataOpt As %String = ..GeefDataOpt(RefSessieData,GebruikerID,Taal)
+	#dim DataOpt As %String = ..GeefDataOpt(RefSessieData, GebruikerID, Taal)
 	#dim EncryptedRef As %String = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefEncryptedRefSessieData(RefSessieData)
 	
-	Set URL = URL_"/login?Taal="_Taal_"&REF="_EncryptedRef_"&DATAOPT="_DataOpt
-	Quit URL
+	Quit URL _ "/login?Taal=" _ Taal _ "&REF=" _ EncryptedRef _ "&DATAOPT=" _ DataOpt
 ]]></Implementation>
 </Method>
 
@@ -89,22 +82,23 @@
 <Implementation><![CDATA[
 	#dim DomeinVerwerker As APPS.EC.enu.WebShopVerwerker = RefSessieData.Verwerker
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = RefSessieData.KlantID
-	
 	#dim CommonAPI As APPS.common.CommonAPI = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI()
 	#dim KlantData As DOM.common.dto.KlantData = CommonAPI.GeefDataService().GeefKlantData(KlantID)
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
 	
-	Set KSD = ##class(APPS.EC.dto.KlantSessieData).%New()
-	Set KSD.GebruikerID = GebruikerID
-	Set KSD.KlantID = KlantID	
-	Set KSD.KlantNaam = KlantData.Naam
-	Set KSD.Korting = "0"
-	Set KSD.Taal = KlantData.Taal		
-	If KSD.Taal = "" {
-		Set KSD.Taal = Taal	
+	Set KlantSessieData.GebruikerID = GebruikerID
+	Set KlantSessieData.KlantID = KlantID	
+	Set KlantSessieData.KlantNaam = KlantData.Naam
+	Set KlantSessieData.Korting = "0"
+	Set KlantSessieData.Taal = KlantData.Taal		
+	
+	If (KlantSessieData.Taal = "") {
+		Set KlantSessieData.Taal = Taal	
 	}
 	
-	Set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
-	#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KSD,DomeinVerwerker)	
+	#dim KlantSessieDataBepaler As APPS.EC.impl.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KlantSessieData, DomeinVerwerker)
+		
 	Quit EncryptedKlantSessieData
 ]]></Implementation>
 </Method>
@@ -113,7 +107,7 @@
 <FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set ^APPS.EC.impl.WebshopSessionService.VolgendeGebruikerID(PersonalityID) = $I(^APPS.EC.impl.WebshopSessionService.VolgendeGebruikerID(PersonalityID))
+	Set ^APPS.EC.impl.WebshopSessionService.VolgendeGebruikerID(PersonalityID) = $Increment(^APPS.EC.impl.WebshopSessionService.VolgendeGebruikerID(PersonalityID))
 	Quit ^APPS.EC.impl.WebshopSessionService.VolgendeGebruikerID(PersonalityID)
 ]]></Implementation>
 </Method>
@@ -122,7 +116,7 @@
 <FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set ^APPS.EC.impl.WebshopSessionService.VolgendeKlantID(PersonalityID) = $I(^APPS.EC.impl.WebshopSessionService.VolgendeKlantID(PersonalityID))
+	Set ^APPS.EC.impl.WebshopSessionService.VolgendeKlantID(PersonalityID) = $Increment(^APPS.EC.impl.WebshopSessionService.VolgendeKlantID(PersonalityID))
 	Quit ^APPS.EC.impl.WebshopSessionService.VolgendeKlantID(PersonalityID)
 ]]></Implementation>
 </Method>