Index: vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml
===================================================================
diff -u -r1566 -r1574
--- vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1566)
+++ vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1574)
@@ -84,6 +84,53 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMaatwerkWinkelkar">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%New("UnitTest")
+	
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set Aantal = 2
+	Set EenheidPrijs = 13
+	Set TotaalPrijs = 26
+	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+	
+	Set SaveStatus = Winkelkar.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(SaveStatus),"De winkelkar werd correct opgeslagen")
+	
+	Set WinkelkarID = Winkelkar.%Id()
+	
+	Set Winkelkar = ""
+	Set Kenmerken = ""
+	Set MaatwerkLijn = ""
+	
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%OpenId(WinkelkarID)
+	
+	Set MaatwerkLijn = Winkelkar.GeefLijnIterator().Next()
+	
+	Do $$$AssertEquals(MaatwerkLijn.GeefAantal(),Aantal,"Het aantal is correct")
+	Do $$$AssertEquals(MaatwerkLijn.GeefEenheidPrijs(),EenheidPrijs,"De eenheidsprijs is correct")
+	Do $$$AssertEquals(MaatwerkLijn.GeefTotaalPrijs(),TotaalPrijs,"De totaalprijs is correct")
+	Do $$$AssertTrue($IsObject(MaatwerkLijn.GeefIngegevenKenmerken()),"De ingegeven kenmerken werden opgeslagen")
+	Do $$$AssertFalse(Winkelkar.IsVerwijderbaar(),"De winkelkar mag nog niet verwijderd worden omdat deze niet ouder is dan 1 dag")
+	
+	// Laatste gewijzigd op 2 dagen geleden instellen zodat deze wel mag verwijderd worden
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("UPDATE DOM_EC_Winkelkar.MaatwerkWinkelkar SET GewijzigdOp = ?")
+	Do ResultSet.Execute($H-2)
+	
+	Do Winkelkar.%Reload()
+	
+	Do $$$AssertTrue(Winkelkar.IsVerwijderbaar(),"De winkelkar is wel verwijderbaar na 2 dagen")
+	
+	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%DeleteId(MaatwerkLijn.GeefIngegevenKenmerken().%Id())
+	Do ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%DeleteId(Winkelkar.%Id())
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[