Index: APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml
===================================================================
diff -u -r32435 -r32438
--- APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml	(.../WinkelkarServiceUtils.cls.xml)	(revision 32435)
+++ APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml	(.../WinkelkarServiceUtils.cls.xml)	(revision 32438)
@@ -4,55 +4,60 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="CorrigeerWinkelkar">
-<FormalSpec><![CDATA[&Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar,ApplicatieType:APPS.common.enu.ApplicatieType]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec><![CDATA[&Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar]]></FormalSpec>
 <Implementation><![CDATA[
-	If (ApplicatieType = ##class(APPS.common.enu.ApplicatieType).Extern()) {
-		#dim GroepLijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Winkelkar.Lijnen)
+	#dim GroepLijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Winkelkar.Lijnen)
+	
+	While (GroepLijnenIterator.HasNext()) {
+		#dim GroepLijn As APPS.EC.Winkelkar.dto.GroepLijn = GroepLijnenIterator.Next()
+		#dim LijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(GroepLijn.Lijnen)
 		
-		While (GroepLijnenIterator.HasNext()) {
-			#dim GroepLijn As APPS.EC.Winkelkar.dto.GroepLijn = GroepLijnenIterator.Next()
-			#dim LijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(GroepLijn.Lijnen)
-			
-			While (LijnenIterator.HasNext()) {
-				#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = LijnenIterator.Next()
-				
-				If (MaatwerkLijn.IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-					#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = MaatwerkLijn.IngegevenKenmerken
-					
-					Do ##class(Tools.Wlip).%New(42).ListOfDataTypes(TAORKenmerken.NietMeeleveren)
-					Do ##class(Tools.Wlip).%New(42).String(ApplicatieType)
-					
-					Do ..CorrigeerNietMeeleveren(TAORKenmerken)	
-						
-					Do ##class(Tools.Wlip).%New(42).ListOfDataTypes(TAORKenmerken.NietMeeleveren)
-					Do ##class(Tools.Wlip).%New(42).ScheidingsLijn()
-				}					
-			}
+		While (LijnenIterator.HasNext()) {
+			Do ..CorrigeerLijn(LijnenIterator.Next())
 		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="CorrigeerLijn">
+<FormalSpec><![CDATA[&Lijn:APPS.EC.Winkelkar.dto.MaatwerkLijn]]></FormalSpec>
+<Implementation><![CDATA[
+	If (..IsWebshopSessie() && (Lijn.IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())) {
+		Do ..CorrigeerNietMeeleveren(Lijn.IngegevenKenmerken.NietMeeleveren)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsWebshopSessie">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim RuntimeContext As a = ##class(TECH.Context.RuntimeContext).Instance()
+	#dim WebshopSessionService As APPS.EC.WebshopSessionService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService()
+	
+	Quit WebshopSessionService.BestaatWebshopSessie(RuntimeContext.GeefSessieID())
+]]></Implementation>
+</Method>
+
 <Method name="CorrigeerNietMeeleveren">
-<FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<FormalSpec><![CDATA[&NietMeeleveren:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Enum As DOM.PM.Maatwerk.TAX.impl.BaseEnums = ##class(DOM.PM.Maatwerk.TAX.impl.BaseEnums).%New()
+
+	If (##class(TECH.ListUtils).Contains(NietMeeleveren, Enum.Rol.TiponSynchronisatieStang) || ##class(TECH.ListUtils).Contains(NietMeeleveren, Enum.Rol.TiponSynchronisatieTandwiel)) {
+		Do NietMeeleveren.Insert(..GeefGeconcateneerdeRol(Enum.GeleiderTechnologie.TIPON))
 		
-	If (##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponSynchronisatieStang) || ##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponSynchronisatieTandwiel)) {
-		Do TAORKenmerken.NietMeeleveren.Insert(..GeefGeconcateneerdeRol(Enum.GeleiderTechnologie.TIPON))
-		
-		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponSynchronisatieStang))
-		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponSynchronisatieTandwiel))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(Enum.NietMeeleveren.TiponSynchronisatieStang))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(Enum.NietMeeleveren.TiponSynchronisatieTandwiel))
 	}
 	
-	If (##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers) || ##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponBlumotionSynchronisatieAdapter) || ##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponBlumotionSynchronisatieStang)) {
-		Do TAORKenmerken.NietMeeleveren.Insert(..GeefGeconcateneerdeRol(Enum.GeleiderTechnologie.TIPONBLUMOTION))
+	If (##class(TECH.ListUtils).Contains(NietMeeleveren, Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers) || ##class(TECH.ListUtils).Contains(NietMeeleveren, Enum.Rol.TiponBlumotionSynchronisatieAdapter) || ##class(TECH.ListUtils).Contains(NietMeeleveren, Enum.Rol.TiponBlumotionSynchronisatieStang)) {
+		Do NietMeeleveren.Insert(..GeefGeconcateneerdeRol(Enum.GeleiderTechnologie.TIPONBLUMOTION))
 		
-		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
-		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter))
-		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang))
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/CorrigeerLijn/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/CorrigeerLijn/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/CorrigeerLijn/Test.cls.xml	(revision 32438)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarServiceUtils.CorrigeerLijn.Test">
+<Super>vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarServiceUtils.TestBase</Super>
+
+<Property name="MaatwerkLijn">
+<Type>APPS.EC.Winkelkar.dto.MaatwerkLijn</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..MaatwerkLijn = ..MaakMaatwerkLijn()
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON worden niet geconcateneerd in MaatwerkLijn indien geen WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPON($$$False)
+	Do ..WinkelkarServiceUtils.CorrigeerLijn(..MaatwerkLijn)
+
+	Do $$$AssertNotInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	Do $$$AssertInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	Do $$$AssertInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON worden geconcateneerd in MaatwerkLijn indien een WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPON($$$True)
+	Do ..WinkelkarServiceUtils.CorrigeerLijn(..MaatwerkLijn)
+
+	Do $$$AssertInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	Do $$$AssertNotInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	Do $$$AssertNotInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON BLUMOTION worden niet geconcateneerd in MaatwerkLijn indien geen WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPONBLUMOTION($$$False)
+	Do ..WinkelkarServiceUtils.CorrigeerLijn(..MaatwerkLijn)
+
+	Do $$$AssertNotInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+	Do $$$AssertInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	Do $$$AssertInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
+	Do $$$AssertInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON BLUMOTION worden geconcateneerd in MaatwerkLijn indien een WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPONBLUMOTION($$$True)
+	Do ..WinkelkarServiceUtils.CorrigeerLijn(..MaatwerkLijn)
+
+	Do $$$AssertInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+	Do $$$AssertNotInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	Do $$$AssertNotInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
+	Do $$$AssertNotInList(..MaatwerkLijn.IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r29059 -r32438
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 29059)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 32438)
@@ -13,15 +13,31 @@
 <Default>http://www.vanhoecke.be/EC/Winkelkar</Default>
 </Parameter>
 
+<Property name="Utils">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarServiceUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnPreWebMethod">
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Set ..Utils = ##class(APPS.EC.Winkelkar.impl.WinkelkarServiceUtils).%New()
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkar">
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie="",WinkelkarID:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	$$$chkRequiredParameter(WinkelkarID)
-	
+
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().GeefWinkelkar(WinkelkarID)
+	
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().GeefWinkelkar(WinkelkarID)
+	
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
 ]]></Implementation>
 </Method>
 
