Index: APPS/EC/Winkelkar/impl/InterneWinkelkarService.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/InterneWinkelkarService.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/InterneWinkelkarService.cls.xml	(revision 33301)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.InterneWinkelkarService">
+<Super>APPS.EC.Winkelkar.impl.WinkelkarService</Super>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/ExterneWinkelkarService.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/ExterneWinkelkarService.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/ExterneWinkelkarService.cls.xml	(revision 33301)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.ExterneWinkelkarService">
+<Super>APPS.EC.Winkelkar.impl.WinkelkarService</Super>
+
+<Property name="Utils">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarServiceUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden="",WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater="",MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator="",BestelService:DOM.VKP.Maatwerk.BestelService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(MagMaatwerklijnGewijzigdWordenBepaler, WinkelkarPrijsUpdater, MaatwerklijnInputValidator, BestelService)
+
+	Set ..Utils = ##class(APPS.EC.Winkelkar.impl.WinkelkarServiceUtils).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelkar">
+<FormalSpec>WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##super(WinkelkarID)
+	
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##super(Applicatie, KlantID, PersonalityID)
+	
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLijn">
+<FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##super(WinkelkarID, LijnID)
+	
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeMaatwerkEnGeefWinkelkarTerug">
+<FormalSpec>WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##super(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, ProjectReferentie)
+		
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="MaakLeegWinkelkar">
+<FormalSpec>WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##super(WinkelkarID)
+	
+	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijn">
+<FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Lijn</ReturnType>
+<Implementation><![CDATA[
+	#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##super(WinkelkarID, LijnID)
+	
+	Do ..Utils.CorrigeerLijn(Lijn)
+	
+	Quit Lijn
+]]></Implementation>
+</Method>
+
+<Method name="DupliceerLijn">
+<FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Lijn</ReturnType>
+<Implementation><![CDATA[
+	#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##super(WinkelkarID, LijnID)
+	
+	Do ..Utils.CorrigeerLijn(Lijn)
+	
+	Quit Lijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r33279 -r33301
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33279)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33301)
@@ -18,19 +18,17 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Utils">
-<Type>APPS.EC.Winkelkar.impl.WinkelkarServiceUtils</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
-	Set ..Utils = ##class(APPS.EC.Winkelkar.impl.WinkelkarServiceUtils).%New()
+	If (..IsWebshopSessie()) {
+		Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.ExterneWinkelkarService).%New()	
+	} Else {
+		Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.InterneWinkelkarService).%New()	
+	}
 
 	Quit $$$OK
 ]]></Implementation>
@@ -45,11 +43,7 @@
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
 
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkar(WinkelkarID)
-	
-	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
-	
-	Quit Winkelkar
+	Quit ..WinkelkarService.GeefWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
 
@@ -68,11 +62,8 @@
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetKlant(KlantID)
 	
 	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(Applicatie, PartijID,..GeefPersonalityID())
-
-	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
 	
-	Quit Winkelkar
+	Quit ..WinkelkarService.MaakWinkelkar(Applicatie, PartijID, ..GeefPersonalityID())
 ]]></Implementation>
 </Method>
 
@@ -86,11 +77,7 @@
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
 	
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
-		
-	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
-	
-	Quit Winkelkar
+	Quit ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
 ]]></Implementation>
 </Method>
 
@@ -108,11 +95,7 @@
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
 	
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
-		
-	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
-	
-	Quit Winkelkar
+	Quit ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
 ]]></Implementation>
 </Method>
 
@@ -128,6 +111,7 @@
 	$$$chkValidateObject(IngegevenKenmerken)
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
+	
 	Quit ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
 ]]></Implementation>
 </Method>
@@ -139,6 +123,7 @@
 	$$$chkRequiredParameter(WinkelkarID)
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
+	
 	Do ..WinkelkarService.WisWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
@@ -152,11 +137,7 @@
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
 	
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakLeegWinkelkar(WinkelkarID)
-			
-	Do ..Utils.CorrigeerWinkelkar(Winkelkar)
-	
-	Quit Winkelkar
+	Quit ..WinkelkarService.MaakLeegWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
 
@@ -170,11 +151,7 @@
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
 	
-	#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, LijnID)
-	
-	Do ..Utils.CorrigeerLijn(Lijn)
-	
-	Quit Lijn
+	Quit ..WinkelkarService.GeefLijn(WinkelkarID, LijnID)
 ]]></Implementation>
 </Method>
 
@@ -188,11 +165,7 @@
 
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
 	
-	#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.DupliceerLijn(WinkelkarID, LijnID)
-	
-	Do ..Utils.CorrigeerLijn(Lijn)
-	
-	Quit Lijn
+	Quit ..WinkelkarService.DupliceerLijn(WinkelkarID, LijnID)
 ]]></Implementation>
 </Method>
 
@@ -237,6 +210,17 @@
 	Do ..WinkelkarService.WijzigLijnProjectReferentie(WinkelkarID, LijnID, NieuweProjectReferentie)
 ]]></Implementation>
 </Method>
+
+<Method name="IsWebshopSessie">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	#dim WebshopSessionService As APPS.EC.WebshopSessionService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService()
+	
+	Quit WebshopSessionService.BestaatWebshopSessie(RuntimeContext.GeefSessieID())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml
===================================================================
diff -u -r32438 -r33301
--- APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml	(.../WinkelkarServiceUtils.cls.xml)	(revision 32438)
+++ APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml	(.../WinkelkarServiceUtils.cls.xml)	(revision 33301)
@@ -22,23 +22,12 @@
 <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())) {
+	If (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><![CDATA[&NietMeeleveren:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>