Index: vhUnitTest/APPS/VKP/Maatwerk/ConfiguratorService/BewaarIngegevenKenmerken/TestPadCreatie.cls.xml
===================================================================
diff -u -r29059 -r31022
--- vhUnitTest/APPS/VKP/Maatwerk/ConfiguratorService/BewaarIngegevenKenmerken/TestPadCreatie.cls.xml	(.../TestPadCreatie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/Maatwerk/ConfiguratorService/BewaarIngegevenKenmerken/TestPadCreatie.cls.xml	(.../TestPadCreatie.cls.xml)	(revision 31022)
@@ -54,7 +54,7 @@
 <Implementation><![CDATA[
 	#dim Service As APPS.VKP.Maatwerk.ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefMaatwerkConfiguratorService()
 	
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	
 	do Service.BewaarIngegevenKenmerken(..GebruikerID, IngegevenKenmerken, Pad, "Unittest naam 1", 1)
 	#dim BewaardeIngegevenKenmerken As APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken = Service.GeefBewaardeIngegevenKenmerken(..GebruikerID)
Index: vhUnitTest/APPS/VKP/TestVerkoopService.cls.xml
===================================================================
diff -u -r29059 -r31022
--- vhUnitTest/APPS/VKP/TestVerkoopService.cls.xml	(.../TestVerkoopService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/TestVerkoopService.cls.xml	(.../TestVerkoopService.cls.xml)	(revision 31022)
@@ -17,7 +17,7 @@
 		
 	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),0)
 		
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#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)
 		
 	If $$$AssertTrue($IsObject(MaatwerkIngaveEvaluatie)){
@@ -46,7 +46,7 @@
 	
 	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..MaakWinkelkar()
 	
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#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)
 	
Index: vhUnitTest/DOM/PM/Maatwerk/HF/Data.cls.xml
===================================================================
diff -u -r31003 -r31022
--- vhUnitTest/DOM/PM/Maatwerk/HF/Data.cls.xml	(.../Data.cls.xml)	(revision 31003)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/Data.cls.xml	(.../Data.cls.xml)	(revision 31022)
@@ -3,39 +3,6 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.Data">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="GeefTAORKenmerkenDto">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>InclusiefGeleiders:%Boolean=1</FormalSpec>
-<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeDiepte = 250
-	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set IngegevenKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
-	Set IngegevenKenmerken.IsBinnenlade = 1
-	Set IngegevenKenmerken.Draagkracht = 30
-	Set IngegevenKenmerken.CorpusBreedte = 600
-	Set IngegevenKenmerken.IsBinnenbreedte = 1
-	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Tandem()
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = 0
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
-	Set IngegevenKenmerken.HeeftTipon = 1
-	Set IngegevenKenmerken.HeeftZijstabilisering = 0
-	Set IngegevenKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
-	Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Schroef()
-	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
-	Set IngegevenKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
-	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
-	If 'InclusiefGeleiders {
-		Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())	
-	}
-	Quit IngegevenKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="GeefLBXKenmerken">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InclusiefGeleiders:%Boolean</FormalSpec>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml
===================================================================
diff -u -r30089 -r31022
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 30089)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 31022)
@@ -7,22 +7,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="WinkelkarService">
-<Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
-</Property>
-
 <UDLText name="T">
 <Content><![CDATA[
 // Parameter Type As %String = "IntegratieTest";
 
 ]]></Content>
 </UDLText>
 
-<Property name="KlantID">
-<Type>%String</Type>
-<InitialExpression>"K||7587"</InitialExpression>
-</Property>
-
 <Parameter name="AantalProductenInLijn">
 <Type>%Integer</Type>
 <Default>2</Default>
@@ -38,13 +29,31 @@
 <Default>26</Default>
 </Parameter>
 
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Personality">
+<Type>DOM.common.enu.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super()
 	
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
+	
+	set ..KlantID = "K||7587"
+	set ..Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
 ]]></Implementation>
 </Method>
 