@@ -36,10 +52,15 @@
 	$$$chkIsObject(Applicatie)
 	
 	$$$chkValidateObject(Applicatie)
-	
+
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetKlant(KlantID)
+	
 	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
-	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakWinkelkar(Applicatie, PartijID,..GeefPersonalityID())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakWinkelkar(Applicatie, PartijID,..GeefPersonalityID())
+
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
 ]]></Implementation>
 </Method>
 
@@ -52,7 +73,12 @@
 	$$$chkRequiredParameter(LijnID)
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VerwijderLijn(WinkelkarID, LijnID)
+	
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VerwijderLijn(WinkelkarID, LijnID)
+		
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
 ]]></Implementation>
 </Method>
 
@@ -69,7 +95,12 @@
 	$$$chkValidateObject(IngegevenKenmerken)
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VoegToeMaatwerkEnGeefWinkelkarTerug(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
+	
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VoegToeMaatwerkEnGeefWinkelkarTerug(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
+		
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
 ]]></Implementation>
 </Method>
 
@@ -108,7 +139,12 @@
 	$$$chkRequiredParameter(WinkelkarID)
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakLeegWinkelkar(WinkelkarID)
+	
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakLeegWinkelkar(WinkelkarID)
+			
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
 ]]></Implementation>
 </Method>
 
