Index: vhUnitTest/APPS/EC/Winkelkar/impl/LijnPrijsBepaler/Process/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/LijnPrijsBepaler/Process/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/LijnPrijsBepaler/Process/TestBase.cls.xml	(revision 32705)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.LijnPrijsBepaler.Process.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="LijnPrijsBepaler">
+<Type>APPS.EC.Winkelkar.impl.LijnPrijsBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenDto">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerkLijn">
+<Type>APPS.EC.Winkelkar.dto.MaatwerkLijn</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="Aantal">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Set ..LijnPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.LijnPrijsBepaler).%New()
+	Set ..IngegevenKenmerkenDto = ##class(APPS.PM.Maatwerk.dto.LadeKenmerken).%New()
+	Set ..MaatwerkLijn = ..MaakMaatwerkLijn()
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(..GeefPersonalityID())
+]]></Implementation>
+</Method>
+
+<Method name="AssertMaatwerkLijnPrijs">
+<FormalSpec>KlantID:DOM.VKP.KlantID,VerwachteEenheidPrijs:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..LijnPrijsBepaler.Process(..MaatwerkLijn, KlantID)
+	Do $$$AssertEquals(..MaatwerkLijn.EenheidPrijs,VerwachteEenheidPrijs)
+]]></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.Aantal = ..#Aantal
+	Set MaatwerkLijn.IngegevenKenmerken = ..IngegevenKenmerkenDto
+	
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+
+<Method name="MockIngegevenKenmerkenConverter">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim APPSMaatwerkAPIStub As vhTest.Mock.APPS.PM.MaatwerkAPI = ##class(vhTest.Mock.APPS.PM.MaatwerkAPI).MockInstance()
+	Set IngegevenKenmerkenConverterStub = ##class(vhTest.Mock.APPS.PM.Maatwerk.IngegevenKenmerkenConverter).%New()
+	Do IngegevenKenmerkenConverterStub.IndienMethodCall("NaarObject",..IngegevenKenmerkenDto).DanReturn(IngegevenKenmerken)
+	Do APPSMaatwerkAPIStub.IndienMethodCall("GeefIngegevenKenmerkenConverter").DanReturn(IngegevenKenmerkenConverterStub)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerkoopPrijsBepalerMock">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,EenheidPrijs:%Numeric,LijstPrijs:%Numeric,KlantID:DOM.VKP.KlantID</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.VerkoopPrijsBepaler</ReturnType>
+<Implementation><![CDATA[
+	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ##class(vhTest.Dummy.DOM.VKP.info.VerkoopPrijsInfo).Create(EenheidPrijs, LijstPrijs, ..#Aantal, ..GeefPersonalityID(), KlantID)
+	Set VerkoopPrijsBepalerMock = ##class(vhTest.Mock.APPS.EC.VerkoopPrijsBepaler).%New()
+	Do VerkoopPrijsBepalerMock.IndienMethodCall("BepaalVerkoopPrijs", IngegevenKenmerken, ..#Aantal, ..GeefPersonalityID(), KlantID).DanReturn(VerkoopPrijsInfo)
+	Quit VerkoopPrijsBepalerMock
+]]></Implementation>
+</Method>
+
+<Method name="ZetWebshopSessie">
+<FormalSpec>WebshopModus:APPS.EC.enu.WebshopModus</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Sessie = ##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString)
+	Do Sessie.ZetWebshopModus(WebshopModus)
+	Do Sessie.Save()
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(Sessie.GeefSessieSleutel())
+]]></Implementation>
+</Method>
+
+<Method name="GeefPersonalityID">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/LijnPrijsBepaler/Process/TestVanHoeckeKlanten.cls.xml
===================================================================
diff -u -r32699 -r32705
--- vhUnitTest/APPS/EC/Winkelkar/impl/LijnPrijsBepaler/Process/TestVanHoeckeKlanten.cls.xml	(.../TestVanHoeckeKlanten.cls.xml)	(revision 32699)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/LijnPrijsBepaler/Process/TestVanHoeckeKlanten.cls.xml	(.../TestVanHoeckeKlanten.cls.xml)	(revision 32705)
@@ -1,39 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.Winkelkar.impl.LijnPrijsBepaler.Process.TestVanHoeckeKlanten">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.EC.Winkelkar.impl.LijnPrijsBepaler.Process.TestBase</Super>
 