@@ -64,28 +73,15 @@
 
 <Method name="TestGeefWinkelkar">
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
-	
-	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set Aantal = 2
-	Set EenheidPrijs = 13
-	Set TotaalPrijs = 26
-	Set MaatwerkLijn = ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
-	
-	Do Winkelkar.VoegToe(MaatwerkLijn)
-	
-	Set Aantal = 3
-	Set EenheidPrijs = 15
-	Set TotaalPrijs = 45
-	Set MaatwerkLijn = ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
-	
-	Do Winkelkar.VoegToe(MaatwerkLijn)
-	
-	Do Winkelkar.ZetKlantID(##class(DOM.VKP.enu.Klant).VanHoecke())
-	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	
-	Set SaveStatus = Winkelkar.%Save()
-	
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ..MaakWinkelkar()
+	#dim MaatwerkLijn1 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(2, Kenmerken, 13, 26)
+	#dim MaatwerkLijn2 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(3, Kenmerken, 15, 45)
+
+	do Winkelkar.VoegToe(MaatwerkLijn1)
+	do Winkelkar.VoegToe(MaatwerkLijn2)
+	do Winkelkar.%Save()
+
 	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkar(Winkelkar.%Id())
 	
 	Quit:'$$$AssertTrue($IsObject(WinkelkarDto))
@@ -109,19 +105,16 @@
 
 <Method name="TestMaakWinkelkar">
 <Implementation><![CDATA[
-	
-	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	#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()
 	
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||7587"
-	#dim PersonalityID As %String = ##class(DOM.common.enu.Personality).VanHoecke()
-	Set Winkelkar = ..WinkelkarService.MaakWinkelkar(Applicatie,KlantID,PersonalityID)
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(Applicatie, ..KlantID, ..Personality)
 	
 	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar aangemaakt")
 	Do $$$AssertEquals(Winkelkar.ApplicatieID,"UnitTest","De applicatie id is ingevuld")
 	Do $$$AssertEquals(Winkelkar.AantalProducten,0,"Er zitten nog geen producten in")
-	Do $$$AssertEquals(Winkelkar.KlantID,KlantID,"De klant id werd correct opgeslagen")
+	do $$$AssertEquals(Winkelkar.KlantID, ..KlantID, "De klant id werd correct opgeslagen")
 	
 	Do ..WinkelkarService.WisWinkelkar(Winkelkar.WinkelkarID)
 	
@@ -133,15 +126,11 @@
 <Implementation><![CDATA[
 	#dim Exception As TECH.Exceptions.Exception 
 	#dim GroepNaam As %String = "Groep"
-	
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||7587"
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(),KlantID,##class(DOM.common.enu.Personality).VanHoecke())
-	
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-	
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ..KlantID, ..Personality)
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	#dim Aantal As %Integer = -1
-	
 	#dim VoegToeGelukt As %Boolean = 0
+	
 	try {
 		Do ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug( Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
 		Set VoegToeGelukt = 1
@@ -190,14 +179,10 @@
 <Method name="TestMaakLeegWinkelkar">
 <Implementation><![CDATA[
 	#dim GroepNaam As %String = "Groep"
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ..KlantID, ..Personality)
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	#dim Aantal As %Integer= 3
 	
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||7587"
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(),KlantID,##class(DOM.common.enu.Personality).VanHoecke())
-	
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-	
-	Set Aantal = 3
-	
 	Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug( Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
 	
 	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven")
@@ -225,7 +210,7 @@
 	Quit:( '$$$AssertTrue(Lijn.%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn")) )
 	Quit:( '$$$AssertEquals(Lijn.LijnID, MaatwerkLijnID))
 	
-	#dim VerwachteKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim VerwachteKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenlade()
 	Quit:( '$$$AssertTrue(Lijn.IngegevenKenmerken.%IsA(VerwachteKenmerken.%ClassName(/*fullname=*/ 1))) )
 
 	Quit:( '$$$AssertEquals(..#AantalProductenInLijn, Lijn.Aantal))
@@ -259,7 +244,7 @@
 <Method name="TestWijzigLijnProjectReferentie">
 <Implementation><![CDATA[
 	Set Winkelkar = ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%New("UnitTestWinkelkar")
-	do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	do Winkelkar.ZetPersonalityID(..Personality)
 	Do Winkelkar.ZetKlantID("K||1000")
 	
 	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
@@ -400,7 +385,7 @@
 <Method name="TestWisWinkelkarMagNietVoorExterneOffertes">
 <Implementation><![CDATA[
 	// Setup
-	#dim OfferteIDenWinkelkarID As APPS.EC.dto.OfferteIDEnWinkelkarID = ##class(APPS.EC.impl.ExterneVerkoopService).%New().MaakOfferte( ..KlantID , ##class(DOM.common.enu.Personality).VanHoecke() )
+	#dim OfferteIDenWinkelkarID As APPS.EC.dto.OfferteIDEnWinkelkarID = ##class(APPS.EC.impl.ExterneVerkoopService).%New().MaakOfferte( ..KlantID , ..Personality)
 		
 	Try {
 		// Actie
@@ -425,7 +410,7 @@
 	#dim MaatwerkLijnID2 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim MaatwerkLijnID3 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set NieuweIngegevenKenmerken.CorpusBreedte = "999" 
 	
 	// Actie
@@ -461,7 +446,7 @@
 	#dim MaatwerkLijnID2 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim MaatwerkLijnID3 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set NieuweIngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).ZwartIngekleurdYaya()
 	
 	// Actie
@@ -499,7 +484,7 @@
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
 	#dim MaatwerkLijnID1 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set NieuweIngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).ZwartIngekleurdYaya()
 	
 	// Actie
@@ -529,14 +514,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakWinkelkar">
+<FormalSpec>ApplicatieID:TECH.String="UnitTest"</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.InterneWinkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New(ApplicatieID)
+	
+	do Winkelkar.ZetKlantID(..KlantID)
+	do Winkelkar.ZetPersonalityID(..Personality)
+	
+	quit Winkelkar
+]]></Implementation>
+</Method>
+
 <Method name="MaakWinkelkarEnGeefID">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")	
-	do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	do Winkelkar.ZetKlantID("K||7587")
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ..MaakWinkelkar()
+	
 	do $$$AssertEquals($$$OK, Winkelkar.%Save())
+	
 	quit Winkelkar.%Id()
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EC/TestInterneVerkoopService.cls.xml
===================================================================
diff -u -r29059 -r31022
--- vhUnitTest/APPS/EC/TestInterneVerkoopService.cls.xml	(.../TestInterneVerkoopService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/TestInterneVerkoopService.cls.xml	(.../TestInterneVerkoopService.cls.xml)	(revision 31022)
@@ -191,7 +191,7 @@
 	#Dim GroepNaam As %String = "Groep"
 	#Dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||7587"
 	#Dim Winkelkar As %String = WinkelkarService.MaakWinkelkar(Applicatie,KlantID,##class(DOM.common.enu.Personality).VanHoecke())
-	#Dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#Dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	#Dim Aantal As %Integer = 3
 	
 	Set Winkelkar = WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
Index: vhUnitTest/APPS/EC/ExterneVerkoopService/Base.cls.xml
===================================================================
diff -u -r31006 -r31022
--- vhUnitTest/APPS/EC/ExterneVerkoopService/Base.cls.xml	(.../Base.cls.xml)	(revision 31006)
+++ vhUnitTest/APPS/EC/ExterneVerkoopService/Base.cls.xml	(.../Base.cls.xml)	(revision 31022)
@@ -23,6 +23,37 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal("N")
+	
+	set ..ExterneVerkoopService = ##class(APPS.EC.impl.ExterneVerkoopService).%New()
+	
+	#dim Query As %String = "Delete APPS_VKP_impl.Offerte where BestelOpmerking = ?"
+	do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestOpmerking"))
+	
+	set Query = "Delete APPS_VKP_impl.Offerte where DocumentReferenties->OrderReferentie = ?"
+	do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestOrderReferentie"))
+	
+	do ..SchakelUitEvent("APPS.VKP.OfferteBesteldEvent")
+	
+	set ..KlantID = ..GeefKlantID()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID($$$DummySessieID)
+	
+	do ..SetupMocking()
+	do ..MaakOfferte()	
+	
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
 <Method name="VulInOfferte">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -62,11 +93,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim WinkelkarService As APPS.EC.Winkelkar.impl.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New( , ..GeefPrijsUpdaterZonderPrijsBerekening())
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	
-	Do WinkelkarService.VoegToeMaatwerk( ..OfferteIDenWinkelkarID.WinkelkarID, "Groep A", IngegevenKenmerken, 1 )
-	Do WinkelkarService.VoegToeMaatwerk( ..OfferteIDenWinkelkarID.WinkelkarID, "Groep A", IngegevenKenmerken, 2 )
-	Do WinkelkarService.VoegToeMaatwerk( ..OfferteIDenWinkelkarID.WinkelkarID, "Groep B", IngegevenKenmerken, 1 )
+	do WinkelkarService.VoegToeMaatwerk(..OfferteIDenWinkelkarID.WinkelkarID, "Groep A", IngegevenKenmerken, 1)
+	do WinkelkarService.VoegToeMaatwerk(..OfferteIDenWinkelkarID.WinkelkarID, "Groep A", IngegevenKenmerken, 2)
+	do WinkelkarService.VoegToeMaatwerk(..OfferteIDenWinkelkarID.WinkelkarID, "Groep B", IngegevenKenmerken, 1)
 ]]></Implementation>
 </Method>
 
@@ -143,41 +174,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID($$$DummySessieID)
-	
-	do ..SetupMocking()
-	do ..MaakOfferte()	
-	do ##super(aTestName)
-]]></Implementation>
-</Method>
-
 <Method name="MaakOfferte">
 <Private>1</Private>
 <Implementation><![CDATA[	Set ..OfferteIDenWinkelkarID = ..ExterneVerkoopService.MaakOfferte(..KlantID,..#PersonalityID)
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Do ##super()
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal("N")
-	Set ..ExterneVerkoopService = ##class(APPS.EC.impl.ExterneVerkoopService).%New()
-	
-	#dim Query As %String = "Delete APPS_VKP_impl.Offerte where BestelOpmerking = ?"
-	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestOpmerking"))
-	
-	Set Query = "Delete APPS_VKP_impl.Offerte where DocumentReferenties->OrderReferentie = ?"
-	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestOrderReferentie"))
-	
-	Do ..SchakelUitEvent("APPS.VKP.OfferteBesteldEvent")
-	
-	set ..KlantID = ..GeefKlantID()
-]]></Implementation>
-</Method>
-
 <Method name="GeefKlantID">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r29059 -r31022
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 31022)
@@ -24,7 +24,7 @@
 	set ..GebruikerID = ##class(vhUnitTest.UnitTestUsers).GeefOVTestUserID()
 	set ..EindKlantGebruikerID = ##class(vhUnitTest.UnitTestUsers).GeefITTestUserID()
 	
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||"_4682
 	
@@ -85,7 +85,7 @@
 <Method name="TestGeefKenmerkMogelijkheden">
 <Implementation><![CDATA[
 	#dim Service As APPS.VKP.Maatwerk.ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefMaatwerkConfiguratorService()
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	
 	#dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = Service.GeefKenmerkMogelijkheden(IngegevenKenmerken,$$$DummyInteger)
 ]]></Implementation>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml
===================================================================
diff -u -r30089 -r31022
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 30089)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 31022)
@@ -117,7 +117,8 @@
 		Do $$$AssertTrue(Lijn.%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn"))
 		Do $$$AssertEquals(Lijn.LijnID, MaatwerkLijnID)
 	
-		#dim VerwachteKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+		#dim VerwachteKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+		
 		Do $$$AssertTrue(Lijn.IngegevenKenmerken.%IsA(VerwachteKenmerken.%ClassName(/*fullname=*/ 1)))
 
 		Do $$$AssertEquals(..#AantalProductenInLijn, Lijn.Aantal)
@@ -182,7 +183,7 @@
 	#dim MaatwerkLijnID2 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim MaatwerkLijnID3 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set NieuweIngegevenKenmerken.CorpusBreedte = "999" 
 	
 	// Actie
@@ -228,7 +229,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, "GroepNaam", IngegevenKenmerken, ..#AantalProductenInLijn)
 	Quit LijnID
 ]]></Implementation>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/Base.cls.xml
===================================================================
diff -u -r29059 -r31022
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/Base.cls.xml	(.../Base.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/Base.cls.xml	(.../Base.cls.xml)	(revision 31022)
@@ -66,7 +66,7 @@
 
 <Method name="InitTAORKenmerken">
 <Private>1</Private>
-<Implementation><![CDATA[	set ..IngegevenKenmerkenDto = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+<Implementation><![CDATA[	set ..IngegevenKenmerkenDto = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 </Class>