@@ -121,7 +157,12 @@
 	$$$chkRequiredParameter(LijnID)
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().GeefLijn(WinkelkarID,LijnID)
+	
+	#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().GeefLijn(WinkelkarID, LijnID)
+	
+	Do ..Utils.CorrigeerLijn(Lijn)
+	
+	Quit Lijn
 ]]></Implementation>
 </Method>
 
@@ -134,7 +175,12 @@
 	$$$chkRequiredParameter(LijnID)
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().DupliceerLijn(WinkelkarID,LijnID)
+	
+	#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().DupliceerLijn(WinkelkarID, LijnID)
+	
+	Do ..Utils.CorrigeerLijn(Lijn)
+	
+	Quit Lijn
 ]]></Implementation>
 </Method>
 
@@ -147,7 +193,7 @@
 	$$$chkRequiredParameter(Aantal)
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnAantal(WinkelkarID,LijnID,Aantal)
+	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnAantal(WinkelkarID, LijnID, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -163,9 +209,8 @@
 	$$$chkIsObject(IngegevenKenmerken)
 	$$$chkValidateObject(IngegevenKenmerken)
 
-
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigMaatwerkLijn(WinkelkarID,LijnID,IngegevenKenmerken,Aantal,GroepNaam,ProjectReferentie)
+	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigMaatwerkLijn(WinkelkarID, LijnID, IngegevenKenmerken, Aantal, GroepNaam, ProjectReferentie)
 ]]></Implementation>
 </Method>
 
@@ -175,8 +220,9 @@
 <Implementation><![CDATA[
 	$$$chkRequiredParameter(WinkelkarID)
 	$$$chkRequiredParameter(LijnID)
+	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
-	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnProjectReferentie(WinkelkarID,LijnID,NieuweProjectReferentie)
+	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnProjectReferentie(WinkelkarID, LijnID, NieuweProjectReferentie)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r32129 -r32438
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 32129)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 32438)
@@ -393,12 +393,12 @@
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkarDto(WinkelkarImpl)	
+	#dim LijnNaarDtoVisitor As APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(Winkelkar, WinkelkarImpl.GeefApplicatieType())
+	#dim TotaalPrijsBepaler As APPS.EC.Winkelkar.impl.TotaalPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.TotaalPrijsBepaler).%New()
 	
-	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(Winkelkar,WinkelkarImpl.GeefApplicatieType())
 	Do WinkelkarImpl.Accept(LijnNaarDtoVisitor)	
-	
-	Set TotaalPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.TotaalPrijsBepaler).%New()
 	Do Winkelkar.Accept(TotaalPrijsBepaler)
