Index: vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r41107 -r41810
--- vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 41107)
+++ vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 41810)
@@ -10,6 +10,7 @@
 <Implementation><![CDATA[
 	Set StandaardWinkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
 	Set StandaardWinkelkar.Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Root")
+	Do StandaardWinkelkar.ZetKlantID($$$DummyInteger)
 	
 	Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New("GroepLijn")
 	Do GroepLijn.Sublijnen.Insert(..GeefProductLijn(2, 7.75, 15.5))
@@ -35,9 +36,7 @@
 <FormalSpec>Aantal:%Integer,EenheidPrijs:%Decimal,TotaalPrijs:%Decimal</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
-<Implementation><![CDATA[
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
-	Quit ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn).TAORMaatwerkLijn(Aantal, EenheidPrijs, TotaalPrijs)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Utils/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(revision 41810)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="TAORMaatwerkLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Aantal:%Integer,EenheidPrijs:%Decimal,TotaalPrijs:%Decimal</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Quit ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>