-<Property name="LijnPrijsBepaler">
-<Type>APPS.EC.Winkelkar.impl.LijnPrijsBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="IngegevenKenmerkenDto">
-<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="MaatwerkLijn">
-<Type>APPS.EC.Winkelkar.dto.MaatwerkLijn</Type>
-<Private>1</Private>
-</Property>
-
-<Parameter name="Aantal">
-<Type>%Integer</Type>
-<Default>1</Default>
-</Parameter>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##super(aTestName)
-	Set ..LijnPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.LijnPrijsBepaler).%New()
-	Set ..IngegevenKenmerkenDto = ##class(APPS.PM.Maatwerk.dto.LadeKenmerken).%New()
-	Set ..MaatwerkLijn = ..MaakMaatwerkLijn()
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(..GeefPersonalityID())
-]]></Implementation>
-</Method>
-
 <Method name="TestGeenWebShopSessieGeenPrijs">
 <Implementation><![CDATA[
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("UT_OnbestaandeSessieID")
@@ -64,62 +33,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AssertMaatwerkLijnPrijs">
-<FormalSpec>KlantID:DOM.VKP.KlantID,VerwachteEenheidPrijs:%Numeric</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Do ..LijnPrijsBepaler.Process(..MaatwerkLijn, KlantID)
-	Do $$$AssertEquals(..MaatwerkLijn.EenheidPrijs,VerwachteEenheidPrijs)
-]]></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.Aantal = ..#Aantal
-	Set MaatwerkLijn.IngegevenKenmerken = ..IngegevenKenmerkenDto
-	
-	Quit MaatwerkLijn
-]]></Implementation>
-</Method>
-
-<Method name="MockIngegevenKenmerkenConverter">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim APPSMaatwerkAPIStub As vhTest.Mock.APPS.PM.MaatwerkAPI = ##class(vhTest.Mock.APPS.PM.MaatwerkAPI).MockInstance()
-	Set IngegevenKenmerkenConverterStub = ##class(vhTest.Mock.APPS.PM.Maatwerk.IngegevenKenmerkenConverter).%New()
-	Do IngegevenKenmerkenConverterStub.IndienMethodCall("NaarObject",..IngegevenKenmerkenDto).DanReturn(IngegevenKenmerken)
-	Do APPSMaatwerkAPIStub.IndienMethodCall("GeefIngegevenKenmerkenConverter").DanReturn(IngegevenKenmerkenConverterStub)
-]]></Implementation>
-</Method>
-
-<Method name="GeefVerkoopPrijsBepalerMock">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,EenheidPrijs:%Numeric,LijstPrijs:%Numeric,KlantID:DOM.VKP.KlantID</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.EC.VerkoopPrijsBepaler</ReturnType>
-<Implementation><![CDATA[
-	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ##class(vhTest.Dummy.DOM.VKP.info.VerkoopPrijsInfo).Create(EenheidPrijs, LijstPrijs, ..#Aantal, ..GeefPersonalityID(), KlantID)
-	Set VerkoopPrijsBepalerMock = ##class(vhTest.Mock.APPS.EC.VerkoopPrijsBepaler).%New()
-	Do VerkoopPrijsBepalerMock.IndienMethodCall("BepaalVerkoopPrijs", IngegevenKenmerken, ..#Aantal, ..GeefPersonalityID(), KlantID).DanReturn(VerkoopPrijsInfo)
-	Quit VerkoopPrijsBepalerMock
-]]></Implementation>
-</Method>
-
-<Method name="ZetWebshopSessie">
-<FormalSpec>WebshopModus:APPS.EC.enu.WebshopModus</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set Sessie = ##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString)
-	Do Sessie.ZetWebshopModus(WebshopModus)
-	Do Sessie.Save()
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(Sessie.GeefSessieSleutel())
-]]></Implementation>
-</Method>
-
 <Method name="GeefPersonalityID">
 <Private>1</Private>
 <ReturnType>DOM.common.enu.Personality</ReturnType>