+	
 	Set Winkelkar.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
 		
 	Quit Winkelkar
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/CorrigeerWinkelkar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/CorrigeerWinkelkar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/CorrigeerWinkelkar/Test.cls.xml	(revision 32438)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarServiceUtils.CorrigeerWinkelkar.Test">
+<Super>vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarServiceUtils.TestBase</Super>
+
+<Property name="Winkelkar">
+<Type>APPS.EC.Winkelkar.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..Winkelkar = ..MaakWinkelkar()
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON worden niet geconcateneerd in Winkelkar indien geen WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPON($$$False)
+	Do ..WinkelkarServiceUtils.CorrigeerWinkelkar(..Winkelkar)
+
+	Do $$$AssertNotInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	Do $$$AssertInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	Do $$$AssertInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON worden geconcateneerd in Winkelkar indien een WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPON($$$True)
+	Do ..WinkelkarServiceUtils.CorrigeerWinkelkar(..Winkelkar)
+
+	Do $$$AssertInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	Do $$$AssertNotInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	Do $$$AssertNotInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON BLUMOTION worden niet geconcateneerd in Winkelkar indien geen WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPONBLUMOTION($$$False)
+	Do ..WinkelkarServiceUtils.CorrigeerWinkelkar(..Winkelkar)
+
+	Do $$$AssertNotInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+	Do $$$AssertInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	Do $$$AssertInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
+	Do $$$AssertInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen voor TAORKenmerken met GeleiderTechnologie TIP-ON BLUMOTION worden geconcateneerd in Winkelkar indien een WebshopSessie bestaat">
+<Implementation><![CDATA[
+	Do ..ArrangeNietMeeleverenVoorTIPONBLUMOTION($$$True)
+	Do ..WinkelkarServiceUtils.CorrigeerWinkelkar(..Winkelkar)
+
+	Do $$$AssertInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+	Do $$$AssertNotInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	Do $$$AssertNotInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
+	Do $$$AssertNotInList(..Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkar">
+<Private>1</Private>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim GroepLijn As APPS.EC.Winkelkar.dto.GroepLijn = ##class(APPS.EC.Winkelkar.dto.GroepLijn).%New()
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+
+	Do GroepLijn.Lijnen.Insert(..MaakMaatwerkLijn())
+	Do Winkelkar.Lijnen.Insert(GroepLijn)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarServiceUtils/TestBase.cls.xml	(revision 32438)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarServiceUtils.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="WinkelkarServiceUtils">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarServiceUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>APPS.PM.Maatwerk.dto.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WebshopSessionServiceStub">
+<Type>vhTest.Mock.APPS.EC.WebshopSessionService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ECommerceAPIStub">
+<Type>vhTest.Mock.APPS.EC.ECommerceAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..WinkelkarServiceUtils = ##class(APPS.EC.Winkelkar.impl.WinkelkarServiceUtils).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set ..ECommerceAPIStub = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()
+	Set ..WebshopSessionServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+]]></Implementation>
+</Method>
+
+<Method name="ArrangeNietMeeleverenVoorTIPON">
+<FormalSpec>BestaatWebshopSessie:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+	
+	Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	
+	Set ..TAORKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPON
+	Set ..TAORKenmerken.NietMeeleveren = NietMeeleveren	
+	
+	Do ..ECommerceAPIStub.IndienMethodCall("GeefWebshopSessionService").DanReturn(..WebshopSessionServiceStub)
+	Do ..WebshopSessionServiceStub.IndienMethodCall("BestaatWebshopSessie", $$$ElkeWaarde).DanReturn(BestaatWebshopSessie)
+]]></Implementation>
+</Method>
+
+<Method name="ArrangeNietMeeleverenVoorTIPONBLUMOTION">
+<FormalSpec>BestaatWebshopSessie:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+	
+	Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
+	Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+	
+	Set ..TAORKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION
+	Set ..TAORKenmerken.NietMeeleveren = NietMeeleveren	
+	
+	Do ..ECommerceAPIStub.IndienMethodCall("GeefWebshopSessionService").DanReturn(..WebshopSessionServiceStub)
+	Do ..WebshopSessionServiceStub.IndienMethodCall("BestaatWebshopSessie", $$$ElkeWaarde).DanReturn(BestaatWebshopSessie)
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<Private>1</Private>
+<ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New()
+	
+	Set MaatwerkLijn.IngegevenKenmerken = ..TAORKenmerken
+	